計(jì)算機(jī)等級(jí)考試二級(jí)VB常見問題及解答

　　問題：如何編程使文本框中文本的某一特定字符或字符串同時(shí)高亮顯示?

　　答：由于普通TextBox控件不支持不連續(xù)字符串的同時(shí)高亮顯示，所以我們選擇RichTextBox控件。單擊工程（Project）選單項(xiàng)，在彈出的下拉選單中單擊組件（Components）選單項(xiàng)，從彈出的對(duì)話框中選擇Microsoft Rich Textbox Control 5.0復(fù)選框，確定加載RichTextBox控件。

　　新建（New）一個(gè)工程，在窗體（Form）上添加一個(gè)RichTextBox控件和兩個(gè)Command（按鈕）控件，都采用系統(tǒng)默認(rèn)的Name屬性值；設(shè)置RichTextBox的Text屬性值為空，Command1和Command2的Caption屬性值分別設(shè)為“輸入文本”和“選擇字符串”。最后，添加如下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

希望與更多計(jì)算機(jī)等級(jí)考試的網(wǎng)友交流，請(qǐng)進(jìn)入計(jì)算機(jī)等級(jí)考試論壇

更多信息請(qǐng)?jiān)L問：考試吧計(jì)算機(jī)等級(jí)考試欄目