vb中查找指定文本的功能实现
有一个文本框里面有内容
点击窗体时候 弹出对话框输入要查找的字符
点击确定按钮 文本框被找到的字符被涂黑显示
若文本框没有被找到的字符 则弹出对话框提示 没找到
我写了一段代码 但是实现不了这个功能
请高手帮忙
如果使用了instr函数，请一定要解释一下，谢谢！
就是 instr
代码很简单，不给你写注释了！
使用了RichTextBox1控件
microsoft rich textbox control6.0
VB code:
Private Sub Command1_Click()
Dim strInput As String
Dim strRichBox As String
Dim intPosition As Integer
strRichBox = RichTextBox1.Text
strInput = InputBox("Please Input KeyWord", "Input")
If strInput = vbNullString Then
Call MsgBox(" Input Value is Null")
Exit Sub
End If
intPosition = InStr(1, strRichBox, strInput)
If intPosition = 0 Then Call MsgBox(" Not Anly String")
Do While intPosition <> 0
With RichTextBox1
.SelStart = intPosition - 1
.SelLength = Len(strInput)
.SelColor = vbRed
End With
intPosition = intPosition + Len(strInput)
If intPosition >= Len(strRichBox) Then Exit Do
intPosition = InStr(intPosition, strRichBox, strInput)
Loop
End Sub
相关问答：
我有厂家做的ASP的监控录像（DVR）的局域网播放的源程序与控件，想要用ASP.net做一个视频回放的程序（利用他的控件）但不知如下去做，望各位指点。
先搞清楚他们的控件是怎么用的,
然后就直接用好了.
不过,如 ......
比如进程加载新的程序。
在其运行之前阻止。
然后允许后放行。
比如程序主文件路径是c:\test\test.exe，建立内容任意的文件c:\test\test.exe.manifest。
就是不知道程序文件路径。
设� ......
想在warcraft3里进行写屏操作【如对战平台中的胜负提示信息】，效果就像游戏平台中一样，我试过在一窗口中写入文字，然后一直让窗口强制最前，虽然能实现文字显示，但是文字会不断闪烁，而且有不确定BUG，通过论坛搜 ......
vb将winsock控件封装到dll问题 有什么好的思路？ 如果用Socket API呢？
例如，像下面这样封装Winsock控件，行的通？
创建ActiveX dll，添加窗体frmClient，加入WinSock控件wskClient。
类代码：
Option Expli ......
看了一些VB ini文件写入读取的方法 但是还是不知道怎么写，上面写了很长 很多，但是我不知道怎么用，我想问一下怎样写才能实现在TEXT1中写字，然后点Command1提交，然后TEXT1里面的数字就写进INI里面[Section]的Key1 ......
