Get All Windows Fonts

Hi,
This is a sample code to get all windows fonts

Dim familyName As String
Dim familyList As String = ""
Dim fontFamilies() As FontFamily
Dim installedFontCollection As New Drawing.Text.InstalledFontCollection
fontFamilies = installedFontCollection.Families
Dim count As Integer = fontFamilies.Length
Dim j As Integer
MsgBox("Number of fonts:" & count)

While j < count
familyName = fontFamilies(j).Name
ComboBox1.Items.Add(familyName)
j += 1
End While

0 comments:

Post a Comment