VB.net 2010 视频教程 VB.net 2010 视频教程 VB.net 2010 视频教程
当前位置:
主页 > 编程开发 > vb >
  • vb教程之在TextBox中查找和继续查找

  • 2017-06-19 12:24 来源:未知
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

本栏文章均来自于互联网,版权归原作者和各发布网站所有,本站收集这些文章仅供学习参考之用。任何人都不能将这些文章用于商业或者其他目的。

相关教程
关于我们--广告服务--免责声明--本站帮助-友情链接--版权声明--联系我们       黑ICP备07002182号