VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 在TextBox中查找和继续查找
发表评论(0)作者:不详, 平台:VB6.0+Win98, 阅读:11473, 日期:2001-11-17
在TextBox中查找和继续查找
作者:土人
TextBox控件没有象RichTextBox控件那样集成有查找即Find功能,为此要在TextBox中查找和继续查找字符串得花点儿心思。我们可以用VB的InStr函数来实现。
InStr函数提供了在一个字符串中查找另一个字符串的功能。我们可以把TextBox中的文本看作是一个字符串,这样,查找就得以实现了。同时,InStr还允许设置查找的起始位置,继续查找功能因而也不难解决。以下是详细的代码:

注释:首先,声明窗体级变量:
Dim Search As String 注释:声明要查找的变量

注释:查找代码:
Dim Where1 注释:获取需要查找的字符串变量
Text1.SetFocus 注释:文本框获得焦点,以显示所找到的内容Search = InputBox("请输入要查找的字词:")
Where1 = InStr(Text1.Text, Search) 注释:在文本中查找字符串
If Where1 Then
注释:若找到则设置选定的起始位置并使找到的字符串高亮
Text1.SelStart = Where1 - 1
Text1.SelLength = Len(Search)
注释: Me.Caption = Where1 注释:测试用
注释:否则给出提示
Else: MsgBox "未找到所要查找的字符串。", vbInformation, "提示"
End If

注释:继续查找 [注意:与“查找”有所不同]
dim Where2
Dim StartMe As Integer 注释:查找的起始位置变量
Text1.SetFocus 注释:文本框获得焦点
StartMe = Text1.SelLength + Text1.SelStart + 1 注释:给变量赋值
where2 = InStr(StartMe, Text1.Text, Search) 注释:令其从上次找到的地方找起
注释:以下和“查找”的一样了
If where2 Then
Text1.SelStart = where2 - 1
Text1.SelLength = Len(Search)
Else: MsgBox "未找到所要查找的字符串。", vbInformation, "提示"
End If