05-第05讲-菜单设计.ppt

第5讲 菜单设计 主要内容 菜单元素 下拉菜单设计 弹出式菜单设计 1、菜单元素 菜单条（主菜单） 菜单选项 子菜单 弹出式菜单 菜单项分组线 菜单快捷键 菜单键盘访问 2.下拉式菜单设计 菜单控件MmenuStrip Checked属性：选中标记是否出现在菜单项文本旁边 Items属性：设置标题项 ShortcutKeys属性：设置关联的快捷键 Text属性：显示标题 ShowItemToolTips：设置显示工具提示 ToolTipText: 设置提示信息内容 2.下拉式菜单设计 下拉菜单设计步骤： 在窗体上添加MenuStrip控件 设计菜单结构 添加相应的处理过程 菜单内容定义 定义菜单显示内容，分组横线用“-”，主项与子项 定义菜单键盘访问：[Alt]+字母：在标题中用 字母 定义菜单快捷键: 通过ShowcutKeys属性设置 定义菜单小图标：选中项，点击鼠标右键，。。。 定义菜单提示： 菜单设计示例 2.下拉式菜单设计 菜单代码设计 定义菜单项名称name 双击菜单项，进入代码编辑 输入代码 3.弹出式菜单设计 弹出式菜单控件 ContexMenuStrip 使用方法基本同下拉式菜单 设计步骤： 添加菜单控件 设置菜单项 设置代码,要用到下拉菜单相对应菜单的PerformClick方法 选定对象，用ContexMenuStrip属性与弹出菜单建立关联 示例： 示例界面 示例代码 Private Sub mnuNew_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuNew.Click TextBox1.Text = End Sub Private Sub mnuExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuExit.Click Me.Close() End Sub Private Sub mnuCut_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuCut.Click TextBox1.Cut() End Sub Private Sub mnuCopy_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuCopy.Click TextBox1.Copy() End Sub Private Sub mnuPaste_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuPaste.Click TextBox1.Paste() End Sub Private Sub 剪切ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 剪切ToolStripMenuItem.Click mnuCut.PerformClick() End Sub Private Sub 复制ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 复制ToolStripMenuItem.Click mnuCopy.PerformClick() End Sub Private Sub 粘贴ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 粘贴ToolStripMenuItem.Click mnuPaste.PerformClick() End Sub * 苏州大学计算机学院 陈建明jmchen@suda.edu.cn