IsChanged example

Example for IsChanged property

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)
End Sub

Private Sub Form1_FormClosing(ByVal eventSender As System.Object, ByVal eventArgs As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
    Dim Cancel As Boolean = eventArgs.Cancel
    Dim UnloadMode As System.Windows.Forms.CloseReason = eventArgs.CloseReason
    Dim sMsg As String
    Dim iAns As Short
    If cAvax1.IsChanged = True Then
        sMsg = "Do you want to save the changes of the current drawing?"
        iAns = MsgBox(sMsg, MsgBoxStyle.Exclamation + MsgBoxStyle.YesNoCancel, "Avax Vector ActiveX")
        Select Case iAns
        Case MsgBoxResult.No
            Cancel = 0
            'Exit without save...
        Case MsgBoxResult.Yes
            Cancel = 0
            'Save the drawing...
        Case MsgBoxResult.Cancel
            Cancel = 1
        End Select
    End If
    eventArgs.Cancel = Cancel
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