创建搜索并浏览每个结果

Question

基本上我有一个 RichTextBox、TextBox 和一个按钮。 RichTextBox 中有一些文本，Textbox 用于键入单词，而按钮用于查找它。到目前为止，我正在使用：

Dim index As Integer = 0
Dim temp As String = txtbx_Write.Text
txtbx_Write.Text = String.Empty
txtbx_Write.Text = temp

While index < txtbx_Write.Text.LastIndexOf(TextBox1.Text)
  txtbx_Write.Find(TextBox1.Text, index, txtbx_Write.TextLength, RichTextBoxFinds.None)
  txtbx_Write.SelectionBackColor = Color.DarkGray
  index = txtbx_Write.Text.IndexOf(TextBox1.Text, index) + 1
End While

基本上，当我输入例如“The”，如果 RichTextBox 中有“The”，它会为该单词设置背景颜色，并为每个“The”单词设置背景颜色。

我想要做的是，当我输入单词“The”时，会有一个标签，其中包含结果数量，并且每次用户单击“查找”按钮时，它都会选择单词“The”并继续选择并继续，直到不再有。

很像本机记事本查找功能，它会选择并遍历每个单词。

Answer 1

不确定你想用那个临时变量做什么......你可能想在完成后写一些东西来清除背景颜色。

无论如何，您可以为“查找”按钮执行以下操作：

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    If Not RichTextBox1.Focused Then
        RichTextBox1.Focus()
    End If
    RichTextBox1.Find(TextBox1.Text, RichTextBox1.SelectionStart + RichTextBox1.SelectionLength, RichTextBoxFinds.None)
End Sub

阅读 MSDN 中的 Find 方法了解更多详情。

edit：为了找到命中结果的数量，您可以简单地计算“突出显示”while循环。因为您必须浏览所有单词以突出显示它们，所以信息已经存在。

示例代码：

Dim index As Integer = 0
Dim count As Integer = 0
While index < RichTextBox1.Text.LastIndexOf(TextBox1.Text)        
    RichTextBox1.Find(TextBox1.Text,index,RichTextBox1.TextLength, 
                      RichTextBoxFinds.None)
    RichTextBox1.SelectionBackColor = Color.DarkGray
    index = RichTextBox1.Text.IndexOf(TextBox1.Text, index) + 1
    count = count + 1
End While

count 将保存结果数量。