''菜单示范篇
'2:使用著名的MagicLibrary.dll做菜单
'功能强大,实现所有功能但是使用比较复杂
'2003-11-10 MeetWeb
由于该篇幅比较大,只提供部分关键代码,并附解释
Public Class Menu2
Inherits System.Windows.Forms.Form
Private _count As Integer = 1
Private _images As ImageList = Nothing
Private _status As StatusBar = Nothing
Private _statusBarPanel As StatusBarPanel = Nothing
Private _topMenu As Crownwood.Magic.Menus.MenuControl = Nothing
#Region "资源图片"
Protected Sub LoadResources()
'建立imageslist对象,把资源图片装载
' Create a strip of images by loading an embedded bitmap resource
_images = ResourceHelper.LoadBitmapStrip(Me.GetType(), "Menu_Vb.MenuImages.bmp", New System.Drawing.Size(16, 16), New System.Drawing.Point(0, 0))
End Sub 'LoadResources
#End Region
#Region "建立状态栏"
Protected Sub SetupStatusBar()
'建立状态栏,具体操作请查看状态栏建立帮助
' Create and setup the StatusBar object
_status = New StatusBar()
_status.Dock = DockStyle.Bottom
_status.ShowPanels = True
' Create and setup a single panel for the StatusBar
Dim _statusBarPanelk As New StatusBarPanel()
_statusBarPanel = New StatusBarPanel()
_statusBarPanel.AutoSize = StatusBarPanelAutoSize.Spring
_status.Panels.Add(_statusBarPanelk)
_status.Panels.Add(_statusBarPanel)
Controls.Add(_status)
End Sub 'SetupStatusBar
#End Region
#Region "建立菜单"
Protected Sub SetupMenus()
'正题,创建菜单项目
'1,建立Magic,Menus对象
' Create the MenuControl
_topMenu = New Crownwood.Magic.Menus.MenuControl()
' We want the control to handle the MDI pendant
_topMenu.MdiContainer = Me
'建立顶级菜单
'顶级菜单演示1和顶级菜单演示2
' Create the top level Menu
Dim top1 As New MenuCommand("&顶级菜单演示1")
Dim top2 As New MenuCommand("&顶级菜单演示2")
'将菜单加入MenuControl对象
_topMenu.MenuCommands.AddRange(New MenuCommand() {top1, top2})
' Create the submenus
'分别建立子菜单
CreateAppearanceMenu(top1)
CreateWindowsMenu(top2)
'设置Menu显示方式
' Add to the display
_topMenu.Dock = DockStyle.Top
'委托事件
AddHandler _topMenu.Selected, AddressOf OnSelected
AddHandler _topMenu.Deselected, AddressOf OnDeselected
Controls.Add(_topMenu)
End Sub 'SetupMenus
' Create an initial MDI child window
'建立子菜单项
Protected Sub CreateAppearanceMenu(ByVal mc As MenuCommand)
' Create menu commands
'建立Menu命令,并委托事件
Dim style1 As New MenuCommand("&IDE", New EventHandler(AddressOf OnNewWindowSelected))
Dim styleC As New MenuCommand("-")
Dim styleD As New MenuCommand("E&xit", New EventHandler(AddressOf OnExit))
' Setup event handlers
AddHandler style1.Update, AddressOf OnIDEUpdate
mc.MenuCommands.AddRange(New MenuCommand() {style1, styleC, styleD})
End Sub 'CreateAppearanceMenu
'同上
Protected Sub CreateWindowsMenu(ByVal mc As MenuCommand)
' Create menu commands
Dim window1 As New MenuCommand("&New Window", _images, 0, New EventHandler(AddressOf OnNewWindowSelected))
Dim window2 As New MenuCommand("Cl&ose", _images, 1, New EventHandler(AddressOf OnNewWindowSelected))
'window1.Shortcut = Shortcut.Ctrl0
' Setup event handlers
Dim spain0 As New MenuCommand("&Nerja", _images, 5, New EventHandler(AddressOf OnNewWindowSelected))
Dim spain1 As New MenuCommand("&Madrid", _images, 6, New EventHandler(AddressOf OnNewWindowSelected))
Dim spain2 As New MenuCommand("&Barcelona", _images, 0, New EventHandler(AddressOf OnNewWindowSelected))
window1.MenuCommands.AddRange(New MenuCommand() {spain0, spain1, spain2})
mc.MenuCommands.AddRange(New MenuCommand() {window1, window2})
End Sub 'CreateWindowsMenu
#End Region
#Region "菜单执行Event"
'下面是设置点击Menu项激发事件,你可以自己定义自己事件
Protected Sub OnIDESelected(ByVal sender As Object, ByVal e As EventArgs)
MessageBox.Show("OK")
End Sub 'OnIDESelected
Protected Sub OnExit(ByVal sender As Object, ByVal e As EventArgs)
Close()
End Sub 'OnExit
Protected Sub OnNewWindowSelected(ByVal sender As Object, ByVal e As EventArgs)
MessageBox.Show("Hi")
End Sub 'OnNewWindowSelected
Protected Sub OnIDEUpdate(ByVal sender As Object, ByVal e As EventArgs)
Dim mc As MenuCommand = sender '
mc.Checked = _topMenu.Style = VisualStyle.IDE
End Sub 'OnIDEUpdate
'当菜单选择时候激发事件,显示选择Menu在状态栏
Protected Sub OnSelected(ByVal mc As MenuCommand)
SetStatusBarText(("Selection over " + mc.Description))
End Sub 'OnSelected
'当菜单不选择时候激发事件,清楚状态栏
Protected Sub OnDeselected(ByVal mc As MenuCommand)
SetStatusBarText("")
End Sub 'OnDeselected
#End Region
#Region "属性设置"
'设置状态栏属性
Public Sub SetStatusBarText(ByVal [text] As String)
_statusBarPanel.Text = [text]
End Sub 'SetStatusBarText
'图片
Public ReadOnly Property Images() As ImageList
Get
Return _images
End Get
End Property
'风格
Public ReadOnly Property Style() As VisualStyle
Get
Return _topMenu.Style
End Get
End Property
#End Region
