说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

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

HTML文档下载 WORD文档下载 PDF文档下载
VB中如何实现文本查找功能
目前流行的软件一般在“编辑”菜单中都有“查找”、“查找”下一个功能,这个功能看起来复杂,实际上实现起来是很简单的,下面介绍实现方法。

  实现查找功能的关键在于使用InStr函数,这个函数可以找到指定的字符串在另一字符串中最先出现的位置,这个函数需要的的参数是起始位置、主体字符串、要查找的字符串。“查找下一个”功能的实现就是把当前位置作为起始位置继续查找。举

  例说明如下:

  界面安排:放置一个文本框TEXT1供用户输入文本或调入文本文件,用来做在其中查找文本的验证,放置另一个文本框TEXT2供用户输入要查找的字符串,放置两个命令按钮,Command1、Command2,其标题分别为“查找”、“查找下一个”。

  在窗体的总体声明部分写如下代码 :

Option Explicit
'定义目标位置变量
Private TargetPosition As Integer
'编写一个查找函数
Private Sub FindText(ByVal start_at As Integer)
Dim pos As Integer
Dim target As String
'获取用户输入的要查找的字符串
target = text2.Text
pos = InStr(start_at, text1.Text, target)
If pos > 0 Then '找到了匹配字符串
TargetPosition = pos
text1.SelStart = TargetPosition - 1
'选中找到的字符串
text1.SelLength = Len(target)
text1.SetFocus
Else '没有找到匹配的字符串

MsgBox "没找到!"
text1.SetFocus
End If
End Sub

双击“查找”命令按钮:
Private Sub command1_Click()
'从第一个字符处开始查找
FindText 1
End Sub

双击“查找下一个”按钮:

Private Sub command2_Click()
'从当前位置继续查找
FindText TargetPosition + 1
End Sub
  运行程序,在文本框1中输入一些字符串,在文本框2中输入要查找的字符串,单击 “查找”按钮和“查找下一个”按钮进行验证。

  程序调试环境:中文VB5.0,中文WIN95。



《最终幻想》之父访谈:我为何转战F2P游戏开发 寓教于乐 11款最适合教儿童编程的学习工具 苹果iPhone6获工信部许可 本月17日在内地发售 使用Redis之前5个必须了解的事情 妆媒体微信公众号背后的酸甜苦辣 TIOBE 2014年10月编程语言排行榜:Dart首次进入前20 Instagram工程师教你如何改善App的性能 利用Neo4j对电影评论进行深度学习情感分析 【简讯】SQLite 3.8.7来了 性能提升超50% 浏览器重定向性能分析经验谈 豆瓣工程副总裁段念:看板方法核心瞄准流程中的“流动性” 【图文实录】CTO俱乐部公开课:探讨如何成为技术团队管理者 资深产品交付咨询顾问何勉谈看板:“以价值拉动”解决敏捷困扰 开源HTML5游戏引擎Frozen背后的技术 MDCC 2014精彩日程、演讲嘉宾、参展开发团队全揭秘(图) Hi,约吗?2014华为开发者联盟沙龙(上海站)火热报名中! 找虐新方向!TinyScreen显示屏打造最小游戏机 精彩继续 MDCC2014首次推出技术训练营 复制器官哪家强?3D生物打印找PrintAlive 电信开放平台应用内计费SDK 助力App小额快捷支付 专心做设计!开源跨平台应用开发框架Appverse Mobile 无线盛宴尽在阿里百川开放大会 医学界的Instagram:加拿大重症监护医生开发照片分享应用 2014中国移动开发者大调查第二批获奖名单揭晓 基于OpenStack的私有云开发部署实践 亚马逊云平台的迁移过程 【干货】微信企业号开发资源集锦 CSS生日快乐:CSS之父Håkon Wium Lie访谈录 好友近2000万,绑定银行卡过千万,日会话近百万,招商服务号成功之道 一名程序员十年技术之路的思考与感悟 聚焦企业号、服务号典型案例 微信开发者大会深圳站正式开启 求助!关于用74LS181模拟8位机的资料!(散分啦,小弟急用啊!) 我的WINDOWS2003的DIRECTX 3D功能用不了,为什么? 如何用命令来修改设置计算机的ip,网关和dns等内容 不知道到那里问,借个人气了 托架的图标 散分! 如何建立一个这样的数据窗口? 上次未解决的问题(附源程序,及时结贴)(输入地址时http://ip/default.asp能正常使用,但是用http://ip则只能显示首页) 这个分页查询的SQL语句有什么问题?高分求教!!! 怎样求一个集合的子集? 我应该怎么做(项目经理请进,至少代表全国大部分公司的问题),一个年轻软件开发人员的问题 zzzzzzzzzzzzzzzzzzzz 高手指点迷津,如何更新数据库里的image字段 算法问题,再请教各位高手! 急急急,有关classpath 急!如何把picturebox中的内容保存成图片呢! Web Service中怎样验证身份? Web Service性能测试,欢迎评论,来者有分! 散分! 数据类型转换 ColdFusion的语言 - CFML win2003安装后,每个一秒种读一次盘是否正常 各位高手,最近在使用MASK PRO插件时碰到一个问题 x86汇编新手 星期六了,我还在工作....大家来帮忙看看。....很简单的问题 怎样在注册表里删除OFFICE 数据库不同,sql语句也有限制吗? 我在使用化境上传组件时碰到的问题,希望大家帮着看看,解决一下,高分求助 listview中的item能否变灰,也就是使某些项不能选 高分求各位高手急求!!!MP3问题 我的2k(PRO)我的电脑打不开,控制面版也打不开,其余的一切正常。这是为什么? 配置问题 关于上网,上传,二个大问题,高手请进,急! 一个打包问题 如何在asp里实现点一个按钮带动另一个软件的运行?急! 散分! 怎样将http下做好的网站,全盘转为https的.我准备买密匙的.想先测试一下. 如果判断当前时间是在某一时间段内? TX DATA SOURCES 數據源問題? 数据得导入和导出 给个好办法 反驳!“一位女生对男生追心仪女孩的建议”zz 请高手指点出我的小程序错误,谢谢! 菜鸟问题,这个combobox为什么不响应onchange事件?高手看看啊 高分求助 (100分) :求学生的平均分,并且排序输出成绩册!!!! 急!请问如何使用java语言获取mysql数据库的相关信息 编译4次便能成功! 下载UNIX 散分! Jsp函数中如何使用JavaScript中定义的函数? 无题! 用一支蜡烛作太阳,用一只小地球仪从西向东绕蜡烛运转,请填出相应的节气.1 ( ) 2 ( ) 3 ( ) 4 ( ) 考西语三级翻译证书需要具备什么水平 拜托看下几道不明白的化学题就告诉我吧我先感谢各位了9g 在物理模型中玻璃是不是光滑面是不是就没有摩擦力 也就没有μ 这图的等效电路图怎么画? 补充词语:晶()明撤? 玻璃很光滑,为什么玻璃上不能滑冰? 这个图的等效电路图要怎么画 我主要想知道画等效电路图的方法 地球的地心引力存在与金星吗? 玻璃泡碰到容器的底和容器壁,玻璃泡为什么会损坏?拜托各位大神初二物理题 这个电路等效图怎么画?说明为什么. 铅锑合金的性能? 我的一个插座,一个三孔的,一个二孔的,二孔的有电,三孔的无电,不知为什么? 电机相与相之间的阻值不一样是不是证明电机已经烧了?万用表测量是65,65,25 梭伦改革中,按财产多寡划分社会等级,此举打击最大的是( )、梭伦改革中,按财产多寡划分社会等级,此举打击最大的是( )A.奴隶主阶级 B.氏族贵族 C.雅典公民 D.雅典外邦人为何不是A? 请各位考过西班牙语DELE的前辈指点一下,我这个测试结果是不是要报考B2级呢? 更换烟灰缸时是将烟灰缸口对口还是底对口 英语翻译要求:按词(或词组)翻译词义,并说明该词(或词组)在短语中的词性和语法成分. 断路器CM1L-225/4300 VDFB1-63/2P-C63 VDFB2LE/32/1P+N/C16 以及其下的In Id Td的各种字母含义解释其他常用住宅断路器的解释也需要 设计新手 求助几道不明白的化学题说出来吧,感谢各位9c 材料一梭伦改革中这项重要措施的划分等级的标准是什么 西班牙语DELE B1水平,求初级翻译兼职工作,有介绍的翻译公司吗? 大家告诉我下几道不明白的化学题说出来吧,感谢各位6c 英语翻译秦氏嘉庆本注:不可善,谓钩箝之辞所不能动,如此者必先命征召之.重累者,谓其人既至,然后状其材术所有,知其所能,人或因此从化也.房立中本译:对于那些以钩钳之术仍没法控制的 地心引力的反作用力是什么?还是没有发现? 谢谢你们了2H 英语中“烟灰缸”有没有什么引申或比喻的意思? PPARα的靶标基因是什么 在括号里填上表示看的词语,什么什么远房什么什么星空?什么什么节目什么什么一眼 他喜欢抽烟,想要在生日时收到烟灰缸.(英语) 求大神解答PPAR-r +/-这个是什么意思啊,是不是这个基因缺失?这文章里有PPAR-r +/-和PPAR-r +/+两种. 我作业有一题不懂,就是用“眼”组词,眼什么什么,如:有眼无珠、近在眼前. 幼讷于言,不补充. 电解液是什么 硫和氧气发生反应生成 幼讷于言,人未之奇.的意思 蒸馏水擦脸对皮肤有好处吗? 氧气和硫反应生成一种___的____体. 幼讷于言,人未之奇的意思 蒸馏水喷脸上有什么做用 与氧反应生成硫的物质 “幼讷于言,人未之奇”是什么意思?_ 请问导电泡棉的性能优点有哪些? 直流24V转5V,用LM109,怎么样?有谁用过? 蔬菜类如何抽样,根据什么抽样的.各种蔬菜如何判定质量的好坏,什么可接收,什么不能接收 9.用标记有15^N的一条双链DNA分子,在标记有14^N的培养液中进行两次复制,其后代的DNA分子单链中,含14^N和15^N的比值为?A1:1 B2:1 C3:1 D4:1 美国为什么不准巴勒斯坦建国 MELODY的中文意思 问几个常识问题,知道不知道的都看下 用转化的策略解决问题求阴影部分面积 美国为什么要阻止巴勒斯坦入联? 我要问百度知道知道不知道知道就知道不知道就不知道不要知道说不知道不知道说知道到头来知道变成不知道不道还是不知道天知道地知道百度知道知道若要问我知道不知道知道不知道也不 某收音机可变电容器的电容量为C1时无线电波波长是入1,当为C2时,对应的波长为入2,若把电容器调为C1+C2,则能收到电磁波的波长为?我知道正确答案咋写,我只是想问为啥不能这样写:入1/入2=T1/T 若一个中学生的质量为40千克,求它的体积? 山寨的意思想要知道山寨的正确定义,不知道现在词典中有没有正规解释? “转化”是解决数学问题的一种策略,先将下图中阴影部分进行转化,再算出它的面积.(四个圆的半径都是0.) 氧与硫反应生成带有什么的气体 哪里的导电泡棉最好啊? 用转化的解决问题的策略求阴影部分的面积 拜托看下几道不明白的化学题在线等了,感谢各位4c 女子当街跳舞一丝不挂 众人围观无人给温州将军大酒店门口10个窨井盖突然炸杭州文一路超市门口 年轻流浪姑娘产下为养老保障拾遗补缺 多元化养老日渐“马英九宣示向黑心厂商全面开战:统统揪火车退票费四舍五入 今后将精确至0.政府年终突击花钱遭质疑 专家称与预算今年年底 杭州-深圳每天开行6对动车圆通就快递单个人信息被卖致歉 网民不杭州市区全面启动机动车“油改气”工程新旅游法实施将满月 导游不管购物反遭俄媒议论“中国反腐经验” 称中国采取阿富汗16名总统候选人被取消资格 1辛格访华获“不寻常待遇” 两国握手世19岁女孩把自己包装成富家女 梦想嫁财政部将续发行280亿元记账式附息国杭州地铁4号线开通后1号线票价将下降中铁建出台招待费管理办法 单张发票控京津冀等六省区市领导商议大气污染防治安监总局:呼吸类防护品合格率达96.“延长养老保险缴费达成共识”说法不准《飘落的羽毛》昆明首映获赞云南信息报双方加强技术合作“云电送越”突破20failed: 江淮汽车亮出“组合拳中国企业海外并购规模超560亿美元failed: 第九代雅阁领衔 广汽罗德曼拟再次访朝自称是金正恩好友吉林震区现坑口泥浆外溢专家否认系“大管道被挖断邢台断“气”系刑事案件已立云南信息报地产股反弹行情渐行渐远?“摔倒讹人”老太一家不服处理将申请复failed: 25.18 29.9亿万富翁破产后求职走红 贷款200余5个小时,5个游戏6对单身青年牵手成俄罗斯立法 官员用车55.8万“封顶failed: 《地心引力》:用逼真failed: “中国民办培训教育约东亚银行公益基金在滇建首所“萤火虫乐为泰党接连遭挫岌岌可危112万人昨日国考 110万当陪客
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘