VBNET是一款完全面向對象的編程語言它的出現為開發人員打造了一個功能強大性能穩定的開發平台對VBNET的開發者而言能在設計與運行時操作菜單項目是非常有幫助的這篇技巧將探索如何在設計與運行時創建和改變VBNET菜單項目
菜單是大多數應用軟件中必不可少的一部分在設計時與運行時操作它們的能力對VBNET開發者是非常有幫助的在這篇技巧中我將著眼於如何在設計時與運行時創建和改變菜單項目
首先我們先回顧一些菜單的基礎知識為了在您的應用軟件中使用菜單您需要在設計時使用MainMenu組件創建一個主菜單項目這個MainMenu組件將允許您創建和添加新菜單和新的菜單欄使用屬性窗口來改變菜單項目屬性並為菜單事件創建事件處理器
在設計時創建VBNET菜單項目
您可以在表單工具箱中找到MainMenu組件為了添加MainMenu組件到您的表單上可以將該控件托拽到表單上或在該控件上用右鍵點擊
通過MainMenu組件您可以向VBNET的Windows表單中快速而簡便地添加菜單而且顯示在您的表單中的菜單和運行時顯示的是一樣的當您輸入時額外的菜單框會在第一個菜單項目的右邊出現子菜單也可以按同樣的方式創建如果要創建一個子菜單只需要簡單地在您想擴展的菜單項目右邊輸入一個條目
在運行時操作VBNET菜單項目
您可以在運行時動態操作菜單項目這種動態操作是必須的如果您需要對軟件用戶的某一操作做出響應來顯示某一組特殊的菜單而且如果用此功能來禁止菜單對錯誤進行響應也是很有用的您可以選擇在運行時添加隱藏或者禁止菜單並可對它們旁邊的復選按鈕做出同樣的選擇
VBNET菜單項目操作代碼示例
在列表A中我創建了三個新的菜單項目mnuMenuItemmnuMenuItem和mnuMenuItem我向MainMenu菜單中添加了mnuMenuItem和mnuMenuItem並設定mnuMenuItem作為mnuMenuItem的子菜單注意我將mnuMenuItem的選中屬性（Checked）設為True並在這個項目旁邊放置了一個復選框源碼天空我還定義了兩個事件mnuMenuItem_Click和mnuMenuItem_Click當用戶點擊了菜單之後將顯示一個消息對話框列表A中的代碼的運行結果應該和圖B看上去相仿
列表A:
Private Sub Form_Load（）
Sub Form_Load（ByVal sender As SystemObject ByVal e As SystemEventArgs）
Handles MyBaseLoad SetMenus（）
End Sub
Private Sub SetMenus（）
Sub SetMenus（）
Dim mnuMenuItem
As MenuItem mnuMenuItem As MenuItem mnuMenuItem As MenuItem mnuMenuItem = New MenuItem（Item New EventHandler（AddressOf mnuMenuItem_Click））
MainMenuMenuItemsAdd（mnuMenuItem）
mnuMenuItem = New MenuItem（Item ）
MainMenuMenuItemsAdd（mnuMenuItem）
mnuMenuItem = New MenuItem（Item New EventHandler（AddressOf mnuMenuItem_Click））
mnuMenuItemChecked = True mnuMenuItemMenuItemsAdd（mnuMenuItem）
End Sub
Private Sub mnuMenuItem_Click（）
Sub mnuMenuItem_Click（ByVal sender As Object ByVal e As SystemEventArgs）
MessageBoxShow（Menu Item Clicked）
End Sub
Private Sub mnuMenuItem_Click（）
Sub mnuMenuItem_Click（ByVal sender As Object ByVal e As SystemEventArgs）
MessageBoxShow（Menu Item Clicked）
End Sub
VBNET菜單項目的相關創建與改變的操作就為大家介紹到這裡
From:http://tw.wingwit.com/Article/program/net/201311/11578.html
