【正文】 設(shè)計 ? “企業(yè)資質(zhì)管理系統(tǒng) ” 工具欄的設(shè)計 ? 在 “ 企業(yè)資質(zhì)管理系統(tǒng) ” 中提供給用戶便捷操作的工具欄，下面結(jié)合 “ 企業(yè)資質(zhì)管理系統(tǒng) ” 介紹工具欄的設(shè)計步驟。 ? ⑦設(shè)置完 Toolbar控件的 “ 屬性頁 ” 對話框中的值，單擊 “ 確定 ” 按鈕，即生成了系統(tǒng)的工具欄。 ? ⑥設(shè)置 “ 圖片 ” 選項卡 ? 當(dāng)在 “ 通用 ” 選項卡的 “ 鼠標(biāo)指針 ” 設(shè)置中選擇 99ccCustom時，就可以在 “ 圖片 ” 選項卡中為鼠標(biāo)指針定義一幅圖片。 ? “ 有效 ” ：對應(yīng)于按鈕菜單項的 Enabled屬性。 ? 對每一個菜單項的訪問使用 ButtonMenus屬性，同樣有以下設(shè)置： ? “ 索引 ” ：按鈕菜單項的索引號，在代碼中訪問菜單項時要使用該索引值。 ? “ 混合狀態(tài) ” ：對應(yīng)于按鈕的 MixedState屬性，用于決定按鈕對象是否以不確定狀態(tài)出現(xiàn)，缺省值為 False。 ? “ 可見 ” ：對應(yīng)于按鈕的 Visible屬性，用來確定按鈕是否可見，缺省值為可見（ True）。圖像是由關(guān)聯(lián)的ImageList控件提供的。 工具欄的設(shè)計 ? “工具提示文本 ” ：對應(yīng)于按鈕對象的 ToolTipText屬性，用于設(shè)置按鈕的提示信息，運(yùn)行時鼠標(biāo)指向該按鈕時會出現(xiàn)該提示字符串。運(yùn)行時單擊下拉箭頭可以打開一個下拉菜單，從中選擇所需要的選項。 ? 4—tbrPlaceholder按鈕作為占位符使用，在外觀和功能上像分隔符，但可以設(shè)置其寬度。 ? 3—tbrSeparator 按鈕作為有 8個像素的固定寬度的分隔符使用。當(dāng)按下組內(nèi)的另一個按鈕時，原按下的按鈕會自動抬起。 ? 2—tbrButtonGroup按鈕具有選項按鈕組的特點(diǎn)。其取值如下： ? 0—tbrDefault按鈕具有命令按鈕的特點(diǎn)。該標(biāo)識符在整個按鈕對象集合的標(biāo)識符中必須惟一。 ? “ 標(biāo)題 ” ：對應(yīng)于按鈕對象的 Caption屬性，用來設(shè)置要在按鈕對象上顯示的文本。 ? “ 索引 ” ：對應(yīng)于按鈕對象的 Index屬性，表示添加的按鈕對象的索引值，該索引值由添加次序決定。選擇 “ 屬性頁 ” 對話框的 “ 按鈕 ” 選項卡，如圖 510所示，其中包括的屬性如下： 圖 510 在工具欄中添加新按鈕 工具欄的設(shè)計 ? “插人按鈕 ” ：單擊該按鈕可以在工具欄上添加一個按鈕對象。 工具欄的設(shè)計 ? ⑤ 添加工具欄的按鈕 ? 工具欄中要包含按鈕，因此創(chuàng)建工具欄，必須先將按鈕添加到工具欄中。如果該屬性設(shè)置為 True，工具欄中的每個對象都可以顯示一個相關(guān)的提示字符串；否則，不允許顯示提示字符串。如果該屬性設(shè)置為 True，在重新調(diào)整窗體大小時， ToolBar控件上的按鈕會自動換行；否則，ToolBar控件上的按鈕不會自動換行。如果該屬性設(shè)置為 True，運(yùn)行時雙擊 ToolBar控件可以打開一個 “ 自定義工具欄 ” 對話框；否則，不允許在運(yùn)行時用 “ 自定義工具欄 ” 對話框自定義 ToolBar控件。選擇 0為標(biāo)準(zhǔn)樣式，按鈕呈標(biāo)準(zhǔn)凸起形狀，選擇 1時按鈕呈平面形狀。選擇 0—tbrTextAlignBottom使文本與按鈕的底部對齊，選擇1—tbrTextAlignRight使文本與按鈕的右側(cè)對齊。 ? “ 邊框樣式 ” ：對應(yīng)于工具欄的 BorderStyle屬性，選擇 0為無邊框樣式，選擇 1為固定單邊框。在圖像列表中會列出窗體上的 ImageList控件的名稱，從列表中選擇某個 ImageList控件使該工具欄與選擇的 ImageList控件相關(guān)聯(lián)，這樣，該工具欄就可以使用該ImageList控件提供的圖像了。運(yùn)行時，當(dāng)鼠標(biāo)指向工具欄時，鼠標(biāo)指針顯示成該屬性定義的形狀。 工具欄的設(shè)計 圖 59 Toolbar控件的 “ 屬性頁 ” 對話框的 “ 通用 ” 選項卡 ? ④設(shè)置 “ 通用 ” 選項卡的屬性，其中包括的屬性如下： ? “ 鼠標(biāo)指針 ” ：對應(yīng)于工具欄的 MousePointer屬性。 ” ? ③單擊 “ 插入圖片 ” 按鈕，選擇合適的圖片插入，此時圖片索引為 1，依次類推，插入所需的圖片，此時每個圖片都自動生成 1個索引號，該索引號在定義工具欄時使用。 ? （ 4）單擊 “ 確定 ” 按鈕，在工具箱中增加了一些控件，其中包括 Toolbar控件和 Imagelist控件，如圖 58所示。 ? 使用工具欄控件制作工具欄 ? 1．添加工具欄控件（ Toolbar） ? 制作工具欄需要兩個 Active控件 ——Toolbar控件和 Imagelist控件。 圖 57 觸發(fā)彈出式菜單的事件 工具欄的設(shè)計 ? 工具欄（ Toolbar）是 Windows窗口的組成部分，常常放在窗口的頂部。 圖 56 彈出式菜單的應(yīng)用 菜單設(shè)計 ? （ 1） 在 “ 菜單編輯器 ” 中設(shè)置快捷菜單項 ， 如表 54所示 。單擊鼠標(biāo)右鍵 ? If Button=2 Then ? 39。如果該參數(shù)省略，則彈出式菜單中沒有以黑體字出現(xiàn)的控件。 ? y：指定顯示彈出式菜單的 y坐標(biāo)，省略時為鼠標(biāo)坐標(biāo)。 菜單設(shè)計 表 52 位置常量 表 53 行為常量 值 位置常量 說明 0 vbPopupMenuLeftAlign 缺省值，彈出式菜單的左上角位于坐標(biāo) (x,y)處 4 vbPopupMenuCenterAlign 彈出式菜單的上框中央位于坐標(biāo) (x,y)處 8 vbPopupMenuRightAlign 彈出式菜單的右上角位于坐標(biāo) (x,y)處 值 行為常量 說明 0 VbPopupMenuLeftButton 缺省值，彈出式菜單項只響應(yīng)鼠標(biāo)左鍵單擊 2 VbPopupMenuRightButton 彈出式菜單項可以響應(yīng)鼠標(biāo)左、右鍵單擊 菜單設(shè)計 ? 如果要同時指定位置常量和行為常量時，則將兩個參數(shù)值用 Or連接，如：0 0r 2。 ? 菜單名 ：在菜單設(shè)計器中設(shè)計的菜單項的名稱。 ? 在 MouseDown事件中用 PopupMenu方法顯示彈出式菜單，其格式為： ? [對象名 ． ]PopupMenu菜單名 [， flags[， x[， y[， boldmand]]]] ? 其作用是在當(dāng)前對象上的當(dāng)前鼠標(biāo)位置或指定的坐標(biāo)位置顯示彈出式菜單。 ? ② Shift值對 Shift、 Ctrl和 Alt鍵的位置進(jìn)行判斷： ? 03個鍵都向上； ? 1Shift鍵按下； ? 2Ctrl鍵按下； ? 3Shift鍵和 Ctrl鍵按下； ? 4Alt鍵按下； ? 5Shift鍵和 Alt鍵 Ctrl鍵按下； ? 6Ctrl鍵和 Alt鍵按下； ? 73個鍵都按下。 ? （ 2）編寫 MouseDown事件 ? 彈出式菜單使單擊鼠標(biāo)右鍵所引發(fā)的事件，必定要在對象的 MouseDown事件過程中編寫代碼。彈出式菜單通過單擊鼠標(biāo)右鍵打開，所以也稱 “ 右鍵菜單 ” 。 圖 55 編寫的菜單事件 菜單設(shè)計 ? 彈出式菜單 ? 在 Windows環(huán)境下，除了下拉式菜單外，彈出式菜單應(yīng)用得也非常廣泛。 ? 菜單的 Click事件代碼很多，這里只給出 “ 編輯 ” 菜單項的 “ 新建 ” 子菜單的 Click事件，如圖 55所示。A) gy 1 Alt+ 菜單設(shè)計 ? 2．編寫菜單事件 ? 用戶要能操作菜單，就需給每個菜單項編寫一個 Click事件。H) help 無 Alt+H 子菜單項 1 目錄 (amp。S) system 無 Alt+S 子菜單項 1 備份數(shù)據(jù)庫 (B) backup 1 Ctrl+B 子菜單項 2 恢復(fù)數(shù)據(jù)庫 (R) restore 1 Ctrl+R 子菜單項 3 m3 1 子菜單項 4 注銷 (U) do 1 Ctrl+U 子菜單項 5 更改密碼 (M) pass 1 Ctrl+M 子菜單項 6 用戶管理 (G) gl 1 Ctrl+G 菜單項 4 分組報表打印(amp。S) saveas 1 Alt+R 子菜單項 7 m0 1 子菜單項 8 打印 print 1 Ctrl+P 子菜