知识大全 VB.NET菜单项目相关操作技巧分享

Posted 2022-07-18 菜单

篇首语：白头若是雪可替，世上何来苦心人。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全 VB.NET菜单项目相关操作技巧分享相关的知识，希望对你有一定的参考价值。

VB.NET菜单项目相关操作技巧分享 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

　　VB NET是一款完全面向对象的编程语言它的出现为开发人员打造了一个功能强大性能稳定的开发平台对VB NET的开发者而言能在设计与运行时操作菜单项目是非常有帮助的这篇技巧将探索如何在设计与运行时创建和改变VB NET菜单项目

　　菜单是大多数应用软件中必不可少的一部分在设计时与运行时操作它们的能力对VB NET开发者是非常有帮助的在这篇技巧中我将着眼于如何在设计时与运行时创建和改变菜单项目

　　首先我们先回顾一些菜单的基础知识为了在您的应用软件中使用菜单您需要在设计时使用MainMenu组件创建一个主菜单项目这个MainMenu组件将允许您创建和添加新菜单和新的菜单栏使用属性窗口来改变菜单项目属性并为菜单事件创建事件处理器

　　在设计时创建VB NET菜单项目

　　您可以在表单工具箱中找到MainMenu组件为了添加MainMenu组件到您的表单上可以将该控件托拽到表单上或在该控件上用右键点击

　　通过MainMenu组件您可以向VB NET的Windows表单中快速而简便地添加菜单而且显示在您的表单中的菜单和运行时显示的是一样的当您输入时额外的菜单框会在第一个菜单项目的右边出现子菜单也可以按同样的方式创建如果要创建一个子菜单只需要简单地在您想扩展的菜单项目右边输入一个条目

　　在运行时操作VB NET菜单项目

　　您可以在运行时动态操作菜单项目这种动态操作是必须的如果您需要对软件用户的某一操作做出响应来显示某一组特殊的菜单而且如果用此功能来禁止菜单对错误进行响应也是很有用的您可以选择在运行时添加隐藏或者禁止菜单并可对它们旁边的复选按钮做出同样的选择

　　VB NET菜单项目操作代码示例

　　在列表A中我创建了三个新的菜单项目 mnuMenuItem mnuMenuItem 和mnuMenuItem 我向MainMenu 菜单中添加了mnuMenuItem 和mnuMenuItem 并设定mnuMenuItem 作为mnuMenuItem 的子菜单注意我将mnuMenuItem 的选中属性（Checked）设为True并在这个项目旁边放置了一个复选框源码天空我还定义了两个事件 mnuMenuItem _Click和mnuMenuItem _Click 当用户点击了菜单之后将显示一个消息对话框列表A中的代码的运行结果应该和图B看上去相仿

　　列表A:

　　Private Sub Form _Load（）

　　Sub Form _Load（ByVal sender As System Object ByVal e As System EventArgs）

　　Handles MyBase Load SetMenus（）

　　End Sub

　　Private Sub SetMenus（）

　　Sub SetMenus（）

　　Dim mnuMenuItem

　　As MenuItem mnuMenuItem As MenuItem mnuMenuItem As MenuItem mnuMenuItem = New MenuItem（ Item New EventHandler（AddressOf mnuMenuItem _Click））

　　MainMenu MenuItems Add（mnuMenuItem ）

　　mnuMenuItem = New MenuItem（ Item ）

　　MainMenu MenuItems Add（mnuMenuItem ）

　　mnuMenuItem = New MenuItem（ Item New EventHandler（AddressOf mnuMenuItem _Click））

　　mnuMenuItem Checked = True mnuMenuItem MenuItems Add（mnuMenuItem ）

　　End Sub

　　Private Sub mnuMenuItem _Click（）

　　Sub mnuMenuItem _Click（ByVal sender As Object ByVal e As System EventArgs）

　　MessageBox Show（ Menu Item Clicked ）

　　End Sub

　　Private Sub mnuMenuItem _Click（）

　　Sub mnuMenuItem _Click（ByVal sender As Object ByVal e As System EventArgs）

　　MessageBox Show（ Menu Item Clicked ）

　　End Sub

cha138/Article/program/net/201311/11578