vb用instr函数实现查找功能

vb用instr函数实现查找功能

Dim si As Long

Private Sub Command1_Click()
si = InStr(si + 1, RichTextBox1.Text, Text1.Text)
If si Then
RichTextBox1.SetFocus
RichTextBox1.SelStart = si - 1
RichTextBox1.SelLength = Len(Text1.Text)
Else
MsgBox "未找到！"
End If
End Sub追问找是可以找到，可是每次要关掉窗口才找得到，连续点击按钮没用。。。找是可以找到，可是每次要关掉窗口才找得到，连续点击按钮没用。。。追答我这里测试是可以连续找的，不知道你是怎么用的。