用VB实现象Windows记事本的一些功能
rt <> 0 Then Text1.SelStart = 0
Search = InputBox("请输入要查找的字词：")
sFind = FindMyStr(Text1, Search)
3.继续查找[就简单了]：
Dim sFind As String
sFind = FindMyStr(Text1, Search)
这样，搜索功能就基本具备了，如再提供向上查找功能，则更令人满意。
以上是笔者在学习、探索中的一些体会，在PWin98、VB中文企业版6.0下调试成功。如有不妥当之处，敬请各位高手斧正！
Search = InputBox("请输入要查找的字词：")
sFind = FindMyStr(Text1, Search)
3.继续查找[就简单了]：
Dim sFind As String
sFind = FindMyStr(Text1, Search)
这样，搜索功能就基本具备了，如再提供向上查找功能，则更令人满意。
以上是笔者在学习、探索中的一些体会，在PWin98、VB中文企业版6.0下调试成功。如有不妥当之处，敬请各位高手斧正！