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