vb做记事本查找下一个的代码

✀继续查找PrivateSub mnuFindOn_Click()RichTextBox1.SelStart= RichTextBox1.SelStart + RichTextBox1.SelLength + 1RichTextBox1.FindsFind, , Len(RichTextBox1)End Sub 按这个代码做的写完提示然后接着把他写到前面去还是不行求高手解答万分感谢！！！！！！！！！

2026年09月21日 04:10

有2个网友回答

网友（1）：

if find(要查找的, 开始位置（可以是文本框 selectstart）, binery) > 0 then
文本框.selectstart = find(要查找的, 开始位置（可以是文本框 selectstart）, binery)
文本框.selectlenth = 要查找的.lenth
end if

网友（2）：

图上不是说了吗，start没赋值

vb做记事本 查找下一个的代码

vb做记事本查找下一个的代码