'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