計(jì)算機(jī)等級(jí)考試二級(jí)VB問(wèn)題和技巧解答

下面有幾個(gè)較為典型的VB問(wèn)題的解答，希望能對(duì)廣大VB愛(ài)好者有所幫助。
    問(wèn)題：如何編程使文本框中文本的某一特定字符或字符串同時(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
    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