UserOsnap example

Example for UserOsnap event

Dim avHandle1 As Integer
Dim avHandle2 As Integer
Dim avHandle3 As Integer

Private Sub Form1_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load
    Call CAvax1.StartAvax()
    avHandle1 = CAvax1.Add_Line(0, 0, 0, 10, 0, 0)
    avHandle2 = CAvax1.Add_Line(0, 5, 0, 10, 5, 0)
    avHandle3 = CAvax1.Add_Line(0, 10, 0, 10, 10, 0)
    CAvax1.Command = Avax.AvaxCommand.Line_c
End Sub

Private Sub Form1_FormClosed(ByVal eventSender As System.Object, ByVal eventArgs As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
    Call cAvax1.EndAvax()
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    CAvax1.Command = Avax.AvaxCommand.UserOsnap_c
End Sub

Private Sub cAvax1_UserOsnap(ByVal Sender As System.Object, ByVal e As Avax.cAvax.UserOsnapEventArgs) Handles CAvax1.UserOsnap
    Select Case e.SelectedHandle
    Case avHandle1
        e.NewX = 7.5
        e.NewY = 0
    Case avHandle2
        e.NewX = 2.5
        e.NewY = 5
    Case avHandle3
        e.NewX = 5
        e.NewY = 10
    End Select
End Sub