Mega Code Archive

 

Categories / VB.Net / GUI

 

List Installed Fonts

Imports System Imports System.Windows.Forms Imports System.Drawing.Text Imports System.Drawing Public Class MainClass          Shared Sub Main(ByVal args As String())         ' Get the installed fonts collection.         Dim installed_fonts As New InstalledFontCollection         ' Get an array of the system's font familiies.         Dim font_families() As FontFamily = installed_fonts.Families()         ' Display the font families.         For Each font_family As FontFamily In font_families             Console.Write (font_family.Name & ", ")         Next font_family     End Sub End Class