VB中如何实现文本查找功能_VB.net_黑客防线网安服务器维护基地--Powered by WWW.RONGSEN.COM.CN

VB中如何实现文本查找功能

作者:黑客防线网安VB教程基地 来源:黑客防线网安VB教程基地 浏览次数:0

本篇关键词:查找功能文本实现
黑客防线网安网讯:----目前流行的软件一般在“编辑”菜单中都有“查找”、“查找”下一个功能,这个功能看起来复杂,实际上实现起来是很简单的,下面介绍实现方法。  ----实现查找功能的关键在于使用InStr函...
----目前流行的软件一般在“编辑”菜单中都有“查找”、“查找”下一个功能这个功能看起来复杂实际上实现起来是很简单的,下面介绍实现方法
  ----实现查找功能的关键在于使用InStr函数,这个函数可以找到指定的字符串在另一字符串中最先出现的位置,这个函数需要的的参数是起始位置、主体字符串、要查找的字符串“查找下一个”功能的实现就是把当前位置作为起始位置继续查找。举
  
  ----例说明如下:
  
  ----界面安排:放置一个文本框TEXT1供用户输入文本或调入文本文件,用来做在其中查找文本的验证,放置另一个文本框TEXT2供用户输入要查找的字符串,放置两个命令按钮,Command1、Command2,其标题分别为“查找”、“查找下一个”。
  
  ----在窗体的总体声明部分写如下代码:
  
  OptionExplicit
  '定义目标位置变量
  PrivateTargetPositionAsInteger
  '编写一个查找函数
  PrivateSubFindText(ByValstart_atAsInteger)
  DimposAsInteger
  DimtargetAsString
  '获取用户输入的要查找的字符串
  target=text2.Text
  pos=InStr(start_at,text1.Text,target)
  Ifpos>0Then'找到了匹配字符串
  TargetPosition=pos
  text1.SelStart=TargetPosition-1
  '选中找到的字符串
  text1.SelLength=Len(target)
  text1.SetFocus
  Else'没有找到匹配的字符串
  
  MsgBox"没找到!"
  text1.SetFocus
  EndIf
  EndSub
  
  双击“查找”命令按钮:
  PrivateSubcommand1_Click()
  '从第一个字符处开始查找
  FindText1
  EndSub
  
  双击“查找下一个”按钮:
  
  PrivateSubcommand2_Click()
  '从当前位置继续查找
  FindTextTargetPosition 1
  EndSub
  
  ----运行程序,在文本框1中输入一些字符串,在文本框2中输入要查找的字符串,单击“查找”按钮和“查找下一个”按钮进行验证。
  
  ----程序调试环境:中文VB5.0,中文WIN95.->

    黑客防线网安服务器维护方案本篇连接:http://www.rongsen.com.cn/show-14511-1.html
网站维护教程更新时间:2012-04-03 01:08:12  【打印此页】  【关闭
我要申请本站N点 | 黑客防线官网 |  
专业服务器维护及网站维护手工安全搭建环境,网站安全加固服务。黑客防线网安服务器维护基地招商进行中!QQ:29769479

footer  footer  footer  footer