计算机等级考试二级VB问题和技巧解答

文章作者 100test 发表时间 2011:03:22 18:40:39
来源 100Test.Com百考试题网

　　下面有几个较为典型的VB问题的解答，希望能对广大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