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查找，运行效果如图