'List installed font family names using for loop and return array.
Public Function listInstalledFonts() As String()
Dim InstalledFonts As New System.Drawing.Text.InstalledFontCollection()
Dim families() As FontFamily = InstalledFonts.Families
Dim fontNames(families.Length - 1) As String
For i = 0 To families.Length - 1
fontNames(i) = families(i).Name
Next
Return fontNames
End Function
Posted: March 20, 2023
Return to the snippets listing