GetHandlesUnderArea example

Example for GetHandlesUnderArea method

Dim xzMin, yzMin As Single
Dim xzMax, yzMax As Single

Private Sub CAvax1_ZoomChange(ByVal Sender As Object, ByVal e As Avax.cAvax.ZoomChangeEventArgs) Handles CAvax1.ZoomChange
    xzMin = e.xMin
    yzMin = e.yMin
    xzMax = e.xMax
    yzMax = e.yMax
    Call GetHandlesUnderZoomArea()
End Sub

Private Sub Form1_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load
    Command1.Text = "Zoom"
    Command2.Text = "Previous"
    cAvax1.StartAvax()
    Call cAvax1.Add_Line(0, 1, 0, 11, 10, 0)
    Call cAvax1.Add_Line(0, 12, 0, 12, 10, 0)
    Call cAvax1.Add_Line(8, 5, 0, 10, 10, 0)
    Call cAvax1.Add_Line(6, 5, 0, 5, 10, 0)
    Call cAvax1.Add_Line(7, 0, 0, 5, 7, 0)
    Call cAvax1.Add_Line(0, -1, 0, 8, 7, 0)
    Call cAvax1.Add_Line(9, 2, 0, 3, 9, 0)
    Call cAvax1.Add_Line(0, 0, 0, 10, 0, 0)
    Call GetHandlesUnderZoomArea()
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
    CAvax1.Command = Avax.AvaxCommand.Zoom_c
End Sub

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

Sub GetHandlesUnderZoomArea()
    Dim lMax As Integer
    Dim [Handles]() As Integer
    lMax = CAvax1.GetHandlesUnderArea([Handles], xzMin, yzMin, xzMax, yzMax)
    If lMax > 0 Then
        Label1.Text = Format(lMax) & " objects inside current zoom window."
    Else
        Label1.Text = "No objects inside current zoom window"
    End If
End Sub