InStr函数提供了在一个字符串中查找另一个字符串的功能。我们可以把TextBox中的文本看作是一个字符串，这样，查找就得以实现了。同时，InStr还允许设置查找的起始位置，继续查找功能因而也不难解决。以下是详细的代码：
首先，声明窗体级变量：
DimSearchAsString声明要查找的变量
查找代码：
DimWhere1获取需要查找的字符串变量
Text1.SetFocus文本框获得焦点，以显示所找到的内容Search=InputBox("请输入要查找的字词：")
Where1=InStr(Text1.Text,Search)在文本中查找字符串
IfWhere1Then
若找到则设置选定的起始位置并使找到的字符串高亮
Text1.SelStart=Where1-1
Text1.SelLength=Len(Search)
Me.Caption=Where1测试用
否则给出提示
Else:MsgBox"未找到所要查找的字符串。",vbInformation,"提示"
EndIf
继续查找[注意：与“查找”有所不同]
dimWhere2
DimStartMeAsInteger查找的起始位置变量
Text1.SetFocus文本框获得焦点
StartMe=Text1.SelLength Text1.SelStart 1给变量赋值
where2=InStr(StartMe,Text1.Text,Search)令其从上次找到的地方找起
以下和“查找”的一样了
Ifwhere2Then
Text1.SelStart=where2-1
Text1.SelLength=Len(Search)
Else:MsgBox"未找到所要查找的字符串。",vbInformation,"提示"
EndIf->
文章整理：站长天空 网址：http://www.z6688.com/
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!
