'查找
Private Sub MenuFind_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuFind.Click
Dim FindStr As String
FindStr = InputBox("请输入要查找的内容", "查找")
FindMyText(FindStr)
End Sub
Public Function FindMyText(ByVal text As String) As Boolean
' Initialize the return value to false by default.
Dim returnValue As Boolean = False
' Ensure a search string has been specified.
If text.Length > 0 Then
' Obtain the location of the search string in richTextBox1.
Dim indexToText As Integer = richTextBox1.Find(text, RichTextBoxFinds.MatchCase)
' Determine if the text was found in richTextBox1.
If indexToText >= 0 Then
returnValue = True
End If
End If
Return returnValue
End Function
这些功能在msdn里有的,你好好看看msdn嘛
'查找
Private Sub MenuFind_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuFind.Click
Dim FindStr As String
FindStr = InputBox("请输入要查找的内容", "查找")
FindMyText(FindStr)
End Sub
Public Function FindMyText(ByVal text As String) As Boolean
' Initialize the return value to false by default.
Dim returnValue As Boolean = False
' Ensure a search string has been specified.
If text.Length > 0 Then
' Obtain the location of the search string in richTextBox1.
Dim indexToText As Integer = richTextBox1.Find(text, RichTextBoxFinds.MatchCase)
' Determine if the text was found in richTextBox1.
If indexToText >= 0 Then
returnValue = True
End If
End If
Return returnValue
End Function
这些功能在msdn里有的,你好好看看msdn嘛
这段代码只能查找第一次出现的与text相同的文本,想查找之后出现的怎么实现啊?