【正文】 f 2 子菜單項 8 上一條 p 2 子菜單項 9 下一條 n 2 子菜單項 10 最后一條 l 2 子菜單項 11 m4 1 子菜單項 12 屬性 (A) undo 1 Ctrl+A 菜單設計 菜單項 3 系統(tǒng) (amp。T) hz 無 Alt+T 子菜單項 1 安全資格證書（副本） fb 1 子菜單項 2 安全資格證書 aqre 1 子菜單項 3 按單位性質分組統(tǒng)計 dw 1 菜單設計 子菜單項 4 按等級分組統(tǒng)計 dj 1 子菜單項 5 m5 1 子菜單項 6 按人員技術職稱分組統(tǒng)計 ryzc 1 子菜單項 7 m7 1 子菜單項 8 按地市（州）分組統(tǒng)計在建項目 zj 1 子菜單項 9 分組統(tǒng)計事故情況 ds 1 菜單項 5 幫助 (amp。I) sy 1 Alt+I 子菜單項 2 m6 1 子菜單項 3 個人主頁 url 1 子菜單項 4 關于 ...(amp。用鼠標單擊窗體上的各下拉菜單項就可以打開相應的菜單項的 Click事件，在其中編寫代碼。用戶通過單擊相應的按鈕就可以打開所需的窗體對象，使用便捷。下拉式菜單放置在程序界面得頂部，而彈出式菜單可以出現在窗體的任何部位，適用于少量的菜單項，操作靈活方便。 ? 設計彈出式菜單的步驟如下： ? （ 1）使用 “ 菜單編輯器 ” ? 在菜單編輯器中按設計下拉式菜單的方法設計彈出式菜單，根據需要將要作為彈出式菜單的頂級菜單設置為可見或不可見，各子菜單項設為可見。 ? Private Sub Form_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) ? End Sub 菜單設計 ? 參數的意義是： ? ① Button值判斷按下哪一個鼠標鍵： 1左鍵； 2右鍵； 3中鍵。 ? ③ X， Y指出鼠標當前位置。 ? 其中： ? 對象名 ：指菜單所在的位置，如果省略，則默認為是當前窗體。 ? flags：取一個數值或常量，用于指定彈出式菜單的位置和行為，其取值如表 52和表 53所示。 ? x：指定顯示彈出式菜單的 x坐標，省略時為鼠標坐標。 ? boldmand：指定彈出式菜單中的菜單控件的名字，用以顯示其黑體正文標題。 ? 因此，在對象的 MouseDown事件過程中編寫代碼通常如下 ? Private Sub Form_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) ? 39。用 PopupMenu方法彈出菜單 ? PopupMenu 菜單名 ? End If ? End Sub 菜單設計 ? “企業(yè)資質管理系統(tǒng) ” 彈出式菜單的設計 ? 在 “ 企業(yè)資質管理系統(tǒng) ” 中應用了彈出式菜單，如圖56所示，其設計方法如下。 表 54 快捷菜單項的設置 菜單項 標題 名稱 可見性 主菜單項 編輯 editmenu 不可見 子菜單項 1 新建 new1 可見 子菜單項 2 刪除 del1 可見 子菜單項 3 屬性 Attribute 可見 子菜單項 4 mm 可見 子菜單項 5 查詢 query 可見 子菜單項 6 打印預覽 preview 可見 子菜單項 7 打印 print 可見 菜單設計 ? （ 2）編寫 MouseDown事件 ? 由于快捷菜單在單擊表格控件時發(fā)生，因此在控件 DataGrid1的 MouseDown過程中編寫代碼，如圖 57所示。它含有與應用程序的菜單相對應的項目，為用戶提供快速訪問的工具。使用該控件創(chuàng)建工具欄快捷方便，但在 Visual Basic的標準工具箱中沒有這兩個控件，需要先將它們添加到工具箱中，添加步驟如下： ? （ 1）選擇 “ 工程 → 部件 ” 菜單項，彈出 “ 部件 ” 對話框； ? （ 2）在 “ 部件 ” 對話框中選擇 “ 控件 ” 選項卡； ? （ 3）在 “ 控件 ” 選項卡的列表項里選擇 “ Microsoft Windows Common Controls ”。 圖 58 工具箱中的 Toolbar控件和 Imagelist控件 工具欄的設計 ? 2．使用工具欄控件制作工具欄 ? 使用工具欄控件制作工具欄的步驟如下： ? （ 1）創(chuàng)建 Imagelist控件 ? 通常工具欄的按鈕都有相應的圖片顯示，因此首先創(chuàng)建 Imagelist控件，其操作步驟如下： ? ①將工具箱中的 Imagelist控件加入到窗體中，生成 Imagelist1控件； ? ②右擊 Imagelist1控件，在彈出菜單中選擇 “ 屬性 ” 菜單項，然后在對話框中選擇“ 圖像選項卡。 ? （ 2）創(chuàng)建 Toolbar控件 ? 創(chuàng)建了 Imagelist1控件后，利用 Toolbar控件創(chuàng)建工具欄的步驟如下： ? ①將工具箱中的 Toolbar控件加入到窗體中，生成 Toolbar1控件； ? ②右擊 Toolbar1控件，在彈出菜單中選擇 “ 屬性 ” 菜單項，彈出 “ 屬性頁 ” 對話框； ? ③ “ 屬性頁 ” 對話框包括三個選項卡： “ 通用 ” 、 “ 按鈕 ” 和 “ 圖片 ” 選項卡，如圖 59所示。該屬性設置提供了一個下拉列表，從下拉列表中可以選擇各種預定義的鼠標指針形狀。 ? “ 圖像列表 ” ：對應于工具欄的 Imagelist屬性。 ? “ 外觀 ” ：對應于工具欄的 Appearance屬性，用于決定工具欄是否帶有三維效果。 工具欄的設計 ? “文本對齊 ” ：對應于工具欄的 TextAlignment屬性，用于確定文本在按鈕上的位置。 ? “ 樣式 ” ：對應于工具欄的 Style屬性，用于決定工具欄按鈕的外觀樣式。 ? “ 允許自定義 ” ：對應于工具欄的 AllowCustomize屬性，用于決定運行時是否可用 “ 自定義工具欄 ” 對話框自定義 ToolBar控件。 ? “ 可換行的 ” ：對應于工具欄的 Wrappable屬性，用于決定當重新設置窗體大小時， ToolBar控件按鈕是否自動換行。 ? “ 顯示提示 ” ：對應于工具欄的 ShowTips屬性，用于決定是否對按鈕對象顯示工具提示。 ? “ 有效 ” ：對應于工具欄的 Enabled屬性，用于決定工具欄是否有效。在設計時，使用 “ 按鈕 ” 選項卡可以添加按鈕對象并對各個按鈕對象的屬性進行設置。 ? “ 刪除按鈕 ” ：單擊該按鈕可以刪除工具欄上由當前索引指定的按鈕對象。在代碼中訪問此按鈕對象時要使用該索引值。 ? “ 關鍵字 ” ：對應于按鈕對象的 Key屬性，用于給當前的按鈕對象定義一個標識符。 ? “ 樣式 ” ：對應于按鈕對象的 Style屬性，用來確定按鈕對象的外觀和狀態(tài)。 ? 1—tbrCheck按鈕是一個復選按鈕，可以有選擇和未選擇兩種狀態(tài)。一個按鈕組內在任何時刻都只能按下一個按鈕。如果需要多個按鈕組，必須使用分隔符對它們進行分組。使用分隔符可以對不同的選項按鈕組進行分組。 ? 5—tbrDropDown 按鈕呈按鈕菜單的樣式，選擇該選項后，在按鈕的旁邊會有一個下拉箭頭。下拉菜單的菜單項可以在本選項卡下部的 “ 按鈕菜單 ” 中進一步設置。 ? “ 圖像 ” ：對應于按鈕對象的 Image屬性，可以為每個按鈕對象添加圖像。每個圖像在 ImageList控件的 “ 屬性頁 ” 設置中會有一個索引值，在這里只需要指出要使用的圖像的索引值即可。 ? “ 有效 ” ：對應于按鈕的 Enabled屬性，用于決定按鈕是否響應用戶事件，缺省值為有效（ True）。 ? “ 插入按鈕菜單 ” 按鈕：當在 “ 樣式 ” 中選擇 5時，按鈕呈按鈕菜單的樣式，這時可以為按鈕添加一個按鈕菜單，使用 “ 插入按鈕菜單 ” 按鈕可以向按鈕菜單中增加一個菜單項。 ? “ 文本 ” ：對應于按鈕菜單項的 Text屬性，用于設置要在按鈕菜單項中顯示的文本。 ? “ 可見 ” ：對應于按鈕菜單項的 Visible屬性。運行時，當鼠標指針指向工具欄時，鼠標指針將顯示成定義的圖片。 ? （ 3）編寫事件代碼 ? 要使工具欄能夠實現用戶操作的功能，還需編寫事件代碼，這樣運行的工具欄就可以發(fā)揮它的作用了。 ? 1．添加 Toolbar控件和 Imagelist控件 ? 在上節(jié)中介紹了在工具箱中添加 Toolbar控件和 Imagelist控件的方法，這里不再贅述。