一个窗体中切换两个mainmenu菜单

 

  1Public Class Form1Class Form1
  2    Inherits System.Windows.Forms.Form
  3
  4Windows 窗体设计器生成的代码#Region " Windows 窗体设计器生成的代码 "
  5
  6    Public Sub New()Sub New()
  7        MyBase.New()
  8
  9        '该调用是 Windows 窗体设计器所必需的。
 10        InitializeComponent()
 11
 12        '在 InitializeComponent() 调用之后添加任何初始化
 13
 14    End Sub
 15
 16    '窗体重写 dispose 以清理组件列表。
 17    Protected Overloads Overrides Sub Dispose()Sub Dispose(ByVal disposing As Boolean)
 18        If disposing Then
 19            If Not (components Is Nothing) Then
 20                components.Dispose()
 21            End If
 22        End If
 23        MyBase.Dispose(disposing)
 24    End Sub
 25
 26    'Windows 窗体设计器所必需的
 27    Private components As System.ComponentModel.IContainer
 28
 29    '注意: 以下过程是 Windows 窗体设计器所必需的
 30    '可以使用 Windows 窗体设计器修改此过程。
 31    '不要使用代码编辑器修改它。
 32    Friend WithEvents Button1 As System.Windows.Forms.Button
 33    Friend WithEvents Button2 As System.Windows.Forms.Button
 34    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()Sub InitializeComponent()
 35        Me.Button1 = New System.Windows.Forms.Button
 36        Me.Button2 = New System.Windows.Forms.Button
 37        Me.SuspendLayout()
 38        '
 39        'Button1
 40        '
 41        Me.Button1.Location = New System.Drawing.Point(160, 0)
 42        Me.Button1.Name = "Button1"
 43        Me.Button1.TabIndex = 0
 44        Me.Button1.Text = "mainmenu1"
 45        '
 46        'Button2
 47        '
 48        Me.Button2.Location = New System.Drawing.Point(160, 40)
 49        Me.Button2.Name = "Button2"
 50        Me.Button2.TabIndex = 1
 51        Me.Button2.Text = "mainmenu2"
 52        '
 53        'Form1
 54        '
 55        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
 56        Me.ClientSize = New System.Drawing.Size(292, 141)
 57        Me.Controls.Add(Me.Button2)
 58        Me.Controls.Add(Me.Button1)
 59        Me.Name = "Form1"
 60        Me.Text = "Form1"
 61        Me.ResumeLayout(False)
 62
 63    End Sub
 64
 65#End Region
 66
 67    Private Sub Form1_Load()Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 68        CreateMyMainMenu1()
 69    End Sub
 70
 71    Private Sub Button1_Click()Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 72 
 73     
 74        CreateMyMainMenu1()
 75    End Sub
 76
 77    Public Sub CreateMyMainMenu1()Sub CreateMyMainMenu1()
 78        ' Create an empty MainMenu.
 79        Dim mainMenu1 As New MainMenu
 80
 81        Dim menuItem1 As New MenuItem
 82        Dim menuItem2 As New MenuItem
 83
 84        menuItem1.Text = "File"
 85        menuItem2.Text = "Edit"
 86        ' Add two MenuItem objects to the MainMenu.
 87        mainMenu1.MenuItems.Add(menuItem1)
 88        mainMenu1.MenuItems.Add(menuItem2)
 89
 90        ' 绑定窗体
 91        Menu = mainMenu1
 92    End Sub
 93
 94    Public Sub CreateMyMainMenu2()Sub CreateMyMainMenu2()
 95        ' Create an empty MainMenu.
 96        Dim mainMenu2 As New MainMenu
 97
 98        Dim menuItem1 As New MenuItem
 99        Dim menuItem2 As New MenuItem
100
101        menuItem1.Text = "File2"
102        menuItem2.Text = "Edit2"
103        ' Add two MenuItem objects to the MainMenu.
104        mainMenu2.MenuItems.Add(menuItem1)
105        mainMenu2.MenuItems.Add(menuItem2)
106
107        ' 绑定窗体
108        Menu = mainMenu2
109    End Sub
110
111    Private Sub Button2_Click()Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
112        CreateMyMainMenu2()
113    End Sub
114End Class
115
116