How TO:应用特定字体文件字体[4]

    Private gInstance As New Action(Of Drawing.FontFamily)(AddressOf GetFontFamilyName)

    Private gStrings As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"

    Private Sub GetFontFamilyName()Sub GetFontFamilyName(ByVal sender As Drawing.FontFamily)
        Console.WriteLine(sender.Name)
    End Sub

    Private Sub Button1_Click()Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click