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中相应的字符串将以红色高亮显示。