vb用instr函数实现查找功能
答案:1 悬赏:30 手机版
解决时间 2021-03-25 23:12
- 提问者网友：树红树绿
- 2021-03-25 18:38
vb用instr函数实现查找功能
最佳答案
- 五星知识达人网友：拜訪者
- 2021-03-25 20:04
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追问找是可以找到，可是每次要关掉窗口才找得到，连续点击按钮没用。。。找是可以找到，可是每次要关掉窗口才找得到，连续点击按钮没用。。。追答我这里测试是可以连续找的，不知道你是怎么用的。
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追问找是可以找到，可是每次要关掉窗口才找得到，连续点击按钮没用。。。找是可以找到，可是每次要关掉窗口才找得到，连续点击按钮没用。。。追答我这里测试是可以连续找的，不知道你是怎么用的。
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯