2011年計(jì)算機(jī)等級(jí)考試二級(jí)VB基礎(chǔ)教程輔導(dǎo)(9)(2)

字號(hào):


    如果是一個(gè)單面板狀態(tài)條,當(dāng)用戶(hù)單擊狀態(tài)條時(shí),只需用下面的事件過(guò)程來(lái)響應(yīng):
    Private Sub StatusBar1_Click()
    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
    ‘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自動(dòng)將ToolBar移到頂部。
    2)。按F4鍵打開(kāi)屬性窗口。
    3)。雙擊(Custom),打開(kāi)ToolBar屬性窗口。
    4)。 選擇Buttons標(biāo)簽。
    5)。 單擊Insert按鈕,Visual Basic就會(huì)在你的工具條上顯示一個(gè)空按鈕,現(xiàn)在為你的每一個(gè)按鈕重復(fù)這一步。
    6)。 單擊確定按鈕。
    如果想把按鈕分組,首先生成一個(gè)分隔的按鈕,再在剛才提到的對(duì)話框里將這個(gè)按鈕的Style屬性改為3-Separator。
    (2) 為工具條增加圖畫(huà)