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

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。



全球移动App:Top 52发行商排行榜 知新网CTO:从程序员的视角,实践精益创业 罗永浩锤子ROM:小团队的75项微创新 谷歌知识图谱扩展到Android平板电影中 云计算大战升温 服务器OEM押注OpenStack 如何将战略性的内容策略融入进网页设计中 数字天堂CTO:移动行业应用开发“潜规则” 众联智领CTO:从idea到面目全非的创业产品 CMDN Club 25期:knewone与路况电台的精益创业法则 Windows Blue的孪生兄弟?Office Gemini浮出水面 HTML5开发平台Ludei将支持3D游戏开发 《二战风云》发布至今,已为顽石互动狂赚2.7亿 腾讯开源基于HTML5技术的专业级图像处理引擎 AlloyImage Linux容器运行时Docker开源 360上线第三方漏洞收录平台 将现金奖励爆料者 UC推出iOS平台首个支持WebGL的浏览器 魔兽之父专访:今年游戏产业会出现一场革命 Instagram 5位传奇工程师背后的技术(PPT全译) Google云计算专家Jeff Dean与Sanjay Ghemawat获ACM Infosys基金会大奖 谷歌承诺不对开发、发行和使用开源软件的人专利诉讼 Web框架排行榜 Netty、Servlet和Vert.x位列前三 DARPA慷慨解囊的背后:Python与大数据的火花 研发周报:神奇!1KB JavaScript代码编写的3D蜜蜂 移动周报:65岁传奇Android工程师谈开发 “部落战争”开发商Supercell融资1亿美金 投资公司争先恐后 Kiip 90后华裔励志故事:从遭解雇到誉满全球 大数据基因测序的成本逼近1000美元:个性化医疗的时代来临 携程开放平台发力 将实现旗下产品全流程API支持 Puppet labs发布2013自动化运维报告 “国”字号开发者:航旅纵横负责人薄满辉专访 金山云杨钢:核心算法保证安全和低成本 怎样设置msflexgrid某一列的颜色? 用 DHCP 分配了二个网段的IP。 怎么能抓到密码? 在运行时想改变一个label的字体怎么改变,有没有做过的,label的属性在设计时是可以改的 fatal error C1010 找一个和VB的属性区一样的代码,控件或类库均可 如何调用在不同的窗体里自定义的过程 一个技术探讨问题,我想知道象在WORD等软件中插入图形或图象后,还能把它选择,并移动是怎样实现的? 请问:在另一个.asp文件中如何调用相同的变量? WEB初级应用问题 DIALOGBAR问题 请想报考明年的网络设计师的朋友进来聊聊 Oracle面向对象特征讨论,请进! 我学会VISUAL C++ 到底要多少时间 线程调试问题 大家一起进来讨论oracle和sql server的日志哦 请指教如果设置服务器端COM组件的权限,使终端可以访问到?分数好说啦,急,高手快帮忙! 如何把程序嵌入到widows Expolore 中? 今天心情特好!散分 在vc下怎样调出window下的“打开方式”对话框,他是类还是控件!请高手指点! 一个门外汉的问题~~~~ 谁知道windows共享密码如何算的 vc中asm怎么不執行? 在开始菜单点右键,拉出的菜单里的内容,怎么添加删除?? 帮忙找一个和VB的属性区一样的代码,控件或类库均可。 Word 中字体的问题 我买了一台SLE4442读写器, 为什么不能写 谁用过FAST REPORT 请求帮助 realplayer中文件菜单栏中的以看过的文件名,怎么删除??? php如何改写或者是添加一个cron的命令参数给linux服务器? SQL Server 能制作表单和报表吗?????? DirectDraw页面格式问题(两个)。答对100分绝对送上,从不食言!(附源码) VC++中的内部交互调试器在哪? 人邮版的C++面向对象高效编程如何? realplayer中文件菜单栏中的以看过的文件名,怎么删除? 如何实现真正的无标题栏的拖动? 用"select top n"取了前n纪录后,要再接着取n+1至2n条纪录,接着再取2n+1至3n……,这种取法要怎样实现呢? 如何在Excel中编制一个宏? 如何得知程序的一个实例正在运行? 送分了,送分了,虽然不多,但天天有! 为什么select count(*) from test 时,提示表或示图不存在!!! 请问如何设置mp3文件的在线播放?? 请问在内部局域网正常的情况下,打印机无法共享(共享以后没有效果)的主要原因是什么?谢谢! ===我对Linux上的Oracle8.1.7.0.1操作的时候只读,为什么啊???==== 请给我一个GetCurrentDirectory使用实例, 问一个深入MFC的简单问题 请问有关delphi项目编译的一个小问题。 各位,那里有VisualAge for Java4.0下在?我从ibm的网站上下载了,但是安装不了,说是语言不对! shcv.dll 编译不过去!!!!! have a test!have a test!have a test!have a test!have a test!have a test!have a test!have a test! 在三相异步电动机正反转控制电路中,若按下反转按钮,会出现什么情况 10千瓦以下的三相异步电动机的启动电流是多少?应该如何计算并选取空气开关?10千瓦以下的三相异步电动机启动时该如何选取空气开关大小?本人是个初学者, 小明按1:100的比例尺画出教室的长是acm,小强按1:150的比例尺画出的教室长是多少? 电气正反转控制电路中,自锁,机械互锁,电气互锁,分别有什么作用 求三相异步电动机的降压起动控制电路图 小明按1:100的比例尺画出教师长的线段是7.5厘米,小强按照1:150的比例尺画出这个教室长的线段应是()厘米. 两个数相除商是7.2,如果把被除数扩大10倍,除数不变,则商是().如果被除数、除数同时扩大5倍,则商是() 已知一长方形教室面积65平方米,如果把它的长扩大到原来的10倍,宽缩小到原来的1%,这个教室的面积应是多少? 小明安1:100的比例尺画出教室长的线段是a厘米,小强按照1:500的比例尺画出这个教室长的线段应是()厘米 两个数相除的商是15,如果除数不变,被除数缩小3倍,商应是().被除数乘10,除数(),商不变. 以知一个长方形的面积是65平方米,如果扩大到原来的10倍,宽缩小到原数的百分之一,面积是多少?如果有人知道4年级下的数学做业之数学广角? 当x≠0时,(2x-1)的0次幂为什么无意义 两个数相除商是30,除数扩大5倍,使商不变,被除数必须()A.扩大5倍,B.缩小5倍,C.不变 一间教室的面积约为56平方米,它的百分之一和百万分之一是多少,用科学计数法表示.它的百分之一和百万分之一是多少平方千米? (x-1)的零次幂加2-x分之1有意义,则x的取值 两个数相除的商是6.2,如果被除数和除数都扩大到原来的10倍,商是( );如果被除数不变,除数缩小到原来的100分之一,商就( ),结果是( ) 3/4*3.14的x次幂的系数是多少 当x___时,(x+2)/(x-2)-(x-1)0次幂,有意义 求图形的体积要体积公式和计算过程以及答案快 在单台的三相异步电动机的控制指示灯中,故障指示灯与哪个指示灯同亮,或者是单独亮? 当x趋向于无穷时,1的x次幂=?,x的0次幂=? (3x²+1/x)八次方 展开式中,则x七次方的二项式系数是? 三相异步电动机控制电路中如何使用发光二极管做指示灯三个电动机,两用一备,当某个电动机出故障时自动切换备用电机,要求用发光二极管做电源指示,运行指示,故障指示,每个电动机上都有 试画出用两个启动和两个停止按钮在两个不同地方,对同一台三相异步电动机进行“启动”和“停止”控制电路 等比数列{an}中,a4=6,则a2·a6等于 把一块长和宽的比为5:3的长方形土地,用1/1000的比例尺画在图纸上,周长是16cm,实际面积是? 三相异步电动机行程控制电路的接线图怎么画如题,最好是有图,很随便的图也行.因为我对这个一窍不通,文字的话我应该看不懂. 15KW的三相异步电动机的额定电流是多少啊? 已知an是等比数列,(a4+a8)(a6+a10)=49,则a5+a9等于 试画出既能连续工作,又能点动工作的三相异步电动机的控制电路. 一台三相异步电动机为17千瓦,计算这台电动机的额定电流是多少? 在等比数列{an}中,a4+a5=10,a6+a7=20,则a8+a9等于 在等比数列{an}中,已知a6-a4=24,a3a5=64,求{an}前8项和 三相异步电动机的额定电流如何求?有一台三相异步电动机,额定功率为2.2千瓦,额定电压380v,功率因数0.86,效率0.88,求额定电流. (x+1/x)的九次方的展开式中X的三次方的系数为多少 小明住的房间地面是长方形,长4米,宽3米.(1)小明房间的长和宽分别缩小到原来的一百分之一后,场小明住的房间地面是长方形,长4米,宽3米.(1)小明房间的长和宽分别缩小到原来的一百分之 三相异步电动机知道额定功率求额定电流的算法要不要考虑电机的效率,那样可以经济些, 利用延时器星形转三角形降压启动电路图 明明住的房间地面是长方形,长4米,宽3米.(1)我们把明明房间的长和宽分别缩小到原来的一百分之一,得到的长和宽分别是多少厘米?(2)请分别算算房间地面的实际周长和缩小后的周长,再比 关于三相异步电动机电动机额定电流的问题3KW以下的三相异步电动机 380V Y接法的额定电流和220V 三角接法时的额定电流是否是一样的? 鼠笼式三相异步电动机做星形连接时的线电流是做三角形连接时线电流的多少倍? 若某数列前n项和公式Sn=a^n-1,则an是等比数列吗证明 已知数列{an}中,a1=-2008点P(an,a(n+1))在直线x-y+3=0上,(1)求数列{an}通项公式(2)数列{an}的前多少项的和最小 星三角形降压启动电路帮忙分析下电路原理啊!和排故步骤! 一个长方形的长增加10%,宽缩短10%,那么现在长方形面积是原长方形面积的百分之几?最好要算式, 技术经济题.贷款问题.求详细步骤.计算公式1. 某企业获得一笔10万元的贷款,偿还期为5年,按年利率10%计复利,分别计算以下4种还款方式每年还款额、5年还款总额及还款额的现值.(20分)(1) 三相异步电动机星-三角形降压启动控制1、画出继电器-控制器控制电路,说明工作原理.2、画可编程序控制器控制的I/O配线图.3、画可编程序控制器控制的梯形图. 数列{an}的前n项和为Sn=3an+2(1)证明:数列{an}是等比数列(2)求通项公式 已知等比数列{an}中,a4=7,a6=21,则a8等于? 已知等比数列{an}的各项都是正数,且a6*a10+a3*a5=41,a4*a8=4,则a4+a8 一个长方形各边按一百分之一缩小后的长是0.84米,宽是0.3米.求这个长方形的实际长和宽,并求出面积! 一间教室长12米,宽8米,画在比例尺为1:300的平面图上,长应画()厘米,宽应画()厘米. 已知等比数列{an}的各项都是正数,且a6*a10+a3*a5=41,a4*a8=4,求a4+a8 设数列{an}的前n项和Sn=2(an-3),证明{an}为等比数列,并求通项公式 二项式系数的和是什么? 一间教室长12米,宽8米,画在比例尺是1比400的平面图上,长应该画()厘米,宽应该画()厘米 等比数列{an}中多项均为正值且a6*a10+a3*a5=41,a4*a8=5 求a4+a 这个计算公式,是什么? 计算这个式子,详细过程 小明按1:100的比例尺画出教室长的线段是a厘米,小强按照1:150的比例尺画出这个教室长的线段应是( )
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn