VB编程常见问题

         由于普通TextBox控件不支持不连续字符串的同时高亮显示，所以我们选择RichTextBox控件。单击工程（Project）选单项，在弹出的下拉选单中单击组件（Components）选单项，从弹出的对话框中选择Microsoft Rich Textbox Control 5.0复选框，确定加载RichTextBox控件。
　　新建（New）一个工程，在窗体（Form）上添加一个RichTextBox控件和两个Command（按钮）控件，都采用系统默认的Name属性值；设置RichTextBox的Text属性值为空，Command1和Command2的Caption属性值分别设为“输入文本”和“选择字符串”。最后，添加如下VB代码：
　　Private Sub Command1—Click()
　　Dim str As String
　　Dim Text As String
　　str=″输入文本″
　　Text=InputBox(str)
　　RichTextBox1.Text=Text
　　End Sub
　　Private Sub Command2—Click()
　　Dim str As String
　　Dim Text As String
　　Dim Position As Integer
　　Dim Lenth As Integer
　　str=″输入要高亮显示的字符串″
　　Text=InputBox(str)
　　If Text 〈〉 ″″ Then
　　Position=InStr(RichTextBox1.Text, Text)－1
　　Lenth=Len(Text)
　　RichTextBox1.SelStart=Position
　　RichTextBox1.SelLength=Lenth
　　RichTextBox1.SelColor=RGB(255,0,0)
　　Do While InStr(Position＋Lenth＋1, RichTextBox1.Text, Text) 〈〉 0
　　Position=InStr(Position＋Lenth＋1, RichTextBox1.Text, Text)－1
　　RichTextBox1.SelStart=Position
　　RichTextBox1.SelLength=Lenth
　　RichTextBox1.SelColor=RGB(255,0,0)
　　Loop
　　End If
　　End Sub
　　按F5执行程序，单击“输入文本”按钮，在弹出的对话框中输入一些文本，确定后，刚刚输入的文本将显示在RichTextBox中；再单击“选择字符串”按钮，在弹出的对话框中输入你希望高亮显示的字符串，确定后，RichTextBox中相应的字符串将以红色高亮显示。