---- 目前流行软件Software般在“编辑”菜单中都有“查找”、“查找”下个功能这个功能看起来复杂实际上实现起来是很简单下面介绍实现思路方法
---- 实现查找功能关键在于使用instr这个可以找到指定串在另串中最先出现位置这个需要参数是起始位置、主体串、要查找串“查找下个”功能实现就是把当前位置作为起始位置继续查找举

---- 例介绍说明如下:

---- 界面安排:放置个文本框text1供用户输入文本或调入文本文件用来做在其中查找文本验证放置另个文本框text2供用户输入要查找串放置两个命令按钮command1、command2其标题分别为“查找”、“查找下个”

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

option explicit
\'定义目标位置变量
private targetposition as eger
\'编写个查找
private sub findtext(byval start_at as eger)
dim pos as eger
dim target as
\'获取用户输入要查找串
target = text2.text
pos = instr(start_at, text1.text, target)
pos > 0 then \'找到了匹配串
targetposition = pos
text1.selstart = targetposition - 1
\'选中找到串
text1.sellength = len(target)
text1.focus
\'没有找到匹配串

msgbox \"没找到！\"
text1.focus
end
end sub

双击“查找”命令按钮:
private sub command1_click
\'从第个处开始查找
findtext 1
end sub

双击“查找下个”按钮:

private sub command2_click
\'从当前位置继续查找
findtext targetposition + 1
end sub

---- 运行在文本框1中输入些串在文本框2中输入要查找串单击 “查找”按钮和“查找下个”按钮进行验证

---- 调试环境:中文vb5.0中文win95.