BeforeClick example

Example for BeforeClick event

Private Sub Form1_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load
    cAvax1.StartAvax()
    Call cAvax1.Add_Line(1, 1, 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 CAvax1_BeforeClick(ByVal Sender As Object, ByVal e As Avax.cAvax.BeforeClickEventArgs) Handles CAvax1.BeforeClick
    Dim ii As Short
    Dim sStr As String
    Dim sMsg As String
    Dim h() As Integer
    Select Case e.ClickType
    Case Avax.AvaxClickType.LineVertex_ct
        sStr = "to give a line vertex"
    Case Avax.AvaxClickType.None_ct
        sStr = "for no reason"
    Case Avax.AvaxClickType.Point_ct
        sStr = "make a point"
    Case Avax.AvaxClickType.Select_ct
        sStr = "select an object"
    Case Avax.AvaxClickType.SelectWindowCorner_ct
        sStr = "select a window corner"
    Case Avax.AvaxClickType.ZoomWindowCorner_ct
        sStr = "select a zoom window corner"
    End Select
    sMsg = "You have clicked on the drawing area to " & sStr & vbCrLf & vbCrLf
    If CAvax1.GetHandlesUnderSelectCursor(h) <> 0 Then
        sMsg = sMsg & "Under the select cursor is an object." & vbCrLf
        sMsg = sMsg & "Do you want to select this object?" & vbCrLf
        If MsgBox(sMsg, MsgBoxStyle.YesNo Or MsgBoxStyle.Question, "") = MsgBoxResult.No Then
            e.fCancel = True
        End If
    Else
        sMsg = sMsg & "There is nothing under the select cursor." & vbCrLf
        MsgBox(sMsg, MsgBoxStyle.Information, "")
    End If
End Sub