VB查找程序

查找按钮：先单击“查找”按钮，由出现输入对话框键入欲查询的字符串，再单击“确定”按钮开始查找该字符串，若有找到反白该字符串，若没有找到则弹出消息框，提示没有找到该字符串。

这个代码我有 音汉字典 代码 太多了不好搞得 我门QQ聊

放置一个文本框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

如果还没找到联系我，给你示例程序