Mega Code Archive

 

Categories / VB.Net by API / System Drawing

 

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