PenLineStyleScale example

Example for PenLineStyleScale property

Private Sub Form1_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load
    Dim scl As Single
    Label1.Text = "PenLineStyleScale"
    Combo1.Items.Add("0.5")
    For scl = 1! To 2.5! Step 0.2!
        Combo1.Items.Add(Trim(Str(scl)))
    Next scl
    Combo1.Items.Add("5")
    Combo1.Text = "1"
    cAvax1.StartAvax()
    Call CAvax1.Add_Line(0, 0, 0, 22, 0, 0, Nothing, -1, -1, 1, -1)
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.PenLineStyleScale = Val(Combo1.Text)
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
        cAvax1.PenLineStyleScale = Val(Combo1.Text)
    End If
    eventArgs.KeyChar = Chr(KeyAscii)
    If KeyAscii = 0 Then
        eventArgs.Handled = True
    End If
End Sub