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
相关问答：
比如说要在1表中的第三列第二行单元中输入“一二三”一要粗体宋体12号字，二 不要粗体 15号字 三斜体5号字
代码应该怎么打？
LZ指的是个什么表格控件呢，貌似只能设置整个表的字体，或者某几行或几列，没有单独设� ......
Private Sub Check1_Click()
If Check1.Value = 1 Then
DTP1.Enabled = True
Else
DTP1.Enabled = False
End If
End Sub
Private Sub Check2_Click()
If Check2.Value = 1 Then
DTP2.Enabled = True
Else
......
在vb中怎么判断，插入到数据库中的值是重复的，本人才刚接触VB语言，甚是有好多地方还不懂，还请各位大侠们给出代码，谢谢了呀！！！
插入之前select一下阿。
或者写一个组合SQL插入语句，例如
IF not Exist(
& ......
在下是vb的新手，想写段程序，在vb中，使用wscript调用一些外部的命令，但是程序执行一直有错误，请各位高手帮忙解答下，谢谢。
代码如下：
VB code:
Private Function getFile_CMD(filename, filepath) As Bo ......
请各位指点下：程序代码如下mingchen = "C:\文件路径\"
cat = New ADOX.Catalog
cat.Create("Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & min ......
