StatusBar 控件由 Panel（窗格） 對(duì)象組成，最多能被分成 16 個(gè) Panel 對(duì)象，每一個(gè) Panel 對(duì)象能包含文本和/或圖片?？刂苽€(gè)別窗格的外觀屬性包括 Width、Alignment（文本和圖片的）和 Bevel(斜面)。此外，能使用 Style 屬性七個(gè)值中的一個(gè)自動(dòng)地顯示公共數(shù)據(jù)，諸如日期、時(shí)間和鍵盤(pán)狀態(tài)等。

　　2． 創(chuàng)建狀態(tài)欄

　　先在窗體上畫(huà)出一個(gè)StatusBar對(duì)象，再右擊該對(duì)象，從快捷菜單中選擇“屬性”，進(jìn)入屬性頁(yè)設(shè)置窗口，進(jìn)行下面的設(shè)置：

　　（1） 選擇窗格形狀

　　在屬性窗口里選擇通用標(biāo)簽，在樣式列表框里選擇多窗格（缺省形式）或單窗格簡(jiǎn)單文本形式。

　?。?） 添加或刪除狀態(tài)欄窗格

　　在屬性窗口里選擇窗格標(biāo)簽，單擊插入窗格按鈕添加一個(gè)窗格，或單擊刪除窗格按鈕刪除一個(gè)窗格。

　?。?） 在單窗格里顯示文本

　　 在屬性窗口里選擇通用標(biāo)簽，在簡(jiǎn)單文本框里輸入想顯示在狀態(tài)欄窗格里的文本。用代碼顯示的方式是：

　　StatusBar1.SimpleText = "要顯示的內(nèi)容"

　?。?） 在多窗格里顯示文本或圖形

　　1). 在屬性窗口里選擇窗格標(biāo)簽，用索引旁的按鈕選擇窗格序號(hào)。

　　2). 在文本框里輸入想顯示在狀態(tài)欄窗格里的文本。用代碼顯示的方式是：

　　StatusBar1.Panels(x).Text = "要顯示的內(nèi)容"

　　3). 如果想加入圖形，單擊瀏覽按鈕打開(kāi)一個(gè)圖形選擇對(duì)話框，選擇想加入的圖形，然后單擊打開(kāi)按鈕。

　　（5)  編寫(xiě)代碼

　　如果是一個(gè)單窗格狀態(tài)欄，當(dāng)用戶(hù)單擊狀態(tài)欄時(shí)，只需用下面的事件過(guò)程來(lái)響應(yīng)：

　　　Private Sub StatusBar1_Click()
　　　　　　　 <要執(zhí)行的代碼>
　　　End Sub

　　如果是一個(gè)多窗格狀態(tài)欄，就需要鑒別用戶(hù)單擊的是哪一個(gè)窗格，可用下面的事件過(guò)程來(lái)識(shí)別用戶(hù)所單擊的窗格：

　　　Private Sub StatusBar1_PanelClick(ByVal Panel As Panel)
　　　　　 Select Case Panel.Index
　　　　　　　　　 Case 1
　　　　　　　　　　　　　　　 <要執(zhí)行的代碼>
　　　　　　　　　 Case 2
　　　　　　　　　　　　　　　　 <要執(zhí)行的代碼>
　　　　　　　　　　 ……
　　　　　 End Select
　　　End Sub

　　3．創(chuàng)建工具欄

　?。?）.建立工具欄

　　1） 在工具箱里單擊工具欄圖標(biāo)，拖到窗體的任何位置，Visual Basic自動(dòng)將ToolBar移到頂部。再右擊該對(duì)象，從快捷菜單中選擇“屬性”，進(jìn)入屬性頁(yè)設(shè)置窗口；

　　2） 選擇按鈕標(biāo)簽，單擊插入按鈕，Visual Basic就會(huì)在工具欄上顯示一個(gè)空按鈕，重復(fù)此步插入多個(gè)按鈕；

　　3） 單擊確定按鈕。如果想把按鈕分組，首先插入一個(gè)分隔的按鈕，再在對(duì)話框里將這個(gè)按鈕的樣式屬性改為3-Separator。

　?。?） 為工具欄增加圖畫(huà)

　　1). 在Visual Basic工具箱里單擊ImageList圖標(biāo)，并將它拖到窗體的任何位置（位置不重要，因?yàn)樗偸遣豢梢?jiàn)的），再右擊該對(duì)象，從快捷菜單中選擇“屬性”，進(jìn)入屬性頁(yè)設(shè)置窗口；

　　2). 選擇圖象標(biāo)簽，單擊插入圖片，在選定圖形對(duì)話框里選擇想使用的位圖或圖標(biāo)，然后單擊打開(kāi)按鈕。為每個(gè)想添加圖形的工具欄按鈕重復(fù)此步。

　　3). 單擊確定按鈕。

　　4). 進(jìn)入ToolBar屬性對(duì)話框，選擇通用標(biāo)簽，在圖象列表框里選擇剛才添加的ImageList控件。

　　5). 選擇按鈕標(biāo)簽，單擊緊挨Index框的向左或向右箭頭以選擇一個(gè)按鈕序號(hào)。出現(xiàn)在工具欄最左邊的按鈕序號(hào)為1。

　　6). 在Image框里輸入一個(gè)數(shù)，輸入為1，則顯示剛才ImageList控件里的第一個(gè)圖形，輸入為2，則顯示剛才ImageList控件里的第二個(gè)圖形。

　　7). 為每個(gè)按鈕重復(fù)第6步， 單擊確定按鈕，現(xiàn)在Visual Basic就會(huì)在工具欄上顯示精美的圖形了。

　?。?）為工具欄添加文本信息

　　在ToolBar屬性對(duì)話框中選擇按鈕標(biāo)簽，在標(biāo)題框里輸入想顯示在按鈕上的文本。

　?。?）添加ToolTips

　?。?）編寫(xiě)代碼

　　雙擊工具欄，以下面的格式輸入代碼就可以了：

           Private Sub Toolbar1_ButtonClick(ByVal Button As Button)
　　　　　　　 Select Case Button.Index
　　　　　　　　　　　 Case 1
　　　　　　　　　　　　　　　　 <要執(zhí)行的代碼>
　　　　　　　　　　　 Case 2
　　　　　　　　　　　　　　　　 <要執(zhí)行的代碼>
　　　　　　　　　　　　　 ……
　　　　　　　 End Select
　　　End Sub