如果是一個單面板狀態(tài)條,當(dāng)用戶單擊狀態(tài)條時,只需用下面的事件過程來響應(yīng):
Private Sub StatusBar1_Click()
End Sub
如果是一個多面板狀態(tài)條,就需要鑒別用戶單擊的是哪一個面板,可用下面的事件過程來識別用戶所單擊的面板:
Private Sub StatusBar1_PanelClick(ByVal Panel As Panel)
Select Case Panel.Index
Case 1
‘Code to follow if user clicks the first panel
Case 2
’Code to follow if user clicks the second panel
Case 3
‘Code to follow if user clicks the third panel
End Select
End Sub
2.創(chuàng)建工具欄
(1)建立工具條
1)。在工具箱里單擊工具條圖標(biāo),拖到窗體的任何位置,Visual Basic自動將ToolBar移到頂部。
2)。按F4鍵打開屬性窗口。
3)。雙擊(Custom),打開ToolBar屬性窗口。
4)。 選擇Buttons標(biāo)簽。
5)。 單擊Insert按鈕,Visual Basic就會在你的工具條上顯示一個空按鈕,現(xiàn)在為你的每一個按鈕重復(fù)這一步。
6)。 單擊確定按鈕。
如果想把按鈕分組,首先生成一個分隔的按鈕,再在剛才提到的對話框里將這個按鈕的Style屬性改為3-Separator。
(2) 為工具條增加圖畫