如何为文本添加高亮显示“查找”功能？

我想在第一个文本框中找到一个带有大量文本的文本框，另一个带有字符串。我用这个来发现字符串是否位于：如何为文本添加高亮显示“查找”功能？

Text1 = TextBox1.Text 
    WordtoFind = TextBox2.Text 
    O = Text1.IndexOf(WordtoFind) 

    If (O = -1) Then 
     Label.Text = "String was not found" 
    Else 
     Label.Text = "String was found" 
    End If

有人可以帮我突出显示找到的单词吗？谢谢。

来源

2014-09-06 Jim

的WebForms？的WinForms？其他？ – user2864740 2014-09-06 19:27:29

你可以使用这个RichTextBox的 – 2014-09-06 19:39:58

试试这个：

If (O = -1) Then 
    Label.Text = "String was not found" 
Else 
    Label.Text = "String was found" 
    TextBox1.Focus() 
    TextBox1.Select(O, WordtoFind.Length) 
End If

编辑

Dim wordPosition As Integer 

Text1 = TextBox1.Text 
WordtoFind = TextBox2.Text 
wordPosition = Text1.IndexOf(WordtoFind) 

If (wordPosition = -1) Then 
    Label.Text = "String was not found" 
Else 
    Label.Text = "String was found" 
    TextBox1.Focus() 
    TextBox1.Select(wordPosition, WordtoFind.Length) 
End If

瓦尔特

来源

2014-09-06 20:16:15

这并不突出做的，就是我所寻找的，但 Textbox1.Select（0，WordtoFind.Length）就开始在文本开头的高亮由于“0 “ 在那里。使用select函数时，第一个值必须是整数，所以我一直在试图找到如何在第一次出现WordtoFind时开始选择，但还没找到方法。 – Jim 2014-09-08 22:05:53

@Jim它不是* 0（零）*，而是代码中的字母* O *。 – 2014-09-09 02:37:06

如何为文本添加高亮显示“查找”功能？

回答

相关问题