21、探索 VB.NET 中的菜单与工具栏：从基础到实践

探索 VB.NET 中的菜单与工具栏：从基础到实践

在开发应用程序时，用户与程序的交互至关重要。菜单、快捷菜单（上下文菜单）和工具栏是用户向应用程序发出命令的常见图形用户界面（GUI）元素。下面将详细介绍它们的创建、操作及相关功能的实现。

上下文菜单相关要点

• 与主菜单的区别 ：上下文菜单通常没有像主菜单中“文件”这样的顶级菜单项。
• 事件调用 ：上下文菜单项的 Click 事件过程可以调用主菜单项的事件过程。同时，主菜单项的 Click 事件过程也可以通过扩展 Handles 子句来处理上下文菜单项的 Click 事件。
• 使用建议 ：上下文菜单是显示命令的一种有效替代方式，能增强用户对应用程序的使用效率。但过长的上下文菜单会使屏幕显得杂乱，因为它们可能重复了菜单或工具栏中已有的命令。因此，建议经常使用上下文菜单，但要保持其简洁性。

工具栏的创建与设置

Windows Forms 的 ToolBar 控件在窗体上作为控制栏使用，它显示一排位图按钮和下拉菜单，用于激活命令。点击工具栏按钮通常等同于选择一个菜单命令，工具栏按钮常常重复菜单项的功能。
- 添加工具栏和按钮
- 设计时添加按钮
1. 在“属性”窗口顶部的下拉列表中，选择添加到窗体的 ToolBar 控件。
2. 点击“Buttons”属性，再点击省略号（…）按钮，打开“ToolBarButton 集合编辑器”。
3. 使用“添加”和“删除”按钮在 ToolBar 控件中添加或删除按钮。
4. 在编辑器右侧窗格的“属性”窗口中配置各个按钮的属性。
5. 点击“确定”关闭对话框，创建指定的面板。
- 重要的工具栏按钮属性
| 属性 | 描述 |
| ---- | ---- |
| DropDown Menu | 设置下拉工具栏按钮要显示的菜单，按钮的 Style 属性必须设置为 DropDownButton，该属性引用 ContextMenu 类的实例。 |
| PartialPush | 设置切换样式的工具栏按钮是否部分按下，按钮的 Style 属性必须设置为 ToggleButton。 |
| Pushed | 设置切换样式的工具栏按钮当前是否处于按下状态，按钮的 Style 属性必须设置为 ToggleButton 或 PushButton。 |
| Style | 设置工具栏按钮的样式，必须是 ToolBarButtonStyle 枚举中的值之一。 |
| Text | 按钮显示的文本字符串。 |
| ToolTipText | 按钮的工具提示文本，要显示工具提示，ShowToolTips 属性必须设置为 True。 |
- ToolBarButtonStyle 枚举值
| 成员名称 | 描述 |
| ---- | ---- |
| DropDownButton | 点击时显示菜单或其他窗口的下拉控件。 |
| PushButton | 标准的三维按钮。 |
| Separator | 工具栏按钮之间的间隔或分隔线，外观取决于 Appearance 属性的值。 |
| ToggleButton | 点击时凹陷，再次点击恢复原状的切换按钮。 |
- 编程方式添加按钮

Public Sub CreateToolBarButtons()
    ' 创建按钮并设置文本属性。
    ToolBar1.Buttons.Add("One")
    ToolBar1.Buttons.Add("Two")
    ToolBar1.Buttons.Add("Three")
    ToolBar1.Buttons.Add("Four")
    ' 设置 Style 属性
    ' 索引从 0 开始
    ToolBar1.Buttons(0).Style = ToolBarButtonStyle.PushButton
    ToolBar1.Buttons(1).Style = ToolBarButtonStyle.Separator
    ToolBar1.Buttons(2).Style = ToolBarButtonStyle.ToggleButton
    ToolBar1.Buttons(3).Style = ToolBarButtonStyle.DropDownButton
    ' 设置 ToggleButton 的 PartialPush 属性。
    ToolBar1.Buttons(2).PartialPush = True
    ' 实例化 ContextMenu 组件和菜单项。
    ' 设置 DropDownButton 的 DropDownMenu 属性为上下文菜单。
    Dim cm As New ContextMenu()
    Dim miOne As New MenuItem("One")
    Dim miTwo As New MenuItem("Two")
    Dim miThree As New MenuItem("Three")
    cm.MenuItems.Add(miOne)
    cm.MenuItems.Add(miTwo)
    cm.MenuItems.Add(miThree)
    ToolBar1.Buttons(3).DropDownMenu = cm
    ' 设置 PushButton 的 Pushed 属性。
    ToolBar1.Buttons(0).Pushed = True
    ' 设置其中一个按钮的 ToolTipText 属性。
    ToolBar1.Buttons(1).ToolTipText = "Button 2"
End Sub

工具栏按钮图标设置

工具栏按钮通常显示图标以便用户识别。可以通过向 ImageList 组件添加图像，然后将 ImageList 组件与 ToolBar 控件关联来显示图标。
- 设计时设置图标
1. 从工具箱中将 ImageList 组件拖到窗体上，它会位于组件栏中。
2. 在 ImageList 控件的“属性”窗口中，点击“Images”属性，再点击省略号按钮，打开“图像集合编辑器”。
3. 使用“添加”和“删除”按钮在列表中添加或删除图像。
4. 在“属性”窗口中，将 ToolBar 控件的“ImageList”属性设置为刚添加的 ImageList 控件。
5. 点击 ToolBar 控件的“Buttons”属性，打开“ToolBarButton 集合编辑器”。
6. 在编辑器右侧窗格的“属性”窗口中，将每个工具栏按钮的“ImageIndex”属性设置为列表中的一个值，该值对应于添加到 ImageList 组件的图像。
- 编程方式设置图标

Public Sub InitializeMyToolBar()
    ' 实例化 ImageList 组件和 ToolBar 控件。
    Dim ToolBar1 as New ToolBar
    Dim ImageList1 as New ImageList
    ' 为 ImageList 组件分配图像。
    ' 以下使用的图像仅用于演示目的。
    ' 请用你自己选择的图像替换它。
    Dim myImage As System.Drawing.Image = Image.FromFile( "C:\winnt\Sample.ico"
    ImageList1.Images.Add(myImage)
    ' 创建一个 ToolBarButton。
    Dim ToolBarButton1 As New ToolBarButton()
    ' 将 ToolBarButton 添加到 ToolBar。
    ToolBar1.Buttons.Add(toolBarButton1)
    ' 为 ToolBar 分配 ImageList。
    ToolBar1.ImageList = ImageList1
    ' 为 ToolBarButton 分配 ImageIndex 属性。
    ToolBarButton1.ImageIndex = 0
End Sub

工具栏功能添加

为主菜单和上下文菜单项添加功能是通过它们的 Click 事件过程实现的，而为工具栏添加功能的过程有所不同。不能像为单个菜单项那样为单个工具栏按钮创建事件过程，而是要使用 ToolBar 本身的事件过程，且该事件是 ButtonClick 事件。

Private Sub ToolBar1_ButtonClick(ByVal sender As Object, _
    ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs)
    Select Case ToolBar1.Buttons.IndexOf(e.Button)
        Case 0
            ' 第一个按钮的代码
        Case 1
            ' 第二个按钮的代码
        Case 2
            ' 第三个按钮的代码
    End Select
End Sub

假设第一个工具栏按钮执行“剪切”操作，如 mnuEditCut，可以这样调用其 Click 事件：

Case 0   mnuEditCut_Click(sender, e)

虽然工具栏的 ButtonClick 事件过程的第二个参数与菜单的 Click 事件过程的第二个参数类型不同，但由于前者继承自后者，所以可以正常调用。

一分钟问答总结

问题	答案
处理工具栏按钮点击事件使用 Click 还是 ButtonClick 事件过程？	ButtonClick
处理工具栏按钮点击事件的事件过程属于工具栏按钮还是工具栏？	工具栏

文本编辑器项目实践

以下是一个简单文本编辑器项目的实现步骤：
- 创建一个 Windows 应用程序。
- 从工具箱向窗体添加一个 MainMenu 组件。
- 使用“菜单设计器”添加一个菜单，顶级菜单为“编辑”，菜单项包括“剪切”、“复制”、“粘贴”、“删除”和“全选”。
| 名称 | 标题 | 快捷键 |
| ---- | ---- | ---- |
| mnuEdit | &编辑 | 无 |
| mnuEditCut | Cu&t | CTRL - X |
| mnuEditCopy | &复制 | CRTL - C |
| mnuEditPaste | &粘贴 | CRTL - V |
- 使用“属性”窗口，将窗体的“Menu”属性设置为 MainMenu 组件的名称。
- 从工具箱向窗体添加一个 ContextMenu 组件。
- 将 MainMenu 中的“剪切”、“复制”和“粘贴”菜单项复制到 ContextMenu 中，并命名为 cmnuCut、cmnuCopy 和 cmnuPaste。
- 使用“属性”窗口，将窗体的“ContextMenu”属性设置为 ContextMenu 组件的名称。
- 从工具箱向窗体添加一个 ToolBar 组件。
- 使用 ToolBar 控件的“属性”窗口，点击“Buttons”属性旁边的省略号按钮，使用“ToolBarButton 集合编辑器”的“添加”按钮添加三个按钮。
- 从工具箱向窗体添加一个 ImageList 组件。
- 使用 ImageList 控件的“属性”窗口，点击“Images”属性旁边的省略号按钮，使用“图像集合编辑器”的“添加”按钮为“剪切”、“复制”和“粘贴”添加图像。
- 在“属性”窗口中，将 ToolBar 控件的“ImageList”属性设置为刚添加的 ImageList 控件。
- 使用 ToolBar 控件的“属性”窗口，点击“Buttons”属性打开“ToolBarButton 集合编辑器”。
- 在“ToolBarButton 集合编辑器”中，将每个工具栏按钮的“ImageIndex”属性设置为列表中的一个值，为每个按钮分配一个图像。
- 从工具箱向窗体添加一个名为 txtEdit 的 TextBox 控件，将其“Text”属性设置为空，“MultiLine”属性设置为 True，以允许用户输入多行文本。
- 在代码编辑器中，为 MainMenu 组件的三个菜单项创建 Click 事件过程：

Private Sub mnuEditCut_Click(ByVal sender As Object, _
    ByVal e As System.EventArgs) _
    Handles mnuEditCut.Click, cmnuCut.Click
    txtEdit.Cut()
End Sub

Private Sub mnuEditCopy_Click(ByVal sender As Object, _
    ByVal e As System.EventArgs) _
    Handles mnuEditCopy.Click, cmnuCopy.Click
    txtEdit.Copy()
End Sub

Private Sub mnuEditPaste_Click(ByVal sender As Object, _
    ByVal e As System.EventArgs) _
    Handles mnuEditPaste.Click, cmnuPaste.Click
    txtEdit.Paste()
End Sub

• 在代码编辑器中，为 ToolBar 组件的 ButtonClick 事件创建事件过程：

Private Sub ToolBar1_ButtonClick(ByVal sender As System.Object, _
    ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) _
    Handles ToolBar1.ButtonClick
    Select Case ToolBar1.Buttons.IndexOf(e.Button)
        Case 0
            mnuEditCut_Click(sender, e)
        Case 1
            mnuEditCopy_Click(sender, e)
        Case 2
            mnuEditPaste_Click(sender, e)
    End Select
End Sub

运行该应用程序后，用户可以在文本编辑器中输入文本，选择文本，然后使用主菜单、上下文菜单和工具栏按钮进行“剪切”、“复制”和“粘贴”操作。不过，这个文本编辑器还不够完善，例如“剪切”、“复制”和“粘贴”项需要在适当的时候禁用，还需要添加更多命令，如“撤销”、“全选”等。但该项目展示了如何将主菜单、上下文菜单和工具栏上的对应项关联起来，以及 TextBox 控件的一些方法的使用。

总结

通过以上介绍，我们了解了菜单、上下文菜单和工具栏在应用程序中的重要性，以及如何创建它们、为其添加按钮和图标，还学习了如何为它们添加功能。这些知识对于开发用户友好的应用程序至关重要。在实际开发中，可以根据具体需求进一步优化和扩展这些功能，以满足不同用户的使用场景。

掌握情况检查

以下是一些相关问题及答案：
1. 用于以编程方式向菜单添加菜单项的 Add 方法是哪个对象的方法？
- 答案：d. MenuItems 集合
2. 当右键单击窗体或控件时，通常会出现以下哪个？
- 答案：a. ContextMenu
3. 可以使用“菜单设计器”将主菜单项复制到以下哪个组件的菜单项中？
- 答案：a. ContextMenu
4. 以下哪个通常带有位图图像？
- 答案：d. ToolBarButton
5. 隐藏菜单会禁用它。
- 答案：b. False
6. 对于哪个控件，在其被点击时使用 ButtonClick 事件过程？
- 答案：c. ToolBar
7. 对于哪个对象，在其被点击时使用另一个对象的事件过程？
- 答案：c. ToolBar
8. 以下哪个陈述不正确？
- 答案：c. 主菜单项的 Click 事件过程也可以处理 ToolBar 的 ButtonClick 事件。
9. 以下哪个陈述不正确？
- 答案：b. 对于有子菜单项的菜单项，可能会引发 Click 事件。通常有子菜单项的菜单项点击时是展开子菜单，而不是触发 Click 事件。

通过这些问题的解答，可以进一步巩固对菜单、上下文菜单和工具栏相关知识的理解。在实际应用中，不断实践和探索，将能够更好地运用这些技术来开发出功能强大、用户体验良好的应用程序。

流程图示例

graph TD
    A[创建 Windows 应用程序] --> B[添加 MainMenu 组件]
    B --> C[使用菜单设计器添加菜单]
    C --> D[设置窗体 Menu 属性]
    A --> E[添加 ContextMenu 组件]
    E --> F[复制菜单项到 ContextMenu]
    F --> G[设置窗体 ContextMenu 属性]
    A --> H[添加 ToolBar 组件]
    H --> I[添加按钮到 ToolBar]
    A --> J[添加 ImageList 组件]
    J --> K[添加图像到 ImageList]
    K --> L[设置 ToolBar 的 ImageList 属性]
    L --> M[设置按钮 ImageIndex 属性]
    A --> N[添加 TextBox 控件]
    C --> O[创建主菜单项 Click 事件过程]
    H --> P[创建 ToolBar ButtonClick 事件过程]
    O --> Q[运行应用程序]
    P --> Q

这个流程图展示了文本编辑器项目的主要创建步骤，从创建应用程序开始，逐步添加各种组件，设置属性，创建事件过程，最后运行应用程序。通过这个流程图，可以更直观地理解项目的整体架构和创建流程。

探索 VB.NET 中的菜单与工具栏：从基础到实践

深入理解各组件的交互与应用

在前面的内容中，我们已经详细介绍了上下文菜单、工具栏的创建、图标设置以及功能添加等方面的内容，还通过一个文本编辑器项目进行了实践演示。接下来，我们将进一步深入探讨这些组件之间的交互以及在实际应用中的更多细节。

上下文菜单与主菜单的交互优势

上下文菜单和主菜单在应用程序中相互配合，为用户提供了多样化的操作方式。上下文菜单能够在用户需要的特定位置快速提供相关命令，增强了操作的便捷性。例如，在文本编辑器中，当用户右键单击文本区域时，上下文菜单可以立即显示“剪切”“复制”“粘贴”等常用操作，而无需用户再去主菜单中寻找这些命令。这种交互方式使得用户能够更高效地完成任务，提高了应用程序的用户体验。

工具栏与菜单的功能互补

工具栏按钮通常重复了菜单项的功能，但它们以更直观的图形方式呈现，方便用户快速访问常用命令。例如，在文本编辑器中，工具栏上的“剪切”“复制”“粘贴”按钮与主菜单和上下文菜单中的相应菜单项功能相同，但用户只需点击按钮即可完成操作，无需在菜单中进行选择。这种功能互补的设计使得用户可以根据自己的操作习惯选择不同的方式来执行命令。

优化工具栏的使用体验

为了进一步提升工具栏的使用体验，我们可以对其进行一些优化。

动态显示与隐藏工具栏

在某些情况下，工具栏可能会占用过多的屏幕空间，影响用户对其他内容的查看。因此，我们可以实现工具栏的动态显示与隐藏功能。例如，当用户需要使用工具栏时，通过特定的操作（如点击按钮或使用快捷键）将其显示出来；当用户不需要使用时，将其隐藏起来，以节省屏幕空间。以下是一个简单的示例代码，用于实现工具栏的显示与隐藏：

Private Sub btnToggleToolBar_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnToggleToolBar.Click
    If ToolBar1.Visible Then
        ToolBar1.Visible = False
    Else
        ToolBar1.Visible = True
    End If
End Sub

自定义工具栏按钮

除了使用默认的工具栏按钮样式和功能外，我们还可以自定义工具栏按钮。例如，为按钮添加自定义图标、文本或提示信息，以满足不同用户的需求。以下是一个自定义工具栏按钮的示例代码：

Public Sub CustomizeToolBarButton()
    Dim customButton As New ToolBarButton()
    customButton.Text = "自定义按钮"
    customButton.ToolTipText = "这是一个自定义的工具栏按钮"
    customButton.ImageIndex = 2 ' 假设 ImageList 中第三个图像为自定义图标
    ToolBar1.Buttons.Add(customButton)
End Sub

错误处理与异常情况

在开发应用程序时，我们还需要考虑到可能出现的错误和异常情况，并进行相应的处理。

事件处理中的错误处理

在为菜单和工具栏的事件过程编写代码时，可能会出现各种错误，如文件不存在、对象为空等。为了避免应用程序因这些错误而崩溃，我们需要在事件处理中添加错误处理代码。以下是一个示例，展示了如何在工具栏按钮点击事件中进行错误处理：

Private Sub ToolBar1_ButtonClick(ByVal sender As Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles ToolBar1.ButtonClick
    Try
        Select Case ToolBar1.Buttons.IndexOf(e.Button)
            Case 0
                mnuEditCut_Click(sender, e)
            Case 1
                mnuEditCopy_Click(sender, e)
            Case 2
                mnuEditPaste_Click(sender, e)
            Case Else
                MessageBox.Show("未处理的按钮点击事件", "错误", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Select
    Catch ex As Exception
        MessageBox.Show("发生错误: " & ex.Message, "错误", MessageBoxButtons.OK, MessageBoxIcon.Error)
    End Try
End Sub

资源加载错误处理

在加载图像、菜单等资源时，也可能会出现错误。例如，当指定的图像文件不存在时，程序可能会抛出异常。为了避免这种情况，我们可以在加载资源时进行错误检查。以下是一个加载图像时的错误处理示例：

Public Sub InitializeMyToolBar()
    Dim ToolBar1 As New ToolBar()
    Dim ImageList1 As New ImageList()
    Try
        Dim myImage As System.Drawing.Image = Image.FromFile("C:\winnt\Sample.ico")
        ImageList1.Images.Add(myImage)
    Catch ex As Exception
        MessageBox.Show("加载图像时发生错误: " & ex.Message, "错误", MessageBoxButtons.OK, MessageBoxIcon.Error)
    End Try
    ' 后续代码...
End Sub

性能优化与最佳实践

为了确保应用程序的性能和稳定性，我们需要遵循一些性能优化和最佳实践原则。

减少不必要的事件处理

在为菜单和工具栏添加事件处理时，应避免添加不必要的事件处理代码。例如，如果某个菜单项或工具栏按钮的功能在当前应用场景中很少使用，可以考虑将其事件处理代码延迟加载或在需要时再进行绑定。

合理使用资源

在使用 ImageList 等资源时，应合理管理资源的加载和释放。避免在应用程序中加载过多的图像资源，以免占用过多的内存。可以在不需要使用某些资源时及时释放它们，以提高应用程序的性能。

总结与展望

通过对上下文菜单、工具栏等组件的详细介绍和实践，我们可以看到它们在 VB.NET 应用程序开发中起着重要的作用。这些组件不仅为用户提供了便捷的操作方式，还增强了应用程序的交互性和用户体验。

在未来的开发中，我们可以进一步探索这些组件的更多功能和应用场景。例如，结合其他控件和技术，实现更复杂的交互效果；通过优化代码和资源管理，提高应用程序的性能和稳定性。同时，不断关注用户的反馈和需求，持续改进应用程序的设计和功能，以满足用户日益增长的使用要求。

总结表格

组件	主要功能	创建方式	事件处理
上下文菜单	提供特定位置的相关命令	从工具箱添加，复制主菜单项	Click 事件
工具栏	以图形方式快速访问常用命令	从工具箱添加，设计时或编程方式添加按钮	ButtonClick 事件
主菜单	提供应用程序的主要命令集合	从工具箱添加，使用菜单设计器添加菜单项	Click 事件

新的流程图示例

graph TD
    A[应用程序启动] --> B[初始化上下文菜单]
    A --> C[初始化工具栏]
    A --> D[初始化主菜单]
    B --> E[等待用户操作]
    C --> E
    D --> E
    E --> F{操作类型}
    F -- 上下文菜单点击 --> G[处理上下文菜单 Click 事件]
    F -- 工具栏按钮点击 --> H[处理工具栏 ButtonClick 事件]
    F -- 主菜单项点击 --> I[处理主菜单 Click 事件]
    G --> J[执行相应操作]
    H --> J
    I --> J
    J --> K[更新界面显示]
    K --> E

这个流程图展示了应用程序启动后，各组件的初始化过程以及用户操作的处理流程。通过这个流程图，可以更清晰地理解应用程序中各组件之间的交互和事件处理机制。

通过以上内容的介绍，我们对 VB.NET 中的菜单和工具栏有了更深入的理解。在实际开发中，我们可以根据具体需求灵活运用这些知识，开发出功能强大、用户体验良好的应用程序。