二級VB基礎(chǔ)教程: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對象,再右擊該對象,從快捷菜單中選擇“屬性”,進入屬性頁設(shè)置窗口,進行下面的設(shè)置:
    (1) 選擇窗格形狀
    在屬性窗口里選擇通用標簽,在樣式列表框里選擇多窗格(缺省形式)或單窗格簡單文本形式。
    (2) 添加或刪除狀態(tài)欄窗格
    在屬性窗口里選擇窗格標簽,單擊插入窗格按鈕添加一個窗格,或單擊刪除窗格按鈕刪除一個窗格。
    (3) 在單窗格里顯示文本
     在屬性窗口里選擇通用標簽,在簡單文本框里輸入想顯示在狀態(tài)欄窗格里的文本。用代碼顯示的方式是:
    StatusBar1.SimpleText = "要顯示的內(nèi)容"
    (4) 在多窗格里顯示文本或圖形
    1). 在屬性窗口里選擇窗格標簽,用索引旁的按鈕選擇窗格序號。
    2). 在文本框里輸入想顯示在狀態(tài)欄窗格里的文本。用代碼顯示的方式是:
    StatusBar1.Panels(x).Text = "要顯示的內(nèi)容"
    3). 如果想加入圖形,單擊瀏覽按鈕打開一個圖形選擇對話框,選擇想加入的圖形,然后單擊打開按鈕。
    (5) 編寫代碼
    如果是一個單窗格狀態(tài)欄,當用戶單擊狀態(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
    3.創(chuàng)建工具欄
    (1).建立工具欄
    1) 在工具箱里單擊工具欄圖標,拖到窗體的任何位置,Visual Basic自動將ToolBar移到頂部。再右擊該對象,從快捷菜單中選擇“屬性”,進入屬性頁設(shè)置窗口;
    2) 選擇按鈕標簽,單擊插入按鈕,Visual Basic就會在工具欄上顯示一個空按鈕,重復(fù)此步插入多個按鈕;
    3) 單擊確定按鈕。如果想把按鈕分組,首先插入一個分隔的按鈕,再在對話框里將這個按鈕的樣式屬性改為3-Separator。
    (2) 為工具欄增加圖畫
    1). 在Visual Basic工具箱里單擊ImageList圖標,并將它拖到窗體的任何位置(位置不重要,因為它總是不可見的),再右擊該對象,從快捷菜單中選擇“屬性”,進入屬性頁設(shè)置窗口;
    2). 選擇圖象標簽,單擊插入圖片,在選定圖形對話框里選擇想使用的位圖或圖標,然后單擊打開按鈕。為每個想添加圖形的工具欄按鈕重復(fù)此步。
    3). 單擊確定按鈕。
    4). 進入ToolBar屬性對話框,選擇通用標簽,在圖象列表框里選擇剛才添加的ImageList控件。
    5). 選擇按鈕標簽,單擊緊挨Index框的向左或向右箭頭以選擇一個按鈕序號。出現(xiàn)在工具欄最左邊的按鈕序號為1。
    6). 在Image框里輸入一個數(shù),輸入為1,則顯示剛才ImageList控件里的第一個圖形,輸入為2,則顯示剛才ImageList控件里的第二個圖形。
    7). 為每個按鈕重復(fù)第6步, 單擊確定按鈕,現(xiàn)在Visual Basic就會在工具欄上顯示精美的圖形了。
    (3)為工具欄添加文本信息
    在ToolBar屬性對話框中選擇按鈕標簽,在標題框里輸入想顯示在按鈕上的文本。
    (4)添加ToolTips
    ToolTips是一種當點到工具按鈕時彈出的小標簽。ToolTips很方便,可以告訴那些新手每個按鈕是干什么用的。在ToolBar屬性對話框中選擇按鈕標簽,在工具提示文本框里輸入想作為ToolTip的文本。
    (5)編寫代碼
    雙擊工具欄,以下面的格式輸入代碼就可以了:
     Private Sub Toolbar1_ButtonClick(ByVal Button As Button)
       Select Case Button.Index
           Case 1
                <要執(zhí)行的代碼>
           Case 2
                <要執(zhí)行的代碼>
             ……
       End Select
    End Sub