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

下面是一些VB问题的典型回答，希望对广大VB爱好者有所帮助。
问题:如何将文本框中的特定字符或文本字符串编程为同时突出显示？

回答:因为普通的TextBox控件不支持不连续字符串的同时高亮显示，所以我们选择RichTextBox控件。点击项目选择单项，点击组件在弹出的下拉菜单中选择单项，在弹出的对话框中选择Microsoft RichTextBox Control 5.0复选框确认加载RichTextBox控件。

新建一个项目，在窗体上添加一个RichTextBox控件和两个Command (button)控件，都采用系统Name属性的默认值；将RichTextBox的Text属性值设置为空，Command1和Command2的Caption属性值分别设置为“输入文本”和“选择字符串”。最后，添加以下VB代码:

私有子命令1—单击()

Dim字符串作为字符串

将文本作为字符串变暗

Str = "输入文本"

Text=InputBox(str)

RichTextBox1。文本=文本

末端接头

私有子命令2—单击()

Dim字符串作为字符串

将文本作为字符串变暗

整数形式的Dim位置

Dim Lenth为整数

Str = "输入要突出显示的字符串"

Text=InputBox(str)

如果文本\",则

Position=InStr(RichTextBox1。文字，文字)-1

Lenth=Len(文本)

RichTextBox1。SelStart =位置

RichTextBox1。SelLength =长度

RichTextBox1。SelColor=RGB(255，0，0)

Do While InStr(Position+Lenth+1，RichTextBox1。正文，正文)〉 0

Position = InStr(Position+Lenth+1，RichTextBox1。文字，文字)-1

RichTextBox1。SelStart =位置

RichTextBox1。SelLength =长度

RichTextBox1。SelColor=RGB(255，0，0)

环

如果…就会结束

End Sub