vb 在textbox里搜索字符，并高亮显示结果

来源：百度知道 编辑：UC知道 时间：2024/09/22 10:36:01
如题....
还有，或者高亮显示搜索结果所在的行。
先谢谢了

'将大段内容放在Text1中,要找的词放在Text2中,Command1开始查找.
Private Sub Command1_Click()
Dim i As Integer
i = InStr(1, Text1.Text, Text2.Text)
If i > 0 Then
Text1.SelStart = i - 1
Text1.SelLength = Len(Text2.Text)
Text1.SetFocus
Else
MsgBox "没有你要找的东东。", vbOKOnly, "温馨提示"
End If
End Sub

可以搜索并选中第一个搜索结果。