VB.NET是一款完全面向?qū)ο蟮木幊陶Z言，它的出現(xiàn)為開發(fā)人員打造了一個功能強大，性能穩(wěn)定的開發(fā)平臺。對VB.NET的開發(fā)者而言，能在設(shè)計與運行時操作菜單項目是非常有幫助的，這篇技巧將探索如何在設(shè)計與運行時創(chuàng)建和改變VB.NET菜單項目。 #t#

菜單是大多數(shù)應(yīng)用軟件中必不可少的一部分，在設(shè)計時與運行時操作它們的能力對VB.NET開發(fā)者是非常有幫助的。在這篇技巧中，我將著眼于如何在設(shè)計時與運行時創(chuàng)建和改變菜單項目。

首先，我們先回顧一些菜單的基礎(chǔ)知識。為了在您的應(yīng)用軟件中使用菜單，您需要在設(shè)計時使用MainMenu組件創(chuàng)建一個主菜單項目，這個MainMenu組件將允許您：創(chuàng)建和添加新菜單和新的菜單欄；使用屬性窗口來改變菜單項目屬性；并為菜單事件創(chuàng)建事件處理器。

在設(shè)計時創(chuàng)建VB.NET菜單項目

您可以在表單工具箱中找到MainMenu組件，為了添加MainMenu組件到您的表單上，可以將該控件托拽到表單上或在該控件上用右鍵點擊。

通過MainMenu組件，您可以向VB.NET的Windows表單中快速而簡便地添加菜單，而且顯示在您的表單中的菜單和運行時顯示的是一樣的。當您輸入時，額外的菜單框會在***個菜單項目的右邊出現(xiàn)，子菜單也可以按同樣的方式創(chuàng)建。如果要創(chuàng)建一個子菜單，只需要簡單地在您想擴展的菜單項目右邊輸入一個條目。

在運行時操作VB.NET菜單項目

您可以在運行時動態(tài)操作菜單項目，這種動態(tài)操作是必須的，如果您需要對軟件用戶的某一操作做出響應(yīng)來顯示某一組特殊的菜單。而且，如果用此功能來禁止菜單對錯誤進行響應(yīng)也是很有用的。您可以選擇在運行時添加、隱藏或者禁止菜單，并可對它們旁邊的復(fù)選按鈕做出同樣的選擇。

VB.NET菜單項目操作代碼示例

在列表A中，我創(chuàng)建了三個新的菜單項目，mnuMenuItem1、mnuMenuItem2和mnuMenuItem3，我向MainMenu1菜單中添加了mnuMenuItem1和mnuMenuItem2，并設(shè)定mnuMenuItem3作為mnuMenuItem2的子菜單。注意我將mnuMenuItem3的選中屬性（Checked）設(shè)為True并在這個項目旁邊放置了一個復(fù)選框，我還定義了兩個事件：mnuMenuItem1_Click和mnuMenuItem3_Click，當用戶點擊了菜單之后將顯示一個消息對話框，列表A中的代碼的運行結(jié)果應(yīng)該和圖B看上去相仿。

列表A：

Private Sub Form1_Load()  
Sub Form1_Load(ByVal sender 
As System.Object, ByVal e 
As System.EventArgs)   
Handles MyBase.Load SetMenus()   
End Sub   
Private Sub SetMenus()  
Sub SetMenus()   
Dim mnuMenuItem1 As MenuItem, 
mnuMenuItem2 As MenuItem, 
mnuMenuItem3 As MenuItem 
mnuMenuItem1 = New MenuItem
("Item 1", New EventHandler
(AddressOf mnuMenuItem1_Click))   
MainMenu1.MenuItems.Add(mnuMenuItem1)   
mnuMenuItem2 = New MenuItem("Item 2")  
MainMenu1.MenuItems.Add(mnuMenuItem2)   
mnuMenuItem3 = New MenuItem
("Item 3", New EventHandler
(AddressOf mnuMenuItem3_Click))   
mnuMenuItem3.Checked = True 
mnuMenuItem2.MenuItems.Add
(mnuMenuItem3)   
End Sub   
Private Sub mnuMenuItem1_Click()  
Sub mnuMenuItem1_Click(ByVal 
sender As Object, ByVal e As 
System.EventArgs)   
MessageBox.Show("Menu Item 
1 Clicked")   
End Sub   
Private Sub mnuMenuItem3_Click()  
Sub mnuMenuItem3_Click(ByVal 
sender As Object, ByVal e As 
System.EventArgs)   
MessageBox.Show("Menu 
Item 3 Clicked")   
End Sub  

VB.NET菜單項目的相關(guān)創(chuàng)建與改變的操作就為大家介紹到這里。