|
|
在这里新建二个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
|
|
