vbnet菜单设计.doc

  1. 1、本文档共3页,可阅读全部内容。
  2. 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
vbnet菜单设计

Vb.net菜单设计 Windows窗体菜单一般有两种 下拉式菜单 弹出式菜单(上下文菜单) 菜单的组成包括 菜单项 快捷键 赋值访问键 分割条 子菜单提示符 下拉式菜单常用于主菜单的设计。 主菜单通常位于窗体的顶部的菜单栏上,包括了应用程序的所有功能。 主菜单通过MainMenu组件建立。该组件是非用户界面组件,在设计阶段,不出现在窗体上,而是位于窗体下方专用的面板上。 MainMenu组件中的主菜单由MenuItem对象组成,每个MenuItem对象表示的是菜单结构中单个的菜单项。 属性名 描述 Text 菜单项文本 可设置赋值访问键 ShortCut 快捷键设置 ShowShortCut 是否显示快捷键 Checked 复选菜单项 RadioCheck 单选菜单项 Enabled 设置菜单项可用性 Visible 设置菜单可见性 步骤: 添加菜单和菜单项 设置菜单项属性 为菜单项编写事件过程(Click事件) 弹出式菜单是独立于主菜单,显示于窗体任何位置的上的浮动菜单, 一般通过鼠标右键单击弹出,又称上下文菜单。上下文菜单通过ContextMenu组件建立。 与MainMenu组件的属性完全相同,不同之处有以下几点: (1) 一个窗体只需要一个MainMenu组件, 但可以有多个ContextMenu组件。 (2)用MainMenu组件建立的菜单位置固定于窗体的顶部, 而用ContextMenu组件建立的菜单位置不固定。 (3)用MainMenu组件可以建立多个主菜单项, 而用ContextMenu组件建立的菜单只有一个主菜单项。 步骤: 添加ContextMenu控件 设计菜单 将弹出式菜单与相应控件建立关联 方法:将控件的ContextMenu属性设置为添加的ContextMenu控件即可。 例 设计一个“简单记事本”。(主菜单) Private Sub MenuItem4_Click ByVal sender As System.Object, ByVal e As System.EventArgs Handles MenuItem4.Click new SaveFileDialog1.FileName Default.txt SaveFileDialog1.DefaultExt txt SaveFileDialog1.ShowDialog FileOpen 1, SaveFileDialog1.FileName, OpenMode.Output Write 1, TextBox1.Text FileClose 1 End Sub Private Sub MenuItem5_Click ByVal sender As System.Object, ByVal e As System.EventArgs Handles MenuItem5.Click open OpenFileDialog1.ShowDialog FileOpen 2, OpenFileDialog1.FileName, OpenMode.Input Do TextBox1.Text LineInput 2 TextBox1.Text vbCrLf Loop Until EOF 2 FileClose 2 End Sub Private Sub MenuItem6_Click ByVal sender As System.Object, ByVal e As System.EventArgs Handles MenuItem6.Click save SaveFileDialog1.FileName Default.txt SaveFileDialog1.DefaultExt txt SaveFileDialog1.ShowDialog FileOpen 3, SaveFileDialog1.FileName, OpenMode.Append Write 3, TextBox1.Text FileClose 3 End Sub Private Sub MenuItem8_Click ByVal sender As System.Object, ByVal e As System.EventArgs Handles MenuItem8.Click TextBox1.Copy End Sub Private Sub MenuItem9_Click ByVal sender As System.Object, ByVal e As System.EventArgs Handles MenuItem9.Click TextBox1.Cut End Sub Private Sub MenuItem10_C

文档评论(0)

sb9185sb + 关注
实名认证
内容提供者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档