FontFamily.IsStyleAvailable
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
Related examples in the same category