Mega Code Archive

 

Categories / VB.Net Tutorial / GUI

 

List all font family name

Imports System Imports System.Drawing Imports System.Collections Imports System.ComponentModel Imports System.Windows.Forms Imports System.Globalization public class Tester    public Shared Sub Main         Dim family As FontFamily         For Each family In FontFamily.Families             If family.IsStyleAvailable(FontStyle.Bold) = False Then Exit For             Console.WriteLine(family.Name)         Next family    End Sub End class Aharoni Andalus Angsana New AngsanaUPC Arabic Transparent Arial Arial Black Arial Narrow Batang BatangChe Book Antiqua Bookman Old Style Browallia New BrowalliaUPC Comic Sans MS Cordia New CordiaUPC Courier New David David Transparent DilleniaUPC Dotum DotumChe Estrangelo Edessa EucrosiaUPC Fixed Miriam Transparent Franklin Gothic Medium FrankRuehl FreesiaUPC Garamond Gautami Georgia Gulim GulimChe Gungsuh GungsuhChe Haettenschweiler Impact IrisUPC JasmineUPC Kartika KodchiangUPC Latha Levenim MT LilyUPC Lucida Console Lucida Sans Unicode Mangal Marlett Microsoft Sans Serif MingLiU Miriam Miriam Fixed Miriam Transparent