PenFontNumber example

Example for PenFontNumber property

Dim iFontNumber As Short

Private Sub Form1_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load
    Dim lMax As Integer
    Label1.Text = "PenFontNumber"
    Command1.Text = "Add a text"
    lMax = System.Drawing.FontFamily.Families.Length
    If lMax > 255 Then lMax = 255
    Dim ScreenFonts(lMax) As String
    Dim lSets(lMax) As Integer
    For iFontNumber = 1 To lMax
        Combo1.Items.Add(Trim(Str(iFontNumber)))
        ScreenFonts(iFontNumber) = System.Drawing.FontFamily.Families(iFontNumber - 1).Name
    Next iFontNumber
    iFontNumber = 1
    Combo1.Text = "1"
    cAvax1.StartAvax()
    Call CAvax1.SetAvaxProperty(Avax.AvaxProp.TextScale_p, 5.0!)
    Call cAvax1.SetFonts(ScreenFonts, lSets)
    Call Combo1_SelectedIndexChanged(Combo1, New System.EventArgs())
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
    Dim sText As String
    Call CAvax1.DeleteAllItems()
    iFontNumber = Val(Combo1.Text)
    CAvax1.PenFontNumber = iFontNumber
    sText = "Current FontNumber=" & Format(iFontNumber) & vbCrLf & "Add a text now..."
    Call CAvax1.Add_Text(sText, 0, 4, 0, Nothing, 5.0!, iFontNumber, 0, -1, -1, -1, -1, False, False, False, False, -1)
End Sub

Private Sub Combo1_KeyPress(ByVal eventSender As System.Object, ByVal eventArgs As System.Windows.Forms.KeyPressEventArgs) Handles Combo1.KeyPress
    Dim KeyAscii As Short = Asc(eventArgs.KeyChar)
    If KeyAscii = System.Windows.Forms.Keys.Return Then Call Combo1_SelectedIndexChanged(Combo1, New System.EventArgs())
    eventArgs.KeyChar = Chr(KeyAscii)
    If KeyAscii = 0 Then
        eventArgs.Handled = True
    End If
End Sub

Private Sub Command1_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command1.Click
    CAvax1.Command = Avax.AvaxCommand.Text_c
End Sub