CurrentRedo example

Example for CurrentRedo method

Private Sub Form1_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load
    cAvax1.StartAvax()
    Call cAvax1.Add_Line(0, 0, 0, 10, 10, 0)
    Call cAvax1.Add_Line(0, 10, 0, 10, 10, 0)
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 Command1_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command1.Click
    Dim sUndoMsg, sRedoMsg As String
    Call GetUndoRedo(sUndoMsg, sRedoMsg)
    MsgBox("Undo=" & sUndoMsg & vbCrLf & "Redo=" & sRedoMsg, MsgBoxStyle.Information, "Undo/Redo")
End Sub

Private Sub Command2_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command2.Click
    CAvax1.Command = Avax.AvaxCommand.Undo_c
End Sub

Private Sub Command3_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command3.Click
    CAvax1.Command = Avax.AvaxCommand.Redo_c
End Sub

Public Sub GetUndoRedo(ByRef sUndoMsg As String, ByRef sRedoMsg As String)
    Dim UndoType As Avax.AvaxUndo
    Dim res1, res2 As Integer
    Dim s1, s2 As String
    UndoType = Avax.AvaxUndo.None_u
    res1 = cAvax1.CurrentUndo(UndoType)
    s1 = TakeMsg(UndoType)
    UndoType = Avax.AvaxUndo.None_u
    res2 = cAvax1.CurrentRedo(UndoType)
    s2 = s1
    s1 = TakeMsg(UndoType)
    swap(s1, s2)
    sUndoMsg = s1
    sRedoMsg = s2
    Exit Sub

End Sub

Private Function TakeMsg(ByVal UndoType As Avax.AvaxUndo) As String
    Select Case UndoType
    Case Avax.AvaxUndo.None_u
        Return "None"
    Case Avax.AvaxUndo.Erase_u
        Return "Erase"
    Case Avax.AvaxUndo.Unerase_u
        Return "Unerase"
    Case Avax.AvaxUndo.Create_u
        Return "Create"
    Case Avax.AvaxUndo.Rotate_u
        Return "Rotate"
    Case Avax.AvaxUndo.Mirror_u
        Return "Mirror"
    Case Avax.AvaxUndo.Scale_u
        Return "Scale"
    Case Avax.AvaxUndo.Move_u
        Return "Move"
    Case Avax.AvaxUndo.Transform_u
        Return "Transform"
    Case Avax.AvaxUndo.Zoom_u
        Return "Zoom"
    Case Avax.AvaxUndo.Stretch_u
        Return "Stretch"
    Case Avax.AvaxUndo.Freeze_u
        Return "Freeze"
    Case Avax.AvaxUndo.Thaw_u
        Return "Thaw"
    Case Avax.AvaxUndo.Change_u
        Return "Change"
    Case Else
        Return String.Empty
    End Select
End Function

Private Sub swap(ByRef a As Object, ByRef b As Object)
    Dim c As Object
    c = b
    b = a
    a = c
End Sub