📜  菜单就像单选按钮 vb.net - VBA (1)

📅  最后修改于: 2023-12-03 14:57:18.307000             🧑  作者: Mango

菜单就像单选按钮

菜单是许多 Windows 应用程序中常见的一种控件,它通常用于显示应用程序的不同功能和选项。就像单选按钮一样,菜单可以帮助用户在不同选项中做出选择。

VB.NET 和 VBA 都支持创建菜单控件。以下是一个简单的示例,演示如何在 Visual Studio 中创建 menuStrip 控件。

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    Dim fileToolStripMenuItem As New ToolStripMenuItem("文件")
    Dim exitToolStripMenuItem As New ToolStripMenuItem("退出")
    AddHandler exitToolStripMenuItem.Click, AddressOf Me.exitToolStripMenuItem_Click
    fileToolStripMenuItem.DropDownItems.Add(exitToolStripMenuItem)
    menuStrip1.Items.Add(fileToolStripMenuItem)
End Sub

Private Sub exitToolStripMenuItem_Click(sender As Object, e As EventArgs)
    Me.Close()
End Sub

这段代码创建了一个名为“文件”的菜单,并在其中添加了一个名为“退出”的选项。点击“退出”选项时,应用程序将关闭。要添加更多选项,可以使用 ToolStripMenuItem 类创建新的选项,并将它们添加到菜单中。可以使用 menuStrip1.Items.Add 方法将菜单添加到窗体中。

菜单还可以分组,以便将相关选项组合在一起。例如,可以创建一个名为“编辑”的菜单,并在其中添加“剪切”、“复制”和“粘贴”选项。要将选项组合在一起,请使用 ToolStripMenuItem.DropDown 属性设置一个额外的 ContextMenuStrip 控件。

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    Dim editToolStripMenuItem As New ToolStripMenuItem("编辑")
    Dim cutToolStripMenuItem As New ToolStripMenuItem("剪切")
    Dim copyToolStripMenuItem As New ToolStripMenuItem("复制")
    Dim pasteToolStripMenuItem As New ToolStripMenuItem("粘贴")
    editToolStripMenuItem.DropDownItems.Add(cutToolStripMenuItem)
    editToolStripMenuItem.DropDownItems.Add(copyToolStripMenuItem)
    editToolStripMenuItem.DropDownItems.Add(pasteToolStripMenuItem)
    Dim cutContextMenuStrip As New ContextMenuStrip()
    cutContextMenuStrip.Items.Add("剪切")
    cutContextMenuStrip.Items.Add("复制")
    cutContextMenuStrip.Items.Add("粘贴")
    cutToolStripMenuItem.DropDown = cutContextMenuStrip
    menuStrip1.Items.Add(editToolStripMenuItem)
End Sub

以上代码演示了如何创建一个菜单,并将其分组为“编辑”菜单。在“编辑”菜单中,有三个选项:剪切、复制和粘贴。点击“剪切”选项时,将显示一个与“剪切”选项相关的下拉列表。该下拉列表由一个额外的 ContextMenuStrip 控件创建。

总之,菜单是一种常见且有用的控件,可帮助用户轻松地在不同功能和选项之间进行选择。VB.NET 和 VBA 都支持创建菜单控件,使开发人员能够轻松地为应用程序添加菜单。