【正文】 1子菜單項(xiàng) 5 查詢(xún) (F) find 1 Ctrl+F子菜單項(xiàng) 6 定位 (G) go 1 Ctrl+G子菜單項(xiàng) 7 第一條 f 2子菜單項(xiàng) 8 上一條 p 2子菜單項(xiàng) 9 下一條 n 2子菜單項(xiàng) 10 最后一條 l 2子菜單項(xiàng) 11 m4 1子菜單項(xiàng) 12 屬性 (A) undo 1 Ctrl+A 菜單設(shè)計(jì)菜單項(xiàng) 3 系統(tǒng) (S) system 無(wú) Alt+S子菜單項(xiàng) 1 備份數(shù)據(jù)庫(kù) (B) backup 1 Ctrl+B子菜單項(xiàng) 2 恢復(fù)數(shù)據(jù)庫(kù) (R) restore 1 Ctrl+R子菜單項(xiàng) 3 m3 1子菜單項(xiàng) 4 注銷(xiāo) (U) do 1 Ctrl+U子菜單項(xiàng) 5 更改密碼 (M) pass 1 Ctrl+M子菜單項(xiàng) 6 用戶(hù)管理 (G) gl 1 Ctrl+G菜單項(xiàng) 4 分組報(bào)表打印(T)hz 無(wú) Alt+T子菜單項(xiàng) 1 安全資格證書(shū)（副本）fb 1子菜單項(xiàng) 2 安全資格證書(shū) aqre 1子菜單項(xiàng) 3 按單位性質(zhì)分組統(tǒng)計(jì)dw 1 菜單設(shè)計(jì)子菜單項(xiàng) 4 按等級(jí)分組統(tǒng)計(jì) dj 1子菜單項(xiàng) 5 m5 1子菜單項(xiàng) 6 按人員技術(shù)職稱(chēng)分組統(tǒng)計(jì)ryzc 1子菜單項(xiàng) 7 m7 1子菜單項(xiàng) 8 按地市（州）分組統(tǒng)計(jì)在建項(xiàng)目zj 1子菜單項(xiàng) 9 分組統(tǒng)計(jì)事故情況 ds 1菜單項(xiàng) 5 幫助 (H) help 無(wú) Alt+H子菜單項(xiàng) 1 目錄 (I) sy 1 Alt+I子菜單項(xiàng) 2 m6 1子菜單項(xiàng) 3 個(gè)人主頁(yè) url 1子菜單項(xiàng) 4 關(guān)于 ...(A) gy 1 Alt+ 菜單設(shè)計(jì)n 2．編寫(xiě)菜單事件n 用戶(hù)要能操作菜單，就需給每個(gè)菜單項(xiàng)編寫(xiě)一個(gè) Click事件。用鼠標(biāo)單擊窗體上的各下拉菜單項(xiàng)就可以打開(kāi)相應(yīng)的菜單項(xiàng)的 Click事件，在其中編寫(xiě)代碼。n 菜單的 Click事件代碼很多，這里只給出 “編輯 ”菜單項(xiàng)的 “新建 ”子菜單的Click事件，如圖 55所示。用戶(hù)通過(guò)單擊相應(yīng)的按鈕就可以打開(kāi)所需的窗體對(duì)象，使用便捷。 圖 55 編寫(xiě)的菜單事件 菜單設(shè)計(jì) n 彈出式菜單n 在 Windows環(huán)境下，除了下拉式菜單外，彈出式菜單應(yīng)用得也非常廣泛。下拉式菜單放置在程序界面得頂部，而彈出式菜單可以出現(xiàn)在窗體的任何部位，適用于少量的菜單項(xiàng)，操作靈活方便。彈出式菜單通過(guò)單擊鼠標(biāo)右鍵打開(kāi)，所以也稱(chēng) “右鍵菜單 ”。n 設(shè)計(jì)彈出式菜單的步驟如下：n （ 1）使用 “菜單編輯器 ”n 在菜單編輯器中按設(shè)計(jì)下拉式菜單的方法設(shè)計(jì)彈出式菜單，根據(jù)需要將要作為彈出式菜單的頂級(jí)菜單設(shè)置為可見(jiàn)或不可見(jiàn)，各子菜單項(xiàng)設(shè)為可見(jiàn)。n （ 2）編寫(xiě) MouseDown事件n 彈出式菜單使單擊鼠標(biāo)右鍵所引發(fā)的事件，必定要在對(duì)象的 MouseDown事件過(guò)程中編寫(xiě)代碼。n Private Sub Form_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)n End Sub 菜單設(shè)計(jì)n 參數(shù)的意義是：n ① Button值判斷按下哪一個(gè)鼠標(biāo)鍵： 1左鍵； 2右鍵； 3中鍵。n ② Shift值對(duì) Shift、 Ctrl和 Alt鍵的位置進(jìn)行判斷：n 03個(gè)鍵都向上；n 1Shift鍵按下；n 2Ctrl鍵按下；n 3Shift鍵和 Ctrl鍵按下；n 4Alt鍵按下；n 5Shift鍵和 Alt鍵 Ctrl鍵按下；n 6Ctrl鍵和 Alt鍵按下；n 73個(gè)鍵都按下。n ③ X， Y指出鼠標(biāo)當(dāng)前位置。n 在 MouseDown事件中用 PopupMenu方法顯示彈出式菜單，其格式為：n [對(duì)象名 ． ]PopupMenu菜單名 [， flags[， x[， y[， boldmand]]]]n 其作用是在當(dāng)前對(duì)象上的當(dāng)前鼠標(biāo)位置或指定的坐標(biāo)位置顯示彈出式菜單。n 其中：n 對(duì)象名 ：指菜單所在的位置，如果省略，則默認(rèn)為是當(dāng)前窗體。n 菜單名 ：在菜單設(shè)計(jì)器中設(shè)計(jì)的菜單項(xiàng)的名稱(chēng)。n flags：取一個(gè)數(shù)值或常量，用于指定彈出式菜單的位置和行為，其取值如表 52和表 53所示。 菜單設(shè)計(jì) 表 52 位置常量 表 53 行為常量 值 位置常量 說(shuō)明0 vbPopupMenuLeftAlign 缺省值，彈出式菜單的左上角位于坐標(biāo) (x,y)處4 vbPopupMenuCenterAlign 彈出式菜單的上框中央位于坐標(biāo) (x,y)處8 vbPopupMenuRightAlign 彈出式菜單的右上角位于坐標(biāo) (x,y)處值 行為常量 說(shuō)明0 VbPopupMenuLeftButton 缺省值，彈出式菜單項(xiàng)只響應(yīng)鼠標(biāo)左鍵單擊2 VbPopupMenuRightButton 彈出式菜單項(xiàng)可以響應(yīng)鼠標(biāo)左、右鍵單擊 菜單設(shè)計(jì)n 如果要同時(shí)指定位置常量和行為常量時(shí)，則將兩個(gè)參數(shù)值用 Or連接，如： 0 0r 2。n x：指定顯示彈出式菜單的 x坐標(biāo)，省略時(shí)為鼠標(biāo)坐標(biāo)。n y：指定顯示彈出式菜單的 y坐標(biāo)，省略時(shí)為鼠標(biāo)坐標(biāo)。n boldmand：指定彈出式菜單中的菜單控件的名字，用以顯示其黑體正文標(biāo)題。如果該參數(shù)省略，則彈出式菜單中沒(méi)有以黑體字出現(xiàn)的控件。n 因此，在對(duì)象的 MouseDown事件過(guò)程中編寫(xiě)代碼通常如下n Private Sub Form_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)n 39。單擊鼠標(biāo)右鍵n If Button=2 Thenn 39。用 PopupMenu方法彈出菜單n PopupMenu 菜單名n End Ifn End Sub 菜單設(shè)計(jì)n “企業(yè)資質(zhì)管理系統(tǒng) ” 彈出式菜單的設(shè)計(jì)n 在 “企業(yè)資質(zhì)管理系統(tǒng) ”中應(yīng)用了彈出式菜單，如圖 56所示，其設(shè)計(jì)方法如下。 圖 56 彈出式菜單的應(yīng)用 菜單設(shè)計(jì)n （ 1）在 “菜單編輯器 ”中設(shè)置快捷菜單項(xiàng)，如表 54所示。 表 54 快捷菜單項(xiàng)的設(shè)置 菜單項(xiàng) 標(biāo)題 名稱(chēng) 可見(jiàn)性主菜單項(xiàng) 編輯 editmenu 不可見(jiàn)子菜單項(xiàng) 1 新建 new1 可見(jiàn)子菜單項(xiàng) 2 刪除 del1 可見(jiàn)子菜單項(xiàng) 3 屬性 Attribute 可見(jiàn)子菜單項(xiàng) 4 mm 可見(jiàn)子菜單項(xiàng) 5 查詢(xún) query 可見(jiàn)子菜單項(xiàng) 6 打印預(yù)覽 preview 可見(jiàn)子菜單項(xiàng) 7 打印 print 可見(jiàn) 菜單設(shè)計(jì)n （ 2）編寫(xiě) MouseDown事件n 由于快捷菜單在單擊表格控件時(shí)發(fā)生，因此在控件 DataGrid1的 MouseDown過(guò)程中編寫(xiě)代碼，如圖 57所示。 圖 57 觸發(fā)彈出式菜單的事件 工具欄的設(shè)計(jì)n 工具欄（ Toolbar）是 Windows窗口的組成部分，常常放在窗口的頂部。它含有與應(yīng)用程序的菜單相對(duì)應(yīng)的項(xiàng)目，為用戶(hù)提供快速訪問(wèn)的工具。n 使用工具欄控件制作工具欄n 1．添加工具欄控件（ Toolbar）n 制作工具欄需要兩個(gè) Active控件 ——Toolbar控件和 Imagelist控件。使用該控件創(chuàng)建工具欄快捷方便，但在 Visual Basic的標(biāo)準(zhǔn)工具箱中沒(méi)有這兩個(gè)控件，需要先將它們添加到工具箱中，添加步驟如下：n （ 1）選擇 “工程 → 部件 ”菜單項(xiàng)，彈出 “部件 ”對(duì)話(huà)框；n （ 2）在 “部件 ”對(duì)話(huà)框中選擇 “控件 ”選項(xiàng)卡；n （ 3）在 “控件 ”選項(xiàng)卡的列表項(xiàng)里選擇 “Microsoft Windows Common Controls ”。n （ 4）單擊 “確定 ”按鈕，在工具箱中增加了一些控件，其中包括 Toolbar控件和 Imagelist控件，如圖 58所示。