等級考試二級VB常見問題和技巧解答[1]

下面有幾個較為典型的VB問題的解答，希望能對廣大VB愛好者有所幫助。
    問題：如何編程使文本框中文本的某一特定字符或字符串同時高亮顯示?
    答：由于普通TextBox控件不支持不連續(xù)字符串的同時高亮顯示，所以我們選擇RichTextBox控件。單擊工程(Project)選單項，在彈出的下拉選單中單擊組件(Components)選單項，從彈出的對話框中選擇Microsoft Rich Textbox Control 5.0復選框，確定加載RichTextBox控件。
    新建(New)一個工程，在窗體(Form)上添加一個RichTextBox控件和兩個Command(按鈕)控件，都采用系統(tǒng)默認的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
    按F5執(zhí)行程序，單擊“輸入文本”按鈕，在彈出的對話框中輸入一些文本，確定后，剛剛輸入的文本將顯示在RichTextBox中;再單擊“選擇字符串”按鈕，在彈出的對話框中輸入你希望高亮顯示的字符串，確定后，RichTextBox中相應的字符串將以紅色高亮顯示。
    問題：如何利用VB編寫程序?qū)崿F(xiàn)Windows 95操作系統(tǒng)的熱啟動?
    答：要利用程序?qū)崿F(xiàn)系統(tǒng)的重新啟動，可以在你的程序中調(diào)用API函數(shù)來實現(xiàn)。建一個子函數(shù)：(以VB為例)
    以下是引用片段：
    Declare Function SystemParametersInfo Lib ″user32″ Alias —
    ″SystemParametersInfo″ (ByVal uAction As Long, ByVal uParam As Long,
    ByVal lpvParam As Any, ByVal fuWinIni As Long) As Long
    Sub DisableCtrlAltDelete(bDisabled As Boolean)
    Dim X As Long
    X=SystemParametersInfo(97, bDisabled, CStr(1), 0)
    End Sub
    Call DisableCtrlAltDelete(true)　　′禁止熱啟
    Call DisableCtrlAltDelete(false) ′允許熱啟