《查找、替換、查下一個》代碼示例

 在這里新建二個TEXT.分別為text1、text2.
新建三個按鈕。為command1、COMMAND2、COMMAND3
FORM1窗口中的text5為查找范圍。

Option Explicit
Private TargetPosition As Integer

      Private Sub FindText(ByVal start_at As Integer)
      Dim pos As Integer
      Dim target As String
      '獲取用戶輸入的要查找的字符串
      target = Text1.Text
      pos = InStr(start_at, Form1.Text5.Text, target)
      If pos > 0 Then
            '找到了匹配字符串
            TargetPosition = pos
            Form1.Text5.SelStart = TargetPosition - 1
            '選中找到的字符串
            Form1.Text5.SelLength = Len(target)
            Form1.Text5.SetFocus
      Else '沒有找到匹配的字符串
      MsgBox "沒找到！"
      Text1.SetFocus
      End If
      End Sub
Private Sub Command1_Click()
FindText 1

End Sub

Private Sub Command2_Click()
FindText TargetPosition + 1
End Sub

Private Sub Command3_Click()
FindText 1
Form1.Text5.SelText = Text2.Text

End Sub

 

原文轉自：http://www.anti-gravitydesign.com