在TextBox中查找和继续查找

TextBox控件没有象RichTextBox控件那样集成有查找即Find功能，为此要在TextBox中查找和继续查找字符串得花点儿心思。我们可以用VB的InStr函数来实现。
　　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->