8.3 狀態(tài)欄（StatusBar）和工具欄（ToolBar）
1． 狀態(tài)欄的作用與組成
StatusBar 控件由 Panel（窗格） 對象組成，最多能被分成 16 個 Panel 對象，每一個 Panel 對象能包含文本和/或圖片?？刂苽€別窗格的外觀屬性包括 Width、Alignment（文本和圖片的）和 Bevel(斜面)。此外，能使用 Style 屬性七個值中的一個自動地顯示公共數(shù)據(jù)，諸如日期、時間和鍵盤狀態(tài)等。
2． 創(chuàng)建狀態(tài)欄
先在窗體上畫出一個StatusBar對象，再右擊該對象，從快捷菜單中選擇“屬性”，進(jìn)入屬性頁設(shè)置窗口，進(jìn)行下面的設(shè)置：
（1） 選擇窗格形狀
在屬性窗口里選擇通用標(biāo)簽，在樣式列表框里選擇多窗格（缺省形式）或單窗格簡單文本形式。
（2） 添加或刪除狀態(tài)欄窗格
在屬性窗口里選擇窗格標(biāo)簽，單擊插入窗格按鈕添加一個窗格，或單擊刪除窗格按鈕刪除一個窗格。
（3） 在單窗格里顯示文本
在屬性窗口里選擇通用標(biāo)簽，在簡單文本框里輸入想顯示在狀態(tài)欄窗格里的文本。用代碼顯示的方式是：
StatusBar1.SimpleText = "要顯示的內(nèi)容"
（4） 在多窗格里顯示文本或圖形
1). 在屬性窗口里選擇窗格標(biāo)簽，用索引旁的按鈕選擇窗格序號。
2). 在文本框里輸入想顯示在狀態(tài)欄窗格里的文本。用代碼顯示的方式是：StatusBar1.Panels(x).Text = "要顯示的內(nèi)容"
3). 如果想加入圖形，單擊瀏覽按鈕打開一個圖形選擇對話框，選擇想加入的圖形，然后單擊打開按鈕。
（5) 編寫代碼
如果是一個單窗格狀態(tài)欄，當(dāng)用戶單擊狀態(tài)欄時，只需用下面的事件過程來響應(yīng)：
Private Sub StatusBar1_Click()
<要執(zhí)行的代碼>
End Sub
如果是一個多窗格狀態(tài)欄，就需要鑒別用戶單擊的是哪一個窗格，可用下面的事件過程來識別用戶所單擊的窗格：
Private Sub StatusBar1_PanelClick(ByVal Panel As Panel)
Select Case Panel.Index
Case 1
<要執(zhí)行的代碼>
Case 2
<要執(zhí)行的代碼>
……
End Select
End Sub
1． 狀態(tài)欄的作用與組成
StatusBar 控件由 Panel（窗格） 對象組成，最多能被分成 16 個 Panel 對象，每一個 Panel 對象能包含文本和/或圖片?？刂苽€別窗格的外觀屬性包括 Width、Alignment（文本和圖片的）和 Bevel(斜面)。此外，能使用 Style 屬性七個值中的一個自動地顯示公共數(shù)據(jù)，諸如日期、時間和鍵盤狀態(tài)等。
2． 創(chuàng)建狀態(tài)欄
先在窗體上畫出一個StatusBar對象，再右擊該對象，從快捷菜單中選擇“屬性”，進(jìn)入屬性頁設(shè)置窗口，進(jìn)行下面的設(shè)置：
（1） 選擇窗格形狀
在屬性窗口里選擇通用標(biāo)簽，在樣式列表框里選擇多窗格（缺省形式）或單窗格簡單文本形式。
（2） 添加或刪除狀態(tài)欄窗格
在屬性窗口里選擇窗格標(biāo)簽，單擊插入窗格按鈕添加一個窗格，或單擊刪除窗格按鈕刪除一個窗格。
（3） 在單窗格里顯示文本
在屬性窗口里選擇通用標(biāo)簽，在簡單文本框里輸入想顯示在狀態(tài)欄窗格里的文本。用代碼顯示的方式是：
StatusBar1.SimpleText = "要顯示的內(nèi)容"
（4） 在多窗格里顯示文本或圖形
1). 在屬性窗口里選擇窗格標(biāo)簽，用索引旁的按鈕選擇窗格序號。
2). 在文本框里輸入想顯示在狀態(tài)欄窗格里的文本。用代碼顯示的方式是：StatusBar1.Panels(x).Text = "要顯示的內(nèi)容"
3). 如果想加入圖形，單擊瀏覽按鈕打開一個圖形選擇對話框，選擇想加入的圖形，然后單擊打開按鈕。
（5) 編寫代碼
如果是一個單窗格狀態(tài)欄，當(dāng)用戶單擊狀態(tài)欄時，只需用下面的事件過程來響應(yīng)：
Private Sub StatusBar1_Click()
<要執(zhí)行的代碼>
End Sub
如果是一個多窗格狀態(tài)欄，就需要鑒別用戶單擊的是哪一個窗格，可用下面的事件過程來識別用戶所單擊的窗格：
Private Sub StatusBar1_PanelClick(ByVal Panel As Panel)
Select Case Panel.Index
Case 1
<要執(zhí)行的代碼>
Case 2
<要執(zhí)行的代碼>
……
End Select
End Sub