原文： http://zetcode.com/gui/vbwinforms/menustoolbars/

在 Visual Basic Winforms 教程的这一部分中，我们将讨论菜单和工具栏。

菜单栏是 GUI 应用中最可见的部分之一。 它是位于各个菜单中的一组命令。 在控制台应用中，您必须记住所有这些神秘命令，在这里，我们将大多数命令分组为逻辑部分。 有公认的标准可以进一步减少学习新应用的时间。

简单菜单

在第一个示例中，我们创建一个简单的菜单。

  1. ' ZetCode Mono Visual Basic Winforms tutorial
  2. '
  3. ' This program shows a simple
  4. ' menu. It has one action, which
  5. ' will terminate the program, when
  6. ' selected. 
  7. '
  8. ' author jan bodnar
  9. ' last modified May 2009
  10. ' website www.zetcode.com
  12. Imports System.Windows.Forms
  13. Imports System.Drawing
  15. Public Class WinVBApp
  16.     Inherits Form
  18.     Public Sub New
  20.        Me.Text = "Simple menu"
  21.        Me.Size = New Size(220, 170)
  23.        Me.InitUI
  25.        Me.CenterToScreen
  27.     End Sub
  29.     Private Sub InitUI
  31.         Dim ms As New MenuStrip
  32.         ms.Parent = Me
  34.         Dim fileItem As New ToolStripMenuItem("&File")    
  35.         Dim exitItem As New ToolStripMenuItem("&Exit", Nothing, _
  36.             New EventHandler(AddressOf OnExit))
  38.         exitItem.ShortcutKeys = Keys.Control Or Keys.X
  39.         fileItem.DropDownItems.Add(exitItem)
  41.         ms.Items.Add(fileItem)
  42.         MainMenuStrip = ms
  44.     End Sub
  46.     Private Sub OnExit(ByVal sender As Object, ByVal e As EventArgs)
  47.         Me.Close
  48.     End Sub
  50.     Public Shared Sub Main
  51.         Application.Run(New WinVBApp)
  52.     End Sub
  54. End Class

在我们的示例中，我们有一个菜单栏和一个菜单。 菜单内有一个菜单项。 如果选择菜单项，则应用关闭。

注意如何关闭应用。 我们可以使用 Ctrl + X 快捷方式或按 Alt ， F ， E 键关闭它 。

  1. Dim ms As New MenuStrip

MenuStrip为我们的表单创建一个菜单系统。 我们将ToolStripMenuItem对象添加到MenuStrip中，这些对象代表菜单结构中的各个菜单命令。 每个ToolStripMenuItem可以是您的应用的命令，也可以是其他子菜单项的父菜单。

  1. Dim fileItem As New ToolStripMenuItem("&File")

在这里，我们创建一个文件菜单。

  1. Dim exitItem As New ToolStripMenuItem("&Exit", Nothing, _
  2.     New EventHandler(AddressOf OnExit))

此行创建退出菜单项。

  1. exitItem.ShortcutKeys = Keys.Control Or Keys.X

我们提供了退出菜单项的快捷方式。

  1. fileItem.DropDownItems.Add(exitItem)

退出菜单项将添加到菜单对象的下拉项中。

  1. ms.Items.Add(fileItem)

在这里，我们将菜单对象添加到菜单栏中。

  1. MainMenuStrip = ms

MenuStrip已插入表格。

菜单和工具栏 - 图1

图：简单菜单

子菜单

每个菜单项也可以有一个子菜单。 这样，我们可以将类似的命令分组。 例如，我们可以将隐藏/显示各种工具栏（例如个人栏，地址栏，状态栏或导航栏）的命令放置在称为工具栏的子菜单中。

  1. ' ZetCode Mono Visual Basic Winforms tutorial
  2. '
  3. ' This program creates a submenu
  4. '
  5. ' author jan bodnar
  6. ' last modified May 2009
  7. ' website www.zetcode.com
  9. Imports System.Windows.Forms
  10. Imports System.Drawing
  12. Public Class WinVBApp
  13.     Inherits Form
  15.     Public Sub New
  17.        Me.Text = "Submenu"
  18.        Me.Size = New Size(380, 220)
  20.        Me.InitUI
  22.        Me.CenterToScreen
  24.     End Sub
  26.     Private Sub InitUI
  28.         Dim ms As New MenuStrip
  29.         ms.Parent = Me
  31.         Dim fileItem As New ToolStripMenuItem("&File")    
  32.         Dim exitItem As New ToolStripMenuItem("&Exit", Nothing, _
  33.             New EventHandler(AddressOf OnExit))
  35.         exitItem.ShortcutKeys = Keys.Control Or Keys.X
  37.         Dim import As New ToolStripMenuItem
  38.         import.Text = "Import"
  40.         Dim temp As New ToolStripMenuItem
  41.         temp.Text = "Import newsfeed list..."
  42.         import.DropDownItems.Add(temp)
  44.         temp = New ToolStripMenuItem
  45.         temp.Text = "Import bookmarks..."
  46.         import.DropDownItems.Add(temp)
  48.         temp = New ToolStripMenuItem
  49.         temp.Text = "Import mail..."
  51.         import.DropDownItems.Add(temp)
  52.         fileItem.DropDownItems.Add(import)
  53.         fileItem.DropDownItems.Add(exitItem)
  55.         ms.Items.Add(fileItem)
  56.         Me.MainMenuStrip = ms
  58.     End Sub
  60.     Private Sub OnExit(ByVal sender As Object, ByVal e As EventArgs)
  61.         Me.Close
  62.     End Sub
  64.     Public Shared Sub Main
  65.         Application.Run(New WinVBApp)
  66.     End Sub
  68. End Class

在此示例中，我们创建一个子菜单。 子菜单导入具有三个菜单项。

  1. Dim import As New ToolStripMenuItem
  2. import.Text = "Import"

ToolStripMenuItem可以是菜单或菜单项。 在这里它将作为子菜单。

  1. Dim temp As New ToolStripMenuItem
  2. temp.Text = "Import newsfeed list..."
  3. import.DropDownItems.Add(temp)

在这里，我们创建一个菜单项并将其添加到“导入”子菜单。

菜单和工具栏 - 图2

图：子菜单

检查菜单项

下一个代码示例演示如何创建选中的菜单项。

  1. ' ZetCode Mono Visual Basic Winforms tutorial
  2. '
  3. ' This program creates a checked
  4. ' menu
  5. '
  6. ' author jan bodnar
  7. ' last modified May 2009
  8. ' website www.zetcode.com
  10. Imports System.Windows.Forms
  11. Imports System.Drawing
  13. Public Class WinVBApp
  14.     Inherits Form
  16.     Dim sb As Statusbar
  18.     Public Sub New
  20.        Me.Text = "Check menu item"
  21.        Me.Size = New Size(380, 220)
  23.        Me.InitUI
  25.        Me.CenterToScreen
  27.     End Sub
  29.     Private Sub InitUI
  31.         sb = New StatusBar
  32.         sb.Parent = Me
  33.         sb.Text = "Ready"
  35.         Dim mainMenu As New MainMenu
  37.         Dim file As MenuItem = mainMenu.MenuItems.Add("&File")
  38.         file.MenuItems.Add(New MenuItem("E&xit", _
  39.             New EventHandler(AddressOf OnExit), Shortcut.CtrlX))
  41.         Dim view As MenuItem = mainMenu.MenuItems.Add("&View")
  42.         Dim viewStatusBar As New MenuItem("View StatusBar")
  43.         viewStatusBar.Checked = True
  44.         view.MenuItems.Add(viewStatusBar)
  46.         Me.Menu = mainMenu
  48.         AddHandler viewStatusBar.Click, AddressOf Me.ToggleStatusBar
  50.     End Sub
  52.     Private Sub ToggleStatusBar(ByVal sender As Object, ByVal e As EventArgs) 
  54.         Dim check As Boolean = sender.Checked
  56.         If check 
  57.             sb.Visible = False
  58.             sender.Checked = False
  59.         Else 
  60.             sb.Visible = True
  61.             sender.Checked = True
  62.         End If
  64.     End Sub
  66.     Private Sub OnExit(ByVal sender As Object, ByVal e As EventArgs)
  67.         Me.Close
  68.     End Sub
  70.     Public Shared Sub Main
  71.         Application.Run(New WinVBApp)
  72.     End Sub
  74. End Class

我们有两个菜单。 文件和查看。 “查看”菜单具有一个菜单项，用于切换状态栏的可见性。

  1. Dim mainMenu As New MainMenu

在此示例中，我们使用MainMenu控件。 要创建菜单栏，我们可以使用MainMenu或MenuStrip控件。 后者具有一些附加功能。

  1. viewStatusBar.Checked = True

默认情况下会选中此菜单项，因为状态栏从应用的开始就可见。

  1. Dim check As Boolean = sender.Checked
  3. If check 
  4.     sb.Visible = False
  5.     sender.Checked = False
  6. Else 
  7.     sb.Visible = True
  8.     sender.Checked = True
  9. End If

我们确定菜单项是否被选中。 我们根据check值显示和隐藏状态栏和复选标记。

菜单和工具栏 - 图3

图：选中菜单项

图像，分隔符

我们将进一步增强对MenuStrip控件的了解。 我们将创建一个带有图像的菜单项，并显示如何使用分隔符将其分开。

  1. ' ZetCode Mono Visual Basic Winforms tutorial
  2. '
  3. ' This program shows how to add images and
  4. ' separators to menu items
  5. '
  6. ' author jan bodnar
  7. ' last modified May 2009
  8. ' website www.zetcode.com
  10. Imports System.Windows.Forms
  11. Imports System.Drawing
  13. Public Class WinVBApp
  14.     Inherits Form
  16.     Public Sub New
  18.        Me.Text = "MenuStrip"
  19.        Me.Size = New Size(250, 200)
  21.        Me.InitUI
  23.        Me.CenterToScreen
  25.     End Sub
  27.     Private Sub InitUI
  29.         Dim menuStrip As New MenuStrip
  31.         Dim titem1 As New ToolStripMenuItem("File")
  32.         menuStrip.Items.Add(titem1)
  34.         Dim titem2 As New ToolStripMenuItem("Tools")
  35.         menuStrip.Items.Add(titem2)
  37.         Dim subm1 As New ToolStripMenuItem("New")  
  38.         subm1.Image = Image.FromFile("new.png")
  39.         titem1.DropDownItems.Add(subm1)
  41.         Dim subm2 As New ToolStripMenuItem("Open") 
  42.         subm2.Image = Image.FromFile("open.png")
  43.         titem1.DropDownItems.Add(subm2)
  45.         titem1.DropDownItems.Add(New ToolStripSeparator)
  47.         Dim subm3 As New ToolStripMenuItem("Exit")
  48.         subm3.Image = Image.FromFile("exit.png")
  49.         titem1.DropDownItems.Add(subm3)
  51.         AddHandler subm3.Click, AddressOf Me.OnExit
  53.         Controls.Add(menuStrip)
  55.         MainMenuStrip = menuStrip
  57.     End Sub
  59.     Private Sub OnExit(ByVal sender As Object, ByVal e As EventArgs)
  60.         Me.Close
  61.     End Sub
  63.     Public Shared Sub Main
  64.         Application.Run(New WinVBApp)
  65.     End Sub
  67. End Class

我们的代码示例中有两个菜单。 文件和工具。 在文件中，我们有三个带有图像的菜单项。 我们还有一个分隔符。 在此示例中，PNG 图像必须位于当前工作目录中。

  1. Dim subm1 As New ToolStripMenuItem("New")  
  2. subm1.Image = Image.FromFile("new.png")
  3. titem1.DropDownItems.Add(subm1)

在这里，我们创建第一个菜单项。 要将图像添加到项目，我们将Image属性设置为图像。 我们使用静态FromFile方法从指定的文件创建一个Image。

  1. titem1.DropDownItems.Add(New ToolStripSeparator)

在这里，我们向“文件”菜单添加分隔符。

菜单和工具栏 - 图4

图：图像 s and separator

工具栏

菜单将我们可以在应用中使用的所有命令分组。 使用工具栏可以快速访问最常用的命令。 ToolBar控件用于显示ToolBarButton控件。 我们可以通过创建ImageList将图像分配给按钮。 然后，我们将图像列表分配给工具栏的ImageList属性，并为每个ToolBarButton将图像索引值分配给ImageIndex属性。

  1. ' ZetCode Mono Visual Basic Winforms tutorial
  2. '
  3. ' This program creates a toolbar
  4. '
  5. ' author jan bodnar
  6. ' last modified May 2009
  7. ' website www.zetcode.com
  9. Imports System.Windows.Forms
  10. Imports System.Drawing
  12. Public Class WinVBApp
  13.     Inherits Form
  15.     Dim sb As Statusbar
  17.     Public Sub New
  19.        Me.Text = "Toolbar"
  20.        Me.Size = New Size(250, 220)
  22.        Me.InitUI
  24.        Me.CenterToScreen
  26.     End Sub
  28.     Private Sub InitUI
  30.         Dim toolBar As New ToolBar
  31.         toolBar.Parent = Me
  32.         Dim toolBarIcons As New ImageList
  33.         Dim saveb As New ToolBarButton
  34.         Dim exitb As New ToolBarButton
  36.         saveb.ImageIndex = 0
  37.         saveb.Tag = "Save"
  38.         exitb.ImageIndex = 1
  39.         exitb.Tag = "Exit"
  41.         toolBar.ImageList = toolBarIcons
  42.         toolBar.ShowToolTips = True
  43.         toolBar.Buttons.AddRange(New ToolBarButton() {saveb, exitb})
  45.         toolBarIcons.Images.Add(New Icon("new.ico"))
  46.         toolBarIcons.Images.Add(New Icon("exit.ico"))
  48.         AddHandler toolBar.ButtonClick, AddressOf Me.OnClicked
  50.     End Sub
  52.     Private Sub OnClicked(ByVal sender As Object, _
  53.         ByVal e As ToolBarButtonClickEventArgs)
  55.         If e.Button.Tag.Equals("Exit")
  56.             Me.Close
  57.         End If
  58.     End Sub
  60.     Public Shared Sub Main
  61.         Application.Run(New WinVBApp)
  62.     End Sub
  64. End Class

在我们的示例中，我们在工具栏上显示了两个按钮。

  1. Dim toolBar As New ToolBar

在这里，我们创建ToolBar控件。

  1. toolBar.ImageList = toolBarIcons

创建图像列表。

  1. Dim saveb As New ToolBarButton
  2. Dim exitb As New ToolBarButton

这是两个工具栏按钮。

  1. saveb.ImageIndex = 0

我们确定图像列表中的哪个图标将用于保存工具栏按钮。

  1. toolBar.Buttons.AddRange(New ToolBarButton() {saveb, exitb})

ToolBarButton控件已添加到工具栏。

  1. toolBarIcons.Images.Add(New Icon("new.ico"))
  2. toolBarIcons.Images.Add(New Icon("exit.ico"))

图标将添加到图像列表。

  1. If e.Button.Tag.Equals("Exit")
  2.     Me.Close
  3. End If

如果按钮的标签等于"Exit"，我们将关闭该应用。

菜单和工具栏 - 图5

图：工具栏

Visual Basic Winforms 教程的这一部分是关于菜单和工具栏的。