Vb.net菜单设计
Windows窗体菜单一般有两种
n  下拉式菜单
n  弹出式菜单（上下文菜单）
菜单的组成包括
n  菜单项
n  快捷键
n  赋值访问键
n  分割条
n  子菜单提示符
 
下拉式菜单常用于主菜单的设计。
主菜单通常位于窗体的顶部的菜单栏上，包括了应用程序的所有功能。
主菜单通过MainMenu组件建立。该组件是非用户界面组件，在设计阶段，不出现在窗体上，而是位于窗体下方专用的面板上。
MainMenu组件中的主菜单由MenuItem对象组成，每个MenuItem对象表示的是菜单结构中单个的菜单项。

属性名	描述
Text	菜单项文本(可设置赋值访问键)
ShortCut	快捷键设置
ShowShortCut	是否显示快捷键
Checked	复选菜单项
RadioCheck	单选菜单项
Enabled	设置菜单项可用性
Visible	设置菜单可见性

步骤：

1. 添加菜单和菜单项
2. 设置菜单项属性
3. 为菜单项编写事件过程（Click事件）

 
弹出式菜单是独立于主菜单，显示于窗体任何位置的上的浮动菜单，
一般通过鼠标右键单击弹出，又称上下文菜单。上下文菜单通过ContextMenu组件建立。
与MainMenu组件的属性完全相同，不同之处有以下几点：
（1） 一个窗体只需要一个MainMenu组件，
但可以有多个ContextMenu组件。
（2）用MainMenu组件建立的菜单位置固定于窗体的顶部，
而用ContextMenu组件建立的菜单位置不固定。
（3）用MainMenu组件可以建立多个主菜单项，
而用ContextMenu组件建立的菜单只有一个主菜单项。
 
步骤：
1. 添加ContextMenu控件
2. 设计菜单
3. 将弹出式菜单与相应控件建立关联
方法：将控件的ContextMenu属性设置为添加的ContextMenu控件即可。
 
例   设计一个“简单记事本”。（主菜单）

 
 
 
 
 
 
 
 
 

Private Sub MenuItem4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem4.Click
        'new
        SaveFileDialog1.FileName = "Default.txt"
        SaveFileDialog1.DefaultExt = "txt"
        SaveFileDialog1.ShowDialog()
        FileOpen(1, SaveFileDialog1.FileName, OpenMode.Output)
        Write(1, TextBox1.Text)
        FileClose(1)
End Sub
 
    Private Sub MenuItem5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem5.Click
        'open
        OpenFileDialog1.ShowDialog()
        FileOpen(2, OpenFileDialog1.FileName, OpenMode.Input)
        Do
            TextBox1.Text &= LineInput(2)
            TextBox1.Text &= vbCrLf
        Loop Until EOF(2)
        FileClose(2)
    End Sub
    Private Sub MenuItem6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem6.Click
        'save
        SaveFileDialog1.FileName = "Default.txt"
        SaveFileDialog1.DefaultExt = "txt"
        SaveFileDialog1.ShowDialog()
        FileOpen(3, SaveFileDialog1.FileName, OpenMode.Append)
        Write(3, TextBox1.Text)
        FileClose(3)
    End Sub
 
    Private Sub MenuItem8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem8.Click
        TextBox1.Copy()
    End Sub
 
    Private Sub MenuItem9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem9.Click
        TextBox1.Cut()
    End Sub
 
    Private Sub MenuItem10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem10.Click
        TextBox1.Paste()
    End Sub
 
    Private Sub MenuItem11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem11.Click
        ‘换行
MenuItem11.Checked = Not MenuItem11.Checked
        If MenuItem11.Checked Then
            TextBox1.Multiline = True
        Else
            TextBox1.Multiline = False
        End If
    End Sub