vb.net - 创建 SEARCH 并浏览每个结果

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”这个词时，会有一个带有结果数量的标签，并且每次用户点击“Find”按钮时，它都会选择“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 方法的信息更多细节。

编辑:为了找到命中结果的数量，您可以简单地计算“突出显示”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 将保存结果金额。