T]U]T]O]R]I]A]L - Get installed fonts + preview

Welcome!

You will need:
1 Label
1Combobox

Skillz: Basic´s!

1th
add

Code:

1 Label
1Combobox

Add this code to the top:

Code:

Imports System.Drawing.Text

and this code to the load:

Code:

 Dim fonts As New InstalledFontCollection
        For Each X As FontFamily In fonts.Families
            ListBox1.Items.Add(X.Name)
        Next

and double klick on listbox1 and add this code:

Code:

Try
            Label1.Font = New System.Drawing.Font(ListBox1.SelectedItem.ToString, 25, FontStyle.Regular)
        Catch ex As Exception

        End Try

2th Thanks me! :o

Will this ONLY be for the program, or will it install it on your computer? If it doesn't install on your computer, do you know how to add fonts to Computer?

I think this might add the font to the pc?

This will show your installed fonts in the list box >.>

T]U]T]O]R]I]A]L - Get installed fonts + preview

Similar Threads

Tags for this Thread