DrawingRepainted example

Example for DrawingRepainted event

Private Sub CAvax1_DrawingRepainted(ByVal Sender As Object, ByVal e As Avax.cAvax.DrawingRepaintedEventArgs) Handles CAvax1.DrawingRepainted
    Dim sMsg As String
    Dim i As Short
    sMsg = "Handles of the Objects that was Repainted:" & vbCrLf
    For i = 1 To UBound(e.pHandles)
        sMsg = sMsg & Str(e.pHandles(i)) & ", "
    Next i
    If VB.Right(sMsg, 2) = ", " Then
        sMsg = Mid(sMsg, 1, Len(sMsg) - 2)
    End If
    MsgBox(sMsg, MsgBoxStyle.Information, "Event DrawingRepainted")
End Sub

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

Private Sub Form1_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load
    cAvax1.StartAvax()
    cAvax1.PauseAvaxEvents = True
    Call cAvax1.Add_Line(0, 0, 0, 10, 10, 0)
    Call cAvax1.Add_Line(0, 0, 0, 0, 10, 0)
    cAvax1.PauseAvaxEvents = False
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