菜单的制作(WINFORMS)

Imports System
Imports System.ComponentModel
Imports System.Drawing
Imports System.WinForms

Namespace Microsoft.Samples.WinForms.VB.Menus

    Public Class Menus
        Inherits System.WinForms.Form

        Private components As System.ComponentModel.Container
        Private label1 As System.WinForms.Label
        Private mainMenu As System.WinForms.MainMenu
        Private label1ContextMenu As System.WinForms.ContextMenu

        Private Class FontSizes
            Public Shared Small As Single = 8.0F
            Public Shared Medium As Single = 12.0F
            Public Shared Large As Single = 24.0F
        End Class

        'Font face and size
        Private fontFace As String = "Arial"
        Private fontSize As Single = FontSizes.Medium

        'Used to track which menu items are checked/unchecked
        Private mmiArial As MenuItem
        Private mmiTimesNewRoman As MenuItem
        Private mmiCourier As MenuItem
        Private mmiSmall As MenuItem
        Private mmiMedium As MenuItem
        Private mmiLarge As MenuItem
        Private cmiArial As MenuItem
        Private cmiTimesNewRoman As MenuItem
        Private cmiCourier As MenuItem
        Private cmiSmall As MenuItem
        Private cmiMedium As MenuItem
        Private cmiLarge As MenuItem

        Private miMainFormatFontChecked As MenuItem
        Private miMainFormatSizeChecked As MenuItem
        Private miContextFormatFontChecked As MenuItem
        Private miContextFormatSizeChecked As MenuItem

        Public Sub New()

            MyBase.New()

            ' Required by the Windows Forms Designer
            InitializeComponent()

            ' TODO: Add any constructor code after InitializeComponent call