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

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í)行程序，單擊“輸入文本”按鈕，在彈出的對(duì)話框中輸入一些文本，確定后，剛剛輸入的文本將顯示在RichTextBox中；再單擊“選擇字符串”按鈕，在彈出的對(duì)話框中輸入你希望高亮顯示的字符串，確定后，RichTextBox中相應(yīng)的字符串將以紅色高亮顯示。

　　問(wèn)題：如何利用VB編寫(xiě)程序?qū)崿F(xiàn)Windows 95操作系統(tǒng)的熱啟動(dòng)？

　　答：要利用程序?qū)崿F(xiàn)系統(tǒng)的重新啟動(dòng)，可以在你的程序中調(diào)用API函數(shù)來(lái)實(shí)現(xiàn)。建一個(gè)子函數(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) ′允許熱啟

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

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