Mega Code Archive

 

Categories / VB.Net Tutorial / GUI

 

Installed Font Collection

Imports System.Globalization Imports System.Text Imports System.Collections Imports System.ComponentModel Imports System.Windows.Forms Imports System.Data Imports System.Drawing Imports System.Drawing.Text Imports System public class Tester    public Shared Sub Main    Dim family As FontFamily         Dim installedFonts As InstalledFontCollection = New InstalledFontCollection()         For Each family In installedFonts.Families             Console.WriteLine(family.Name)         Next family    End Sub End class