Breadcrumbs

[MANSQN]

Requirements: 1 list box and 1 button:

Go to the code page and add the following declaration:

Code: Select all

Imports System.Drawing.Text

Get Fonts Button Code:

Code: Select all

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim fonts As New InstalledFontCollection

 

        For Each one As FontFamily In fonts.Families

            ListBox1.Items.Add(one.Name)

        Next

 

    End Sub

[Code]

Just a little tip, instead of having a button grab the list why not have it display the list on the form load up? :P

[mandai]

The code for this has been posted recently. You should clear the list if you want to re-use the function.

[RunarM]

You can also preview the fonts with a label:

Code: Select all

Dim fontname As String = ListBox1.SelectedItem
        Label1.Font = New System.Drawing.Font(fontname, 10)

[Agust1337]

Yes, these installed fonts have been posted few times this month

[Danny]

This is just a copy of the programm I made -___-

[Axel]

How the fk is this a copy ? How else would YOU do it ?? also did YOU invent that code ? certainly not

[Danny]

How the fk is this a copy ? How else would YOU do it ?? also did YOU invent that code ? certainly not

viewtopic.php?f=71&t=7198

[Axel]

I'll repeat myself
Did YOU invent the code ? Did you write the InstalledFontCollection ?

[M1z23R]

This is just a copy of the programm I made -___-

You are right, you already posted this same thing a week ago