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

在 Visual Basic GTK# 编程教程的这一部分中，我们将使用菜单和工具栏。

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

简单菜单

在第一个示例中，我们将创建一个带有一个文件菜单的菜单栏。 该菜单将只有一个菜单项。 通过选择项目，应用退出。

  1. ' ZetCode Mono Visual Basic GTK# 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 Gtk
  14. Public Class GtkVBApp
  15.     Inherits Window
  17.     Public Sub New
  19.         MyBase.New("Simple menu")
  21.         Me.InitUI
  23.         Me.SetDefaultSize(250, 200)
  24.         Me.SetPosition(WindowPosition.Center)
  25.         AddHandler Me.DeleteEvent, AddressOf Me.OnDelete
  27.         Me.ShowAll
  29.     End Sub
  31.     Private Sub InitUI
  33.         Dim mb As New MenuBar
  35.         Dim filemenu As New Menu
  36.         Dim fileItem As New MenuItem("File")
  37.         fileItem.Submenu = filemenu
  39.         Dim exitItem As New MenuItem("Exit")
  40.         AddHandler exitItem.Activated, AddressOf Me.OnActivated
  41.         filemenu.Append(exitItem)
  43.         mb.Append(fileItem)
  45.         Dim vbox As New VBox(False, 2)
  46.         vbox.PackStart(mb, False, False, 0)
  48.         Me.Add(vbox)
  50.     End Sub
  52.     Sub OnActivated(ByVal sender As Object, _ 
  53.             ByVal args As EventArgs)
  54.         Application.Quit
  55.     End Sub
  57.     Sub OnDelete(ByVal sender As Object, _
  58.             ByVal args As DeleteEventArgs)
  59.         Application.Quit
  60.     End Sub
  62.     Public Shared Sub Main
  64.         Application.Init
  65.         Dim app As New GtkVBApp
  66.         Application.Run
  68.     End Sub
  70. End Class

这是一个最小的菜单栏功能示例。

  1. Dim mb As New MenuBar

MenuBar小部件已创建。 这是菜单的容器。

  1. Dim filemenu As New Menu
  2. Dim fileItem As New MenuItem("File")
  3. fileItem.Submenu = filemenu

创建顶层MenuItem。

  1. Dim exitItem As New MenuItem("Exit")
  2. AddHandler exitItem.Activated, AddressOf Me.OnActivated
  3. filemenu.Append(exitItem)

将创建出口MenuItem，并将其附加到文件MenuItem中。

  1. mb.Append(fileItem)

顶级MenuItem被附加到MenuBar小部件。

  1. Dim vbox As New VBox(False, 2)
  2. vbox.PackStart(mb, False, False, 0)

与其他工具包不同，我们必须自己照顾菜单栏的布局管理。 我们将菜单栏放入垂直框中。

菜单和工具栏 - 图1

图：简单菜单

子菜单

我们的最后一个示例演示了如何在 GTK# 中创建一个子菜单。

  1. ' ZetCode Mono Visual Basic GTK# 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 Gtk
  11. Public Class GtkVBApp
  12.     Inherits Window
  14.     Public Sub New
  16.         MyBase.New("Submenu")
  18.         Me.InitUI
  20.         Me.SetDefaultSize(250, 200)
  21.         Me.SetPosition(WindowPosition.Center)
  22.         AddHandler Me.DeleteEvent, AddressOf Me.OnDelete
  24.         Me.ShowAll    
  26.     End Sub
  28.     Private Sub InitUI
  30.         Dim mb As New MenuBar
  32.         Dim filemenu As New Menu
  33.         Dim ifile As New MenuItem("File")
  34.         ifile.Submenu = filemenu
  36.         // submenu creation
  37.         Dim imenu As New Menu
  39.         Dim iimport As New MenuItem("Import")
  40.         iimport.Submenu = imenu
  42.         Dim inews As New MenuItem("Import news feed...")
  43.         Dim ibookmarks As New MenuItem("Import bookmarks...")
  44.         Dim imail As New MenuItem("Import mail...")
  46.         imenu.Append(inews)
  47.         imenu.Append(ibookmarks)
  48.         imenu.Append(imail)
  50.         // exit menu item
  51.         Dim iexit As New MenuItem("Exit")
  52.         AddHandler iexit.Activated, AddressOf Me.OnActivated
  54.         filemenu.Append(iimport)
  55.         filemenu.Append(iexit)
  56.         mb.Append(ifile)
  58.         Dim vbox As New VBox(False, 2)
  59.         vbox.PackStart(mb, False, False, 0)
  61.         Me.Add(vbox)
  63.     End Sub
  65.     Sub OnActivated(ByVal sender As Object, _
  66.             ByVal args As EventArgs)
  67.         Application.Quit
  68.     End Sub
  70.     Sub OnDelete(ByVal sender As Object, _
  71.             ByVal args As DeleteEventArgs)
  72.         Application.Quit
  73.     End Sub
  75.     Public Shared Sub Main
  77.         Application.Init
  78.         Dim app As New GtkVBApp
  79.         Application.Run
  81.     End Sub
  83. End Class

子菜单创建。

  1. Dim imenu As New Menu

子菜单是Menu。

  1. Dim iimport As New MenuItem("Import")
  2. iimport.Submenu = imenu

它是菜单项的子菜单，它会登录到顶级文件菜单。

  1. Dim inews As New MenuItem("Import news feed...")
  2. Dim ibookmarks As New MenuItem("Import bookmarks...")
  3. Dim imail As New MenuItem("Import mail...")
  5. imenu.Append(inews)
  6. imenu.Append(ibookmarks)
  7. imenu.Append(imail)

子菜单有其自己的菜单项。

菜单和工具栏 - 图2

图：子菜单

图像菜单

在下一个示例中，我们将进一步探索菜单。 我们将图像和加速器添加到我们的菜单项中。 Accelerators是用于激活菜单项的键盘快捷键。

  1. ' ZetCode Mono Visual Basic GTK# tutorial
  2. '
  3. ' This program shows image
  4. ' menu items, a shorcut and a separator
  5. '
  6. ' author jan bodnar
  7. ' last modified May 2009
  8. ' website www.zetcode.com
  10. Imports Gtk
  12. Public Class GtkVBApp
  13.     Inherits Window
  15.     Public Sub New
  17.         MyBase.New("Image menu")
  19.         Me.InitUI
  21.         Me.SetDefaultSize(250, 200)
  22.         Me.SetPosition(WindowPosition.Center)
  23.         AddHandler Me.DeleteEvent, AddressOf Me.OnDelete
  25.         Me.ShowAll
  27.     End Sub
  29.     Private Sub InitUI
  31.         Dim mb As New MenuBar
  33.         Dim filemenu As New Menu
  34.         Dim ifile As New MenuItem("File")
  35.         ifile.Submenu = filemenu
  37.         Dim agr As New AccelGroup
  38.         Me.AddAccelGroup(agr)
  40.         Dim inew As New ImageMenuItem("gtk-new", agr)
  41.         filemenu.Append(inew)
  43.         Dim iopen As New ImageMenuItem(Stock.Open, agr)
  44.         filemenu.Append(iopen)
  46.         Dim isep As New SeparatorMenuItem
  47.         filemenu.Append(isep)
  49.         Dim iexit As New ImageMenuItem(Stock.Quit, agr)
  50.         AddHandler iexit.Activated, AddressOf Me.OnActivated
  51.         filemenu.Append(iexit)
  53.         mb.Append(ifile)
  55.         Dim vbox As New VBox(False, 2)
  56.         vbox.PackStart(mb, False, False, 0)
  58.         Me.Add(vbox)
  60.     End Sub
  62.     Sub OnActivated(ByVal sender As Object, _
  63.             ByVal args As EventArgs)
  64.         Application.Quit
  65.     End Sub
  67.     Sub OnDelete(ByVal sender As Object, _ 
  68.             ByVal args As DeleteEventArgs)
  69.         Application.Quit
  70.     End Sub
  72.     Public Shared Sub Main
  74.         Application.Init
  75.         Dim app As New GtkVBApp
  76.         Application.Run
  78.     End Sub
  80. End Class

我们的示例显示了具有三个子菜单项的顶级菜单项。 每个菜单项都有一个图像和一个加速器。 退出菜单项的加速器处于活动状态。

  1. Dim agr As New AccelGroup
  2. Me.AddAccelGroup(agr)

要使用加速器，我们创建一个全局AccelGroup对象。 稍后将使用。

  1. Dim inew As New ImageMenuItem("gtk-new", agr)
  2. filemenu.Append(inew)

ImageMenuItem已创建。 图片来自图片库。 GTK# 中有一个错误。 Stock.New与 Visual Basic New关键字冲突。

  1. Dim isep As New SeparatorMenuItem
  2. filemenu.Append(isep)

这些行创建一个分隔符。 它用于将菜单项放入逻辑组。

菜单和工具栏 - 图3

图：图像 menu

菜单将我们可以在应用中使用的命令分组。 使用工具栏可以快速访问最常用的命令。

简单的工具栏

接下来，我们创建一个简单的工具栏。

  1. ' ZetCode Mono Visual Basic GTK# tutorial
  2. '
  3. ' This program creates a 
  4. ' toolbar
  5. '
  6. ' author jan bodnar
  7. ' last modified May 2009
  8. ' website www.zetcode.com
  10. Imports Gtk
  12. Public Class GtkVBApp
  13.     Inherits Window
  15.     Public Sub New
  17.         MyBase.New("Toolbar")
  19.         Me.InitUI
  21.         Me.SetDefaultSize(250, 200)
  22.         Me.SetPosition(WindowPosition.Center)
  23.         AddHandler Me.DeleteEvent, AddressOf Me.OnDelete
  25.         Me.ShowAll
  27.     End Sub
  29.     Private Sub InitUI
  31.         Dim toolbar As New Toolbar
  32.         toolbar.ToolbarStyle = ToolbarStyle.Icons
  34.         Dim newtb As New ToolButton("gtk-new")
  35.         Dim opentb As New ToolButton(Stock.Open)
  36.         Dim savetb As New ToolButton(Stock.Save)
  37.         Dim sep As New SeparatorToolItem
  38.         Dim quittb As New ToolButton(Stock.Quit)
  40.         toolbar.Insert(newtb, 0)
  41.         toolbar.Insert(opentb, 1)
  42.         toolbar.Insert(savetb, 2)
  43.         toolbar.Insert(sep, 3)
  44.         toolbar.Insert(quittb, 4)
  46.         AddHandler quittb.Clicked, AddressOf Me.OnClicked
  48.         Dim vbox As New VBox(False, 2)
  49.         vbox.PackStart(toolbar, False, False, 0)
  51.         Me.Add(vbox)
  53.     End Sub
  55.     Sub OnClicked(ByVal sender As Object, _
  56.             ByVal args As EventArgs)
  57.         Application.Quit
  58.     End Sub
  60.     Sub OnDelete(ByVal sender As Object, _
  61.             ByVal args As DeleteEventArgs)
  62.         Application.Quit
  63.     End Sub
  65.     Public Shared Sub Main
  67.         Application.Init
  68.         Dim app As New GtkVBApp
  69.         Application.Run
  71.     End Sub
  73. End Class

该示例显示了一个工具栏和四个工具按钮。

  1. Dim toolbar As New Toolbar

Toolbar小部件已创建。

  1. toolbar.ToolbarStyle = ToolbarStyle.Icons

在工具栏上，我们仅显示图标。 没有文字。

  1. Dim opentb As New ToolButton(Stock.Open)

创建带有库存图像的ToolButton。

  1. Dim sep As New SeparatorToolItem

这是一个分隔符。 它可用于将工具栏按钮放入逻辑组。

  1. toolbar.Insert(newtb, 0)
  2. toolbar.Insert(opentb, 1)
  3. ...

工具栏按钮插入到工具栏小部件中。

菜单和工具栏 - 图4

图：工具栏

撤销重做

以下示例演示了如何停用工具栏上的工具栏按钮。 这是 GUI 编程中的常见做法。 例如，保存按钮。 如果我们将文档的所有更改都保存到磁盘上，则在大多数文本编辑器中，“保存”按钮将被停用。 这样，应用会向用户指示所有更改都已保存。

  1. ' ZetCode Mono Visual Basic GTK# tutorial
  2. '
  3. ' This program disables/enables
  4. ' toolbuttons on a toolbar
  5. '
  6. ' author jan bodnar
  7. ' last modified May 2009
  8. ' website www.zetcode.com
  10. Imports Gtk
  12. Public Class GtkVBApp
  13.     Inherits Window
  15.     Private Dim clicks As Integer = 2
  16.     Private Dim undo As ToolButton
  17.     Private Dim redo As ToolButton
  19.     Public Sub New
  21.         MyBase.New("Undo redo")
  23.         Me.InitUI
  25.         Me.SetDefaultSize(250, 200)
  26.         Me.SetPosition(WindowPosition.Center)
  27.         AddHandler Me.DeleteEvent, AddressOf Me.OnDelete
  29.         Me.ShowAll
  31.     End Sub
  33.     Private Sub InitUI
  35.         Dim toolbar As New Toolbar
  36.         toolbar.ToolbarStyle = ToolbarStyle.Icons
  38.         undo = New ToolButton(Stock.Undo)
  39.         undo.Label = "Undo"
  40.         redo = New ToolButton(Stock.Redo)
  41.         redo.Label = "Redo"
  43.         Dim sep As New SeparatorToolItem
  44.         Dim quit As New ToolButton(Stock.Quit)
  46.         toolbar.Insert(undo, 0)
  47.         toolbar.Insert(redo, 1)
  48.         toolbar.Insert(sep, 2)
  49.         toolbar.Insert(quit, 3)
  51.         AddHandler undo.Clicked, AddressOf Me.OnCount
  52.         AddHandler redo.Clicked, AddressOf Me.OnCount
  53.         AddHandler quit.Clicked, AddressOf Me.OnClicked
  55.         Dim vbox As New VBox(False, 2)
  56.         vbox.PackStart(toolbar, False, False, 0)
  58.         Me.Add(vbox)
  60.     End Sub
  62.     Private Sub OnCount(ByVal sender As Object, _
  63.             ByVal args As EventArgs)
  65.         If "Undo".Equals(sender.Label)
  66.             clicks += 1
  67.         Else 
  68.             clicks -= 1
  69.         End If
  71.         If clicks <= 0 
  72.             undo.Sensitive = True
  73.             redo.Sensitive = False
  74.         End If
  76.         If clicks >= 5 
  77.             undo.Sensitive = False
  78.             redo.Sensitive = True
  79.         End If
  81.     End Sub
  83.     Sub OnClicked(ByVal sender As Object, _
  84.             ByVal args As EventArgs)
  85.         Application.Quit
  86.     End Sub
  88.     Sub OnDelete(ByVal sender As Object, _
  89.             ByVal args As DeleteEventArgs)
  90.         Application.Quit
  91.     End Sub
  93.     Public Shared Sub Main
  95.         Application.Init
  96.         Dim app As New GtkVBApp
  97.         Application.Run
  99.     End Sub
  101. End Class

我们的示例从 GTK# 库存资源创建撤消和重做按钮。 单击几下后，每个按钮均被停用。 按钮显示为灰色。

  1. Private Dim clicks As Integer = 2

clicks变量决定哪个按钮被激活或禁用。

  1. undo = New ToolButton(Stock.Undo)
  2. undo.Label = "Undo"
  3. redo = New ToolButton(Stock.Redo)
  4. redo.Label = "Redo"

我们有两个工具按钮。 撤消和重做工具按钮。 图片来自库存资源。

  1. AddHandler undo.Clicked, AddressOf Me.OnCount
  2. AddHandler redo.Clicked, AddressOf Me.OnCount

我们为两个工具按钮都插入了Clicked事件的方法。

  1. If clicks <= 0 
  2.     undo.Sensitive = True
  3.     redo.Sensitive = False
  4. End If

要激活小部件，我们将其Sensitive属性设置为true。 要停用它，我们将其设置为false。

菜单和工具栏 - 图5

图：撤销和重做

在 Visual Basic GTK# 教程的这一章中，我们展示了如何使用菜单和工具栏。