请大虾们帮小虾米看看这个问题 我按书上的例子做了一个类似word里的查找功能，可是在textBox1里输入字符查找一点反应都没有。 代码如下： Private Sub Button2_Click(ByVal sender As Object,ByVal e As System.EventArgs) Handles Button2.Click Dim i As Integer i = 0 i = RichTextBox1.Find(Me.TextBox1.Text) If i > = 0 Then Me.RichTextBox1.Select(i,Me.TextBox1.Text.Length) i = i + TextBox1.Text.Length End If Me.Button2.Enabled = True End Sub Private Sub Button3_Click(ByVal sender As Object,ByVal e As System.EventArgs) Handles Button3.Click Dim j As Integer Dim i As Integer j = RichTextBox1.Find(TextBox1.Text,i,-1,None) If j > = 0 Then Me.RichTextBox1.Select(j,Me.TextBox1.Text.Length) j = i + TextBox1.Text.Length i = j End If End Sub __________________________________________________________________________ 原来是richtextBox是属性没设，不好意思。现在能查找了，也就是botton2的功能已经实现了，大家帮我看看第二段代码是不是有点问题，botton3的查找下一个还不好用。 __________________________________________________________________________ 您要在Button3_Click过程外定义一个变量来存放上一次查找的坐标i，要不然每次点击Button3时i都是0，找不到后面的词了。 __________________________________________________________________________ Dim i As Integer Private Sub Button2_Click(ByVal sender As Object,ByVal e As System.EventArgs) Handles Button2.Click i = 0 i = RichTextBox1.Find(Me.TextBox1.Text) If i > = 0 Then Me.RichTextBox1.Select(i,ByVal e As System.EventArgs) Handles Button3.Click i = RichTextBox1.Find(TextBox1.Text,RichTextBoxFinds.None) If i > = 0 Then Me.RichTextBox1.Select(j,Me.TextBox1.Text.Length) i = i + TextBox1.Text.Length End If End Sub __________________________________________________________________________ 对不起， Me.RichTextBox1.Select(j,Me.TextBox1.Text.Length) 这一句里的j也要换成i。 __________________________________________________________________________ 谢谢楼上的，已经通过了。 什么时候我也能看别人的代码找出错误就好了！ __________________________________________________________________________ 很快，我也刚学。 __________________________________________________________________________ 给分 __________________________________________________________________________ 原文链接：https://www.f2er.com/vb/263841.html