2011年度計(jì)算機(jī)等級考試二級VB基礎(chǔ)教程(9)

　　2.5 設(shè)計(jì)狀態(tài)條、工具欄、進(jìn)程條等

　　1.創(chuàng)建狀態(tài)條

　　選中狀態(tài)條，按F4鍵進(jìn)入屬性窗口，雙擊(Custom)可以進(jìn)入主要的設(shè)置窗口SBarCtrl屬性窗口。

　　(1) 選擇面板形狀

　　在SBarCtrl屬性窗口里選擇General標(biāo)簽，在Style列表框里選擇多面板(缺省形式)或單面板簡單文本形式。

　　(2) 添加或刪除狀態(tài)條面板

　　在SBarCtrl屬性窗口里選擇Panels標(biāo)簽，單擊Insert按鈕添加一個面板，或單擊Remove按鈕刪除一個面板。

　　(3) 在單面板里顯示文本

　　在SBarCtrl屬性窗口里選擇General標(biāo)簽，在SimpleText框里輸入想顯示在狀態(tài)條面板里的文本。用代碼顯示的方式是：

　　StatusBar1.SimpleText = "New string to appear"

　　(4) 在多面板里顯示文本或圖形

　　1). 在SBarCtrl屬性窗口里選擇Panels標(biāo)簽，用Index旁的按鈕選擇面板序號。

　　2). 在Text框里輸入想顯示在狀態(tài)條面板里的文本。

　　3). 如果想加入圖形，單擊Browse按鈕打開一個圖形選擇對話框，選擇想加入的圖形，然后單擊打開按鈕。

　　4). 最后按確定按鈕。

　　5). 用代碼顯示的方式是：StatusBar1.Panels(x).Text = "New string to appear"

　　6). 編寫代碼

　　如果是一個單面板狀態(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) 為工具條增加圖畫

　　1). 在Visual Basic工具箱里單擊ImageList圖標(biāo)，并將它拖到窗體的任何位置(位置不重要，因?yàn)樗�總是不可見�?。

　　2). 按F4打開屬性窗口。

　　3). 雙擊(Custom)，打開ImageListCtrl屬性窗口。

　　4). 選擇Image標(biāo)簽。

　　5). 單擊Insert Picture，在現(xiàn)在圖形的對話框里選擇想使用的位圖或圖標(biāo)，然后單擊打開按鈕。為每個想添加圖形的工具條按鈕重復(fù)此步。

　　6). 單擊確定按鈕。

　　7). 單擊工具條，按F4，雙擊(Custom)，顯示ToolBar屬性對話框。

　　8). 選擇General標(biāo)簽，在ImageList框里選擇剛才添加的ImageList控件。

　　9). 選擇Buttons標(biāo)簽，單擊緊挨Index框的向左或向右箭頭以選擇一個按鈕序號。出現(xiàn)在工具條最左邊的按鈕序號為1。

　　10). 在Image框里輸入一個數(shù)，輸入為1，則顯示剛才ImageList控件里的第一個圖形，輸入為2，則顯示剛才ImageList控件里的第二個圖形。

　　11). 為每個按鈕重復(fù)第10步。

　　12). 單擊確定按鈕，現(xiàn)在Visual Basic就會在工具條上顯示精美的圖形了。