当前位置:主页   - 电脑 - 程序设计 - VB
在TextBox中查找和继续查找
来源:网络转载   作者:未知   更新时间:2008-12-31
收藏此页】    【字号    】    【打印】    【关闭
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->


其它资源
来源声明

版权与免责声明
1、本站所发布的文章仅供技术交流参考,本站不主张将其做为决策的依据,浏览者可自愿选择采信与否,本站不对因采信这些信息所产生的任何问题负责。
2、本站部分文章来源于网络,其版权为原权利人所有。由于来源之故,有的文章未能获得作者姓名,署“未知”或“佚名”。对于这些文章,有知悉作者姓名的请告知本站,以便及时署名。如果作者要求删除,我们将予以删除。除此之外本站不再承担其它责任。
3、本站部分文章来源于本站原创,本站拥有所有权利。
4、如对本站发布的信息有异议,请联系我们,经本站确认后,将在三个工作日内做出修改或删除处理。
请参阅权责声明