【正文】 Imagelist控件相關(guān)聯(lián)，其它一些屬性的設(shè)置如圖 512所示。 表 55 “按鈕 ”選項(xiàng)卡的屬性設(shè)置索引 關(guān)鍵字 樣式 工具顯示文本 圖像 說明1 3—tbrSeparator分隔符2 預(yù)覽 0—tbrDefault 預(yù)覽 Preview 預(yù)覽按鈕3 打印 0—tbrDefault 打印 Print 打印按鈕4 3—tbrSeparator分隔符5 新建 0—tbrDefault 新建 New 新建按鈕6 屬性 0—tbrDefault 屬性 Properties 屬性按鈕7 查詢 0—tbrDefault 查詢 Find 查詢按鈕8 3—tbrSeparator分隔符9 返回 0—tbrDefault 返回 Back 返回按鈕10 向前 0—tbrDefault 向前 Forward 向前按鈕11 刪除 0—tbrDefault 刪除 Delete 刪除按鈕 工具欄的設(shè)計(jì)n 4．編寫事件代碼n 在 Toolbar1控件的 Click事件里編寫代碼如下：n Private Sub Toolbar1_ButtonClick(ByVal Button As )n On Error Resume Nextn Select Case n Case 預(yù)覽 n 39。預(yù)覽 39。n selreportn Case 打印 n 39。打印 39。n selreport1n Case 返回 n 39。返回 39。n prersn Case 向前 n 39。未命名 439。n nextrsn Case 新建 n 39。新建 39。n Select Case selclickn Case 1n n n Case 2n n n Case 3n End Subn n n Case 4n Case 5n n n End Selectn mbAddNewFlag = Truen Case 屬性 n Select Case selclickn Case 1n n Case 2n n Case 3n n Case 4 n Case 5n n End Selectn Case 查詢 n n 39。查詢 39。n Case 刪除 n deleters n End Select 狀態(tài)欄的設(shè)計(jì)n 在 Windows環(huán)境下的許多應(yīng)用程序都有狀態(tài)欄，狀態(tài)欄通常位于窗體的底部，用來顯示有關(guān)窗口的信息，諸如日期、時(shí)間等等。在 Visual Basic的標(biāo)準(zhǔn)工具箱中沒有這兩個(gè)控件，需要先將它們添加到工具箱中，方法和添加 Toolbar控件是一樣的，添加了 Statusbar控件的工具箱如圖 513所示。設(shè)計(jì)狀態(tài)欄的步驟如下。n ② 右擊 StatusBar1控件，在彈出菜單中選擇 “屬性 ”菜單項(xiàng)，彈出 “屬性頁 ”對話框；n ③ “屬性頁 ”對話框包括四個(gè)選項(xiàng)卡： “通用 ”、 “窗格 ”、 “字體 ”和 “圖片 ”選項(xiàng)卡，如圖 514所示。缺省設(shè)置為 0sbrNormal，此時(shí) StatusBar 控件顯示所有的 Panel 對象；設(shè)置為 1sbrSimple時(shí) StatusBar控件僅顯示一個(gè)大面板。該屬性設(shè)置提供了一個(gè)下拉列表，從下拉列表中可以選擇各種預(yù)定義的鼠標(biāo)指針形狀。n ⑤ 選擇 “窗格 ” 選項(xiàng)卡，如圖 515所示。n “刪除窗格 ”按鈕：每次單擊該按鈕可以刪除狀態(tài)欄上由當(dāng)前索引指定的窗格。在代碼中訪問此 Panel對象時(shí)要使用該索引值。n “圖片 ”：對應(yīng) Panel對象的 Picture屬性，單擊 “瀏覽 ”按鈕可以給窗格添加一幅圖片；單擊 “無圖片 ”按鈕可以清除已添加的圖片。n “關(guān)鍵字 ”：對應(yīng)于 Panel對象的 Key屬性，用于給當(dāng)前的 Panel對象定義一個(gè)標(biāo)識符。 狀態(tài)欄的設(shè)計(jì)n “最小寬度 ”：對應(yīng)于 Panel對象的 MinWidth，返回或設(shè)置 Panel對象的最小寬度，缺省值與狀態(tài)欄的實(shí)際寬度的缺省值相同。當(dāng) Autosize屬性被設(shè)置為 0時(shí)， MinWidth屬性總是被設(shè)定為與Width屬性相同的值。n “對齊 ”：對應(yīng)于 Panel對象的 Alignment屬性，用于設(shè)置窗格中的文本對齊方式。其屬性設(shè)置如表 57所示。顯示用 Text 屬性設(shè)置的文本或由 Pictrue屬性設(shè)置的圖片。2 sbrNum 當(dāng)激活數(shù)字鎖定鍵時(shí)，用黑體顯示字母 NUM；而當(dāng)停用數(shù)字鎖定鍵時(shí)，顯示暗淡的字母。4 sbrScrl 當(dāng)激活滾動(dòng)鎖定時(shí)，用黑體顯示字母 SCRL；而當(dāng)停用滾動(dòng)鍵時(shí)，顯示暗淡的字母。6 sbrDate 以系統(tǒng)格式顯示當(dāng)前日期。 狀態(tài)欄的設(shè)計(jì)n 如果將 Style 屬性設(shè)置為除零以外的任何樣式，則任何以 Text 屬性設(shè)置的文本將不顯示，除非將 Style 屬性設(shè)置為零。取值如表 58所示： 表 58 Panel對象的 Bevel屬性取值值 常數(shù) 描述0 sbrNoBevel Panel不顯示斜面，但文本看起來好象是將它顯示在狀態(tài)欄的右邊1 sbrInset 缺省設(shè)置， Panel 以凹進(jìn)的形式顯示2 sbrRaised Panel以凸起的形式顯示 狀態(tài)欄的設(shè)計(jì)n “自動(dòng)調(diào)整大小 ”：對應(yīng)于 Panel對象的 AutoSize屬性，用來確定窗格能否自動(dòng)調(diào)整大小。1 sbrSpringPanel的寬度隨窗體寬度的改變自動(dòng)調(diào)整，其寬度決不會(huì)低于 MinWidth 屬性指定的寬度。 狀態(tài)欄的設(shè)計(jì)n （ 2）編寫代碼n 狀態(tài)欄中的信息總是反映當(dāng)前程序運(yùn)行的狀態(tài)，因此時(shí)刻在發(fā)生變化，要確定狀態(tài)欄中各窗格對應(yīng)的值，就需要在事件中編寫代碼。下面結(jié)合 “企業(yè)資質(zhì)管理系統(tǒng) ”介紹狀態(tài)欄的設(shè)計(jì)步驟。 狀態(tài)欄的設(shè)計(jì)n 2．創(chuàng)建 StatusBar控件n （ 1）在工具箱中選擇一個(gè) StatusBar控件放在窗體中，定義該控件的名稱為StBar1。n （ 3）在 StBar1控件的 “屬性頁 ”對話框選擇 “窗格 ”選項(xiàng)卡，添加各個(gè) “窗格 ”對象。 圖 516 “窗格 ”選項(xiàng)卡的設(shè)置 狀態(tài)欄的設(shè)計(jì)n （ 5）系統(tǒng)中添加了 5個(gè)窗格，各個(gè)窗格的屬性設(shè)置如表 510所示。n 由于狀態(tài)欄的信息是系統(tǒng)實(shí)時(shí)信息，因此狀態(tài)欄中窗格的取值在不同對象的事件中。單擊 ListView1控件時(shí)選擇要處理的數(shù)據(jù)表共有的記錄數(shù)n (1) = + :共 條記錄 n 39。 圖 517 運(yùn)行的狀態(tài)欄 本章習(xí)題n 1．簡述下拉式菜單和彈出式菜單的適用環(huán)境及用法。n 3．參照 。n 5