请问如何用richtextbox控件的find方法进行多次查找？

Question

object.Find(string, start, end, options)其中的 start 和 end 的设定 值 很关键。 应 设定 为 从当前 位置 search 到 end 处，这样，在每次 查到一个 后，再 重复执行 .find 方法，就可 继续 查找。当 到 end 时，就结束。关于 这两个 值的 设定，你去看看 MSDN 。  

Answer 1

在说一句。
如果找到 你想 找的东东，
则 .find 返回的是 它在字符串 中的 位置。 用它 即可 设定 下次 search 的 start 参数 ！  

Answer 2

Dim lngFindPos As LongPrivate Sub Command1_Click()
        lngFindPos = lngFindPos + 1
        RichTextBox1.SetFocus
        
        lngFindPos = RichTextBox1.Find(Text1.Text, lngFindPos)
        
        If lngFindPos > -1 Then
            Debug.Print lngFindPos
            RichTextBox1.SelStart = lngFindPos
            RichTextBox1.SelLength = Len(Text1.Text)
        End If
End SubPrivate Sub Text1_Change()
    lngFindPos = 0
End Sub

Answer 3

我曾在开发一个记事本程序中，很认真地编写了一个通用的查找替换程序，如果你想要，来信索取吧！那可是我一整夜的时间搞出来的呀！
[email protected]