計算機等級考試二級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

位律師廻複