下面有幾個較為典型的VB問題的解答，希望能對廣大VB愛好者有所幫助。
問題：如何編程使文本框中文本的某一特定字符或字符串同時高亮顯示?
答：由于普通TextBox控件不支持不連續字符串的同時高亮顯示，所以我們選擇RichTextBox控件。單擊工程（Project）選單項，在彈出的下拉選單中單擊組件（Components）選單項，從彈出的對話框中選擇Microsoft Rich Textbox Control 5.0復選框，確定加載RichTextBox控件。
新建（New）一個工程，在窗體（Form）上添加一個RichTextBox控件和兩個Command（按鈕）控件，都采用系統默認的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執行程序，單擊“輸入文本”按鈕，在彈出的對話框中輸入一些文本，確定后，剛剛輸入的文本將顯示在RichTextBox中；再單擊“選擇字符串”按鈕，在彈出的對話框中輸入你希望高亮顯示的字符串，確定后，RichTextBox中相應的字符串將以紅色高亮顯示。
問題：如何利用VB編寫程序實現Windows 95操作系統的熱啟動？
答：要利用程序實現系統的重新啟動，可以在你的程序中調用API函數來實現。建一個子函數：（以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) ′允許熱啟
問題：如何把數據文件輸出到Text控件中？如果數據量比較大，窗體滿屏也不夠大，怎么解決？
答：有一個比較簡單的方法，就是把數據放到一個文本框（Text）里，并在其中加上水平和垂直滾動條。具體實現步驟為：先在窗體（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:
′輸入要顯示的數據文件的名稱
FileName=InputBox＄(″Input Filename″,
″Open File″)
On Error GoTo FileErr
Handle=FreeFile
Open FileName For Input As ＃Handle
′把數據文件中的數據輸出到文本框中
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
通過這樣的處理，不僅能解決問題，而且用戶還可以在文本框中對數據進行編輯。
問題：怎樣把文件列表框、目錄列表框和驅動器列表框相互關聯起來？
想做一個對話窗體，包含驅動器列表框、目錄列表框和文件列表框，并能實現三者的同步操作，怎么做？
答：在實際應用中，經常會遇到上述問題，在VB中解決這個問題非常簡單，可以通過Path屬性的改變引發Change事件來實現。例如：
Sub Dir1—Change()
File1.Path=Dir1.Path
End Sub
該事件過程使窗體上的目錄列表框Dir1和文件列表框File1產生同步。因為目錄列表框Path屬性的改變將產生Change事件，所以在Dir1—Change事件過程中，把Dir1.Path賦給File1.Path，就可以產生同步效果。
，我們將會及時處理。如轉載本網內容，請注明出處。