Private Sub cmdFind_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdFind.Click
Dim fMain As New frmMain
fMain = CType(Me.Owner, frmMain)
Dim lstr As String = fMain.tb1.Text()
Dim lstrFind As String = cmbFind.Text
Dim lintSelStart As Int64 = lstr.IndexOf(lstrFind, lintLastIndex)
If lintSelStart = -1 Then
fMain.tb1.Select(0, 0)
lintLastIndex = 0
Else
fMain.tb1.Select()
fMain.tb1.Select(lintSelStart, lstrFind.Length)
lintLastIndex = lintSelStart + 1
End If
End Sub
Private Sub cbCase_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbCase.CheckedChanged
If cbCase.Checked Then
'To do: need code to display only exact match
End If
End Sub
Private Sub cmdReplace_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdReplace.Click
Dim fMain As New frmMain
fMain = CType(Me.Owner, frmMain)
fMain.tb1.SelectedText = tbReplace.Text
End Sub
Private Sub cmdCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdCancel.Click
Me.Close()
End Sub