FindHandlesArrByKey example

Example for FindHandlesArrByKey method

Private Sub Form1_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load
    Dim h As Integer
    Command1.Text = "FindHandlesArrByKey"
    cAvax1.StartAvax()
    h = cAvax1.Add_Line(0, 0, 0, 15, 0, 0)
    Call cAvax1.SetHandleKey(h, "Line #1")
    h = cAvax1.Add_Line(0, 15, 0, 15, 15, 0)
    Call cAvax1.SetHandleKey(h, "Line #2")
    h = cAvax1.Add_Line(15, 0, 0, 15, 15, 0)
    Call cAvax1.SetHandleKey(h, "Line #3")
    h = cAvax1.Add_Line(0, 0, 0, 0, 15, 0)
    Call cAvax1.SetHandleKey(h, "Line #4")
    h = cAvax1.Add_Line(0, 0, 0, 15, 15, 0)
    Call cAvax1.SetHandleKey(h, "New Line #1")
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 sKey, sStr As String
    Dim lHandles() As Integer
    Dim fFindWholeWordOnly As Boolean
    Dim fMatchCase As Boolean
    Dim lMax, lCnt As Integer
    sKey = "Line"
    fFindWholeWordOnly = False
    fMatchCase = False
    lMax = cAvax1.FindHandlesArrByKey(sKey, lHandles, fFindWholeWordOnly, fMatchCase)
    If lMax <> 0 Then
        sStr = "Handles with the frace" & Chr(34) & sKey & Chr(34) & vbCrLf
        For lCnt = 1 To lMax
            sStr = sStr & Str(lHandles(lCnt)) & vbCrLf
        Next lCnt
        MsgBox(sStr, MsgBoxStyle.Information, "FindHandlesArrByKey")
    Else
        MsgBox("No handles found", MsgBoxStyle.Critical, "FindHandlesArrByKey")
    End If
End Sub