紧急110：如何用richtextbox控件中的find方法向后查找

Question

你是說向前查找吧?
find方法卻省就是向後查找的.

Answer 1

直接用find方法是肯定不行的.
真要實現這樣的功能,你可以這樣:(別忘了給我1000分,呵呵)
Private Sub Form_click()
    Dim nPos As Integer
    Dim nRet As Integer
    Dim nStartPos As Integer
    Dim szSearchString As String
    nPos = RichTextBox1.SelStart  'Store last pos
    
    RichTextBox1.SelStart = 0
    nStartPos = 0
    szSearchString = "deak"
    Do While nRet <> -1
      nRet = RichTextBox1.Find(szSearchString, nStartPos, nPos)
      If nRet <> -1 Then nStartPos = nRet + Len(szSearchString)
      Debug.Print nStartPos
    Loop
    If nStartPos <> 0 Then
        nStartPos = nStartPos - Len(szSearchString)
        MsgBox "String " + szSearchString + " Found at " + CStr(nStartPos)
    Else
        MsgBox "string not found."
    End If
'    RichTextBox1.SelStart = nPos 'retore pos
End SubPrivate Sub form_load()
    With RichTextBox1
        .Text = "adeak" + vbCrLf
        .Text = .Text + "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa" + vbCrLf
        .Text = .Text + "bbdeakbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb" + vbCrLf
        .Text = .Text + "ccccccccccccccccccccccccccccccccdeakcccccc" + vbCrLf
        .Text = .Text + "ddddddddddddddddddddddddddddddddddddddddd" + vbCrLf
        .SelStart = LenB(RichTextBox1)
    End With
End Sub

Answer 2

基于nerk的出色表现，给以1500分重奖

Answer 3

ner,不好意思，由于有限制，只能加到最高分了

Answer 4

wanpy:你说的例子是哪里的，不会有向后查找的详细的方法吧