【正文】 此時(shí)在窗體的頂部就可以看到設(shè)計(jì)的菜單結(jié)構(gòu)。 菜單設(shè)計(jì)n “企業(yè)資質(zhì)管理系統(tǒng) ”下拉式菜單的設(shè)計(jì)n 下面介紹在 “企業(yè)資質(zhì)管理系統(tǒng) ”中設(shè)計(jì)下拉式菜單的方法。 圖 54 各子菜單項(xiàng) 菜單設(shè)計(jì)n 在菜單編輯器中設(shè)計(jì)主菜單和各子菜單項(xiàng)，它們的設(shè)置如表 51所示。用鼠標(biāo)單擊窗體上的各下拉菜單項(xiàng)就可以打開(kāi)相應(yīng)的菜單項(xiàng)的 Click事件，在其中編寫代碼。用戶通過(guò)單擊相應(yīng)的按鈕就可以打開(kāi)所需的窗體對(duì)象，使用便捷。下拉式菜單放置在程序界面得頂部，而彈出式菜單可以出現(xiàn)在窗體的任何部位，適用于少量的菜單項(xiàng)，操作靈活方便。n 設(shè)計(jì)彈出式菜單的步驟如下：n （ 1）使用 “菜單編輯器 ”n 在菜單編輯器中按設(shè)計(jì)下拉式菜單的方法設(shè)計(jì)彈出式菜單，根據(jù)需要將要作為彈出式菜單的頂級(jí)菜單設(shè)置為可見(jiàn)或不可見(jiàn)，各子菜單項(xiàng)設(shè)為可見(jiàn)。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 ③ X， Y指出鼠標(biāo)當(dāng)前位置。n 其中：n 對(duì)象名 ：指菜單所在的位置，如果省略，則默認(rèn)為是當(dāng)前窗體。n flags：取一個(gè)數(shù)值或常量，用于指定彈出式菜單的位置和行為，其取值如表 52和表 53所示。n x：指定顯示彈出式菜單的 x坐標(biāo)，省略時(shí)為鼠標(biāo)坐標(biāo)。n boldmand：指定彈出式菜單中的菜單控件的名字，用以顯示其黑體正文標(biāo)題。n 因此，在對(duì)象的 MouseDown事件過(guò)程中編寫代碼通常如下n Private Sub Form_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)n 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ì)方法如下。 表 54 快捷菜單項(xiàng)的設(shè)置 菜單項(xiàng) 標(biāo)題 名稱 可見(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 查詢 query 可見(jiàn)子菜單項(xiàng) 6 打印預(yù)覽 preview 可見(jiàn)子菜單項(xiàng) 7 打印 print 可見(jiàn) 菜單設(shè)計(jì)n （ 2）編寫 MouseDown事件n 由于快捷菜單在單擊表格控件時(shí)發(fā)生，因此在控件 DataGrid1的 MouseDown過(guò)程中編寫代碼，如圖 57所示。它含有與應(yīng)用程序的菜單相對(duì)應(yīng)的項(xiàng)目，為用戶提供快速訪問(wèn)的工具。使用該控件創(chuàng)建工具欄快捷方便，但在 Visual Basic的標(biāo)準(zhǔn)工具箱中沒(méi)有這兩個(gè)控件，需要先將它們添加到工具箱中，添加步驟如下：n （ 1）選擇 “工程 → 部件 ”菜單項(xiàng)，彈出 “部件 ”對(duì)話框；n （ 2）在 “部件 ”對(duì)話框中選擇 “控件 ”選項(xiàng)卡；n （ 3）在 “控件 ”選項(xiàng)卡的列表項(xiàng)里選擇 “Microsoft Windows Common Controls ”。 圖 58 工具箱中的 Toolbar控件和 Imagelist控件 工具欄的設(shè)計(jì)n 2．使用工具欄控件制作工具欄n 使用工具欄控件制作工具欄的步驟如下：n （ 1）創(chuàng)建 Imagelist控件n 通常工具欄的按鈕都有相應(yīng)的圖片顯示，因此首先創(chuàng)建 Imagelist控件，其操作步驟如下：n ① 將工具箱中的 Imagelist控件加入到窗體中，生成 Imagelist1控件；n ② 右擊 Imagelist1控件，在彈出菜單中選擇 “屬性 ”菜單項(xiàng)，然后在對(duì)話框中選擇 “圖像選項(xiàng)卡。n （ 2）創(chuàng)建 Toolbar控件n 創(chuàng)建了 Imagelist1控件后，利用 Toolbar控件創(chuàng)建工具欄的步驟如下：n ① 將工具箱中的 Toolbar控件加入到窗體中，生成 Toolbar1控件；n ② 右擊 Toolbar1控件，在彈出菜單中選擇 “屬性 ”菜單項(xiàng)，彈出 “屬性頁(yè) ”對(duì)話框；n ③ “屬性頁(yè) ”對(duì)話框包括三個(gè)選項(xiàng)卡： “通用 ”、 “按鈕 ”和 “圖片 ”選項(xiàng)卡，如圖 59所示。該屬性設(shè)置提供了一個(gè)下拉列表，從下拉列表中可以選擇各種預(yù)定義的鼠標(biāo)指針形狀。n “圖像列表 ”：對(duì)應(yīng)于工具欄的 Imagelist屬性。n “外觀 ”：對(duì)應(yīng)于工具欄的 Appearance屬性，用于決定工具欄是否帶有三維效果。 工具欄的設(shè)計(jì)n “文本對(duì)齊 ”：對(duì)應(yīng)于工具欄的 TextAlignment屬性，用于確定文本在按鈕上的位置。n “樣式 ”：對(duì)應(yīng)于工具欄的 Style屬性，用于決定工具欄按鈕的外觀樣式。n “允許自定義 ”：對(duì)應(yīng)于工具欄的 AllowCustomize屬性，用于決定運(yùn)行時(shí)是否可用 “自定義工具欄 ”對(duì)話框自定義 ToolBar控件。n “可換行的 ”：對(duì)應(yīng)于工具欄的 Wrappable屬性，用于決定當(dāng)重新設(shè)置窗體大小時(shí)， ToolBar控件按鈕是否自動(dòng)換行。n “顯示提示 ”：對(duì)應(yīng)于工具欄的 ShowTips屬性，用于決定是否對(duì)按鈕對(duì)象顯示工具提示。n “有效 ”：對(duì)應(yīng)于工具欄的 Enabled屬性，用于決定工具欄是否有效。在設(shè)計(jì)時(shí)，使用 “按鈕 ”選項(xiàng)卡可以添加按鈕對(duì)象并對(duì)各個(gè)按鈕對(duì)象的屬性進(jìn)行設(shè)置。n “刪除按鈕 ”：?jiǎn)螕粼摪粹o可以刪除工具欄上由當(dāng)前索引指定的按鈕對(duì)象。在代碼中訪問(wèn)此按鈕對(duì)象時(shí)要使用該索引值。n “關(guān)鍵字 ”：對(duì)應(yīng)于按鈕對(duì)象的 Key屬性，用于給當(dāng)前的按鈕對(duì)象定義一個(gè)標(biāo)識(shí)符。n “樣式 ”：對(duì)應(yīng)于按鈕對(duì)象的 Style屬性，用來(lái)確定按鈕對(duì)象的外觀和狀態(tài)。n 1—tbrCheck按鈕是一個(gè)復(fù)選按鈕，可以有選擇和未選擇兩種狀態(tài)。一個(gè)按鈕組內(nèi)在任何時(shí)刻都只能按下一個(gè)按鈕。如果需要多個(gè)按鈕組，必須使用分隔符對(duì)它們進(jìn)行分組。使用分隔符可以對(duì)不同的選項(xiàng)按鈕組進(jìn)行分組。n 5—tbrDropDown 按鈕呈按鈕菜單的樣式，選擇該選項(xiàng)后，在按鈕的旁邊會(huì)有一個(gè)下拉箭頭。下拉菜單的菜單項(xiàng)可以在本選項(xiàng)卡下部的 “按鈕菜單 ”中進(jìn)一步設(shè)置。n “圖像 ”：對(duì)應(yīng)于按鈕對(duì)象的 Image屬性，可以為每個(gè)按鈕對(duì)象添加圖像。每個(gè)圖像在 ImageList控件的 “屬性頁(yè) ”設(shè)置中會(huì)有一個(gè)索引值，在這里只需要指出要使用的圖像的索引值即可。n “有效 ”：對(duì)應(yīng)于按鈕的 Enabled屬性，用于決定按鈕是否響應(yīng)用戶事件，缺省值為有效（ True）。n “插入按鈕菜單 ”按鈕：當(dāng)在 “樣式 ”中選擇 5時(shí)，按鈕呈按鈕菜單的樣式，這時(shí)可以為按鈕添加一個(gè)按鈕菜單，使用 “插入按鈕菜單 ”按鈕可以向按鈕菜單中增加一個(gè)菜單項(xiàng)。n “文本 ”：對(duì)應(yīng)于按鈕菜單項(xiàng)的 Text屬性，用于設(shè)置要在按鈕菜單項(xiàng)中顯示的文本。n “可見(jiàn) ”：對(duì)應(yīng)于按鈕菜單項(xiàng)的 Visible屬性。運(yùn)行時(shí)，當(dāng)鼠標(biāo)指針指向工具欄時(shí)，鼠標(biāo)指針將顯示成定義的圖片。n （ 3）編寫事件代碼n 要使工具欄能夠?qū)崿F(xiàn)用戶操作的功能，還需編寫事件代碼，這樣運(yùn)行的工具欄就可以發(fā)揮它的作用了。n 1．添加 Toolbar控件和 Imagelist控件n 在上節(jié)中介紹了在工具箱中添加 Toolbar控件和 Imagelist控件的方法，這里不再贅述。 圖 511 創(chuàng)建 Imagelist控件 工具欄的設(shè)計(jì)n 3．創(chuàng)建 Toolbar控件n 按前面介紹的方法在工具箱中選擇一個(gè) Toolbar控件放在窗體中，在Toolbar控件的 “屬性頁(yè) ”對(duì)話框選擇 “通用 ”選項(xiàng)卡，在 “圖像列表 ”的下拉列表中選擇 ToolbarIcons控件，使 Toolbar控件與