下面有幾個較為典型的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編寫程序實現(xiàn)Windows 95操作系統(tǒng)的熱啟動？

答：要利用程序實現(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) ′允許熱啟

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

答：有一個比較簡單的方法，就是把數(shù)據(jù)放到一個文本框（Text）里，并在其中加上水平和垂直滾動條。具體實現(xiàn)步驟為：先在窗體（Form）里加入一個文本框，采用默認名Text1；然后，設置文本框Text1的屬性：Text屬性設置為空，MultiLine屬性設置為True，ScrollBars屬性設置為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

′使文本框充滿整個窗體

Private Sub Form—Resize()

Text1.Left=0

Text1.Top=0

Text1.Width=Form1.Width－100

Text1.Height=Form1.Height－400

End Sub

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

問題：怎樣把文件列表框、目錄列表框和驅動器列表框相互關聯(lián)起來？

想做一個對話窗體，包含驅動器列表框、目錄列表框和文件列表框，并能實現(xiàn)三者的同步操作，怎么做？

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

Sub Dir1—Change()

File1.Path=Dir1.Path

End Sub

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