【正文】 中選擇 99ccCustom時，就可以在 “圖片 ”選項卡中為鼠標指針定義一幅圖片。n “有效 ”：對應于按鈕菜單項的 Enabled屬性。n 對每一個菜單項的訪問使用 ButtonMenus屬性，同樣有以下設置：n “索引 ”：按鈕菜單項的索引號，在代碼中訪問菜單項時要使用該索引值。n “混合狀態(tài) ”：對應于按鈕的 MixedState屬性，用于決定按鈕對象是否以不確定狀態(tài)出現，缺省值為 False。n “可見 ”：對應于按鈕的 Visible屬性，用來確定按鈕是否可見，缺省值為可見（ True）。圖像是由關聯(lián)的ImageList控件提供的。 工具欄的設計n “工具提示文本 ”：對應于按鈕對象的 ToolTipText屬性，用于設置按鈕的提示信息，運行時鼠標指向該按鈕時會出現該提示字符串。運行時單擊下拉箭頭可以打開一個下拉菜單，從中選擇所需要的選項。n 4—tbrPlaceholder按鈕作為占位符使用，在外觀和功能上像分隔符，但可以設置其寬度。n 3—tbrSeparator 按鈕作為有 8個像素的固定寬度的分隔符使用。當按下組內的另一個按鈕時，原按下的按鈕會自動抬起。n 2—tbrButtonGroup按鈕具有選項按鈕組的特點。其取值如下：n 0—tbrDefault按鈕具有命令按鈕的特點。該標識符在整個按鈕對象集合的標識符中必須惟一。n “標題 ”：對應于按鈕對象的 Caption屬性，用來設置要在按鈕對象上顯示的文本。n “索引 ”：對應于按鈕對象的 Index屬性，表示添加的按鈕對象的索引值，該索引值由添加次序決定。選擇 “屬性頁 ”對話框的 “按鈕 ”選項卡，如圖 510所示，其中包括的屬性如下： 圖 510 在工具欄中添加新按鈕 工具欄的設計n “插人按鈕 ”：單擊該按鈕可以在工具欄上添加一個按鈕對象。 工具欄的設計n ⑤ 添加工具欄的按鈕n 工具欄中要包含按鈕，因此創(chuàng)建工具欄，必須先將按鈕添加到工具欄中。如果該屬性設置為 True，工具欄中的每個對象都可以顯示一個相關的提示字符串；否則，不允許顯示提示字符串。如果該屬性設置為 True，在重新調整窗體大小時， ToolBar控件上的按鈕會自動換行；否則， ToolBar控件上的按鈕不會自動換行。如果該屬性設置為True，運行時雙擊 ToolBar控件可以打開一個 “自定義工具欄 ”對話框；否則，不允許在運行時用 “自定義工具欄 ”對話框自定義 ToolBar控件。選擇 0為標準樣式，按鈕呈標準凸起形狀，選擇 1時按鈕呈平面形狀。選擇 0—tbrTextAlignBottom使文本與按鈕的底部對齊，選擇 1—tbrTextAlignRight使文本與按鈕的右側對齊。n “邊框樣式 ”：對應于工具欄的 BorderStyle屬性，選擇 0為無邊框樣式，選擇 1為固定單邊框。在圖像列表中會列出窗體上的 ImageList控件的名稱，從列表中選擇某個 ImageList控件使該工具欄與選擇的 ImageList控件相關聯(lián)，這樣，該工具欄就可以使用該 ImageList控件提供的圖像了。運行時，當鼠標指向工具欄時，鼠標指針顯示成該屬性定義的形狀。 工具欄的設計 圖 59 Toolbar控件的 “屬性頁 ”對話框的 “通用 ”選項卡n ④ 設置 “通用 ”選項卡的屬性，其中包括的屬性如下：n “鼠標指針 ”：對應于工具欄的 MousePointer屬性。 ”n ③ 單擊 “插入圖片 ”按鈕，選擇合適的圖片插入，此時圖片索引為 1，依次類推，插入所需的圖片，此時每個圖片都自動生成 1個索引號，該索引號在定義工具欄時使用。n （ 4）單擊 “確定 ”按鈕，在工具箱中增加了一些控件，其中包括 Toolbar控件和 Imagelist控件，如圖 58所示。n 使用工具欄控件制作工具欄n 1．添加工具欄控件（ Toolbar）n 制作工具欄需要兩個 Active控件 ——Toolbar控件和 Imagelist控件。 圖 57 觸發(fā)彈出式菜單的事件 工具欄的設計n 工具欄（ Toolbar）是 Windows窗口的組成部分，常常放在窗口的頂部。 圖 56 彈出式菜單的應用 菜單設計n （ 1）在 “菜單編輯器 ”中設置快捷菜單項，如表 54所示。單擊鼠標右鍵n If Button=2 Thenn 39。如果該參數省略，則彈出式菜單中沒有以黑體字出現的控件。n y：指定顯示彈出式菜單的 y坐標，省略時為鼠標坐標。 菜單設計 表 52 位置常量 表 53 行為常量 值 位置常量 說明0 vbPopupMenuLeftAlign 缺省值，彈出式菜單的左上角位于坐標 (x,y)處4 vbPopupMenuCenterAlign 彈出式菜單的上框中央位于坐標 (x,y)處8 vbPopupMenuRightAlign 彈出式菜單的右上角位于坐標 (x,y)處值 行為常量 說明0 VbPopupMenuLeftButton 缺省值，彈出式菜單項只響應鼠標左鍵單擊2 VbPopupMenuRightButton 彈出式菜單項可以響應鼠標左、右鍵單擊 菜單設計n 如果要同時指定位置常量和行為常量時，則將兩個參數值用 Or連接，如： 0 0r 2。n 菜單名 ：在菜單設計器中設計的菜單項的名稱。n 在 MouseDown事件中用 PopupMenu方法顯示彈出式菜單，其格式為：n [對象名 ． ]PopupMenu菜單名 [， flags[， x[， y[， boldmand]]]]n 其作用是在當前對象上的當前鼠標位置或指定的坐標位置顯示彈出式菜單。n ② Shift值對 Shift、 Ctrl和 Alt鍵的位置進行判斷：n 03個鍵都向上；n 1Shift鍵按下；n 2Ctrl鍵按下；n 3Shift鍵和 Ctrl鍵按下；n 4Alt鍵按下；n 5Shift鍵和 Alt鍵 Ctrl鍵按下；n 6Ctrl鍵和 Alt鍵按下；n 73個鍵都按下。n （ 2）編寫 MouseDown事件n 彈出式菜單使單擊鼠標右鍵所引發(fā)的事件，必定要在對象的 MouseDown事件過程中編寫代碼。彈出式菜單通過單擊鼠標右鍵打開，所以也稱 “右鍵菜單 ”。 圖 55 編寫的菜單事件 菜單設計 n 彈出式菜單n 在 Windows環(huán)境下，除了下拉式菜單外，彈出式菜單應用得也非常廣泛。n 菜單的 Click事件代碼很多，這里只給出 “編輯 ”菜單項的 “新建 ”子菜單的Click事件，如圖 55所示。 表 51 菜單項的設置菜單項 標題 名稱 內縮符號 快捷鍵 訪問鍵主菜單項 1 文件(F)file 無 Alt+F子菜單項 1 導入 (I) import 1 Ctrl+I子菜單項 2 導出 (E) export 1 Ctrl+E子菜單項 3 網絡傳送tr 1 菜單設計子菜單項 4 m11 1子菜單項 5 選擇恢復數據庫(R)rest 1 Alt+E子菜單項 6 數據庫另存為(S)saveas 1 Alt+R子菜單項 7 m0 1子菜單項 8 打印 print 1 Ctrl+P子菜單項 9 打印設置 psetup 1子菜單項 10 打印預覽 (V) pre 1 Ctrl+V子菜單項 m1 1子菜單項 退出 (X) 1 Ctrl+X菜單項 2 編輯 (E) edit 無Alt+S子菜單項 1 新建 (N) new 1 Ctrl+N 菜單設計子菜單項 2 刪除 (D) delete 1 Shift+Del子菜單項 3 批量清空 deleteall 1子菜單項 4 m2 1子菜單項 5 查詢 (F