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

下面有幾個(gè)較為典型的VB問題的解答，希望能對(duì)廣大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

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)的字符串將以紅色高亮顯示。

問題：如何利用VB編寫程序?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) ′允許熱啟

問題：如何把數(shù)據(jù)文件輸出到Text控件中？如果數(shù)據(jù)量比較大，窗體滿屏也不夠大，怎么解決？

答：有一個(gè)比較簡(jiǎn)單的方法，就是把數(shù)據(jù)放到一個(gè)文本框（Text）里，并在其中加上水平和垂直滾動(dòng)條。具體實(shí)現(xiàn)步驟為：先在窗體（Form）里加入一個(gè)文本框，采用默認(rèn)名Text1；然后，設(shè)置文本框Text1的屬性：Text屬性設(shè)置為空，MultiLine屬性設(shè)置為True，ScrollBars屬性設(shè)置為3－Both；接著添加如下VB代碼：

Private Sub Form—Load()

Dim Handle As Integer

Dim FileName As String

On Error GoTo ErrExit

begin:

′輸入要顯示的數(shù)據(jù)文件的名稱

FileName=InputBox＄(″Input Filename″,

″Open File″)

On Error GoTo FileErr

Handle=FreeFile

Open FileName For Input As ＃Handle

′把數(shù)據(jù)文件中的數(shù)據(jù)輸出到文本框中

Text1.Text=Input＄(LOF(Handle), Handle)

Close ＃Handle

Exit Sub

FileErr:

Dim ErrNum As Integer

If Err.Number=53 Then

ErrNum=MsgBox(″File not exist″, vbOKCancel, ″Error Information″)

If ErrNum=1 Then

GoTo begin

Else

Exit Sub

End If

End If

MsgBox Err.Description, , ″file open failed″

ErrExit:

Exit Sub

End Sub

′使文本框充滿整個(gè)窗體

Private Sub Form—Resize()

Text1.Left=0

Text1.Top=0

Text1.Width=Form1.Width－100

Text1.Height=Form1.Height－400

End Sub

通過這樣的處理，不僅能解決問題，而且用戶還可以在文本框中對(duì)數(shù)據(jù)進(jìn)行編輯。

問題：怎樣把文件列表框、目錄列表框和驅(qū)動(dòng)器列表框相互關(guān)聯(lián)起來(lái)？

想做一個(gè)對(duì)話窗體，包含驅(qū)動(dòng)器列表框、目錄列表框和文件列表框，并能實(shí)現(xiàn)三者的同步操作，怎么做？

答：在實(shí)際應(yīng)用中，經(jīng)常會(huì)遇到上述問題，在VB中解決這個(gè)問題非常簡(jiǎn)單，可以通過Path屬性的改變引發(fā)Change事件來(lái)實(shí)現(xiàn)。例如：

Sub Dir1—Change()

File1.Path=Dir1.Path

End Sub

該事件過程使窗體上的目錄列表框Dir1和文件列表框File1產(chǎn)生同步。因?yàn)槟夸浟斜砜騊ath屬性的改變將產(chǎn)生Change事件，所以在Dir1—Change事件過程中，把Dir1.Path賦給File1.Path，就可以產(chǎn)生同步效果。