二級VB基礎教程:2.5設計狀態(tài)條、工具欄、進程條等

字號:

2.5 設計狀態(tài)條、工具欄、進程條等
    1.創(chuàng)建狀態(tài)條
    選中狀態(tài)條,按F4鍵進入屬性窗口,雙擊(Custom)可以進入主要的設置窗口SBarCtrl屬性窗口。
    (1) 選擇面板形狀
    在SBarCtrl屬性窗口里選擇General標簽,在Style列表框里選擇多面板(缺省形式)或單面板簡單文本形式。
    (2) 添加或刪除狀態(tài)條面板
      在SBarCtrl屬性窗口里選擇Panels標簽,單擊Insert按鈕添加一個面板,或單擊Remove按鈕刪除一個面板。
    (3) 在單面板里顯示文本
      在SBarCtrl屬性窗口里選擇General標簽,在SimpleText框里輸入想顯示在狀態(tài)條面板里的文本。用代碼顯示的方式是:
    StatusBar1.SimpleText = "New string to appear"
    (4) 在多面板里顯示文本或圖形
    1). 在SBarCtrl屬性窗口里選擇Panels標簽,用Index旁的按鈕選擇面板序號。
    2). 在Text框里輸入想顯示在狀態(tài)條面板里的文本。
    3). 如果想加入圖形,單擊Browse按鈕打開一個圖形選擇對話框,選擇想加入的圖形,然后單擊打開按鈕。
    4). 最后按確定按鈕。
    5). 用代碼顯示的方式是:StatusBar1.Panels(x).Text = "New string to appear"
    6). 編寫代碼 
    如果是一個單面板狀態(tài)條,當用戶單擊狀態(tài)條時,只需用下面的事件過程來響應:
    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).在工具箱里單擊工具條圖標,拖到窗體的任何位置,Visual Basic自動將ToolBar移到頂部。
    2).按F4鍵打開屬性窗口。
    3).雙擊(Custom),打開ToolBar屬性窗口。
    4). 選擇Buttons標簽。
    5). 單擊Insert按鈕,Visual Basic就會在你的工具條上顯示一個空按鈕,現在為你的每一個按鈕重復這一步。
    6). 單擊確定按鈕。
       如果想把按鈕分組,首先生成一個分隔的按鈕,再在剛才提到的對話框里將這個按鈕的Style屬性改為3-Separator。
    (2) 為工具條增加圖畫
    1). 在Visual Basic工具箱里單擊ImageList圖標,并將它拖到窗體的任何位置(位置不重要,因為它總是不可見的)。
    2). 按F4打開屬性窗口。
    3). 雙擊(Custom),打開ImageListCtrl屬性窗口。
    4). 選擇Image標簽。
    5). 單擊Insert Picture,在現在圖形的對話框里選擇想使用的位圖或圖標,然后單擊打開按鈕。為每個想添加圖形的工具條按鈕重復此步。
    6). 單擊確定按鈕。
    7). 單擊工具條,按F4,雙擊(Custom),顯示ToolBar屬性對話框。
    8). 選擇General標簽,在ImageList框里選擇剛才添加的ImageList控件。
    9). 選擇Buttons標簽,單擊緊挨Index框的向左或向右箭頭以選擇一個按鈕序號。出現在工具條最左邊的按鈕序號為1。
    10). 在Image框里輸入一個數,輸入為1,則顯示剛才ImageList控件里的第一個圖形,輸入為2,則顯示剛才ImageList控件里的第二個圖形。
    11). 為每個按鈕重復第10步。
    12). 單擊確定按鈕,現在Visual Basic就會在工具條上顯示精美的圖形了。