FontName example

Example for FontName property

Private Sub Form1_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load
    Label1.Text = "Default Font Name="
    Label2.Text = "Default Font Character Set="
    cAvax1.StartAvax()
    Call CAvax1.Add_Text("AVAX ActiveX Control", 0, 5, 0, Nothing, 10.0!, 1, 0, -1, -1, -1, -1, False, False, False, False, -1)
    Call GetScreenFonts()
End Sub

Private Sub Form1_FormClosed(ByVal eventSender As System.Object, ByVal eventArgs As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
    cAvax1.EndAvax()
End Sub

Private Sub Combo1_SelectedIndexChanged(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Combo1.SelectedIndexChanged
    CAvax1.FontName = Combo1.Text
End Sub

Private Sub Combo2_SelectedIndexChanged(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Combo2.SelectedIndexChanged
    CAvax1.FontCharset = Val(Combo2.Text)
End Sub

Public Sub GetScreenFonts()
    Dim lFont As Integer
    Dim lMax As Integer
    Dim i As Integer
    lMax = System.Drawing.FontFamily.Families.Length
    For lFont = 0 To lMax - 1
        Combo1.Items.Add(System.Drawing.FontFamily.Families(lFont).Name)
        If lFont = 0 Then
            Combo1.Text = System.Drawing.FontFamily.Families(lFont).Name
            CAvax1.FontName = Combo1.Text
        End If
    Next lFont
    For i = 0 To 255
        Combo2.Items.Add(Format(i))
    Next i
    Combo2.Text = "0"
    cAvax1.FontCharset = 0
End Sub