求VB的全文搜索功能代码

Question

小弟欲做一个能打开TXT文件并对其搜索的程序，类似于写字板的搜索程序，需要在搜索时能自动跳转到那一行并且可以连续搜索的那样，可参考写字板的搜索功能。小弟使用的是select代码，一直出错。望各位老大能够帮忙。谢谢！！！

Answer 1

小弟使用的是select代码，一直出错。

Answer 2

select是过去弄sql，有点基础。现在还是不会整，参考了http://blog.csdn.net/nanzhiwen666/archive/2007/11/21/1897177.aspx这篇文章，还是不行。求解答。

Answer 3

那就这样：
Dim Str As String, Tmp As String
Str = Text2.Text '这里的Text2输入的是要搜索的文本
For i = 1 To Len(Text1.Text) '循环查找，Text1是显示文本内容的文本框
  Tmp = Mid$(Text1.Text, i, Len(Text2.Text)) '取出与要搜索内容同样长度的字符串
  If Tmp = Str Then  '与要搜索的内容比较
    Text1.SetFocus
    Text1.SelStart = i '将光标移到搜索结果的位置
    Text1.SelLength = Len(Text2.Text) '将要搜索到的内容用高亮显示
    Exit For
  End If
  DoEvents
Next