' List installed font family names using generator Public Iterator Function listInstalledFontsYield() As IEnumerable(Of 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 Yield families(i).Name Next End Function
Posted: March 20, 2023
Return to the snippets listing