请大虾们帮小虾米看看这个问题
我按书上的例子做了一个类似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

[解决办法]
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, 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
i = RichTextBox1.Find(TextBox1.Text, i, -1, RichTextBoxFinds.None)
If i > = 0 Then
Me.RichTextBox1.Select(j, Me.TextBox1.Text.Length)
i = i + TextBox1.Text.Length
End If
End Sub