richtextbox里面查找文本并且高亮显示vb.net

1、1.打开Microsoft Visual Studio 2010-选择vb.net

2、点击新建项目，选择windows窗体应用程序,点确定

3、分别加入：RichTextBox1，Button1，TextBox1，如图

4、双击Button1，写下面代码Dim startText As Integer = 0 Dim endText As Integer endText 租涫疼迟= RichTextBox1.Text.LastIndexOf(TextBox1.Text) RichTextBox1.SelectAll() RichTextBox1.SelectionBackColor = Color.White While startText < endText RichTextBox1.Find(TextBox1.Text, startText, RichTextBox1.TextLength, RichTextBoxFinds.MatchCase) RichTextBox1.SelectionBackColor = Color.Brown startText = RichTextBox1.Text.IndexOf(TextBox1.Text, startText) + 1 End While

5、运行程序，在richbox1里面随便输入字母，在textbox1里面输入f,点button1查找，运行效果如图