08第8篇 菜单程序设计.pptVIP

Visual Basic 程序设计 河北科技大学 机械电子工程学院 授课教师 刘文学 第8章 菜单程序设计 主要内容 认识菜单 VB的菜单编辑器 通过代码来控制菜单的外观显示（可见性、有效性） 弹出菜单和分隔条的设计 工具栏的设计 认识菜单 菜单的分类（两类） 下拉式菜单 含：菜单条、菜单项、菜单、子菜单、分隔条 弹出式菜单 含：菜单项、菜单、子菜单、分隔条 菜单的特点 具有点击Click事件，执行指定任务。 VB中菜单的创建 使用菜单编辑器 菜单编辑器的使用 启动菜单编辑器的方法 菜单栏：【工具】－【菜单编辑器】 工具栏：“菜单编辑器”按钮 热键：Ctrl+E 窗体上点击鼠标右键，选择菜单编辑器 菜单编辑器窗口简介（如下图） 菜单编辑器窗口的组成（由3个部分组成） 数据区 数据区用来输入或修改菜单项，设置属性 编辑区 用来对输入的菜单项进行简单的编辑 菜单项显示区 用来显示编辑好的菜单项 数据区 标题（Caption）： 是一个文本框，指定菜单名 如果想在菜单中建立分隔符，则应在标题框中键入一个连字符 “—”。 为了能够通过键盘访问菜单项，可在一个字母前插入“”符号。在运行时，该字母带有下划线（ 符号是不可见的），按 ALT 键和该字母就可访问菜单或命令。 （只有顶级菜单可以使用） 名称（Name） 也是一个文本框，用来输入菜单的对象名（相当于控件的Name属性，在程序中使用）。 索引（Index） 当菜单中有多个菜单项的“名称”相同时，用索引号来区分它们（相当于控件数组中的索引）。 例如：建立菜单：File和Edit，它们的名称相同（Lwx），索引分别为：0和1。调用同一个点击事件。 Private Sub lwx_Click(Index As Integer) If Index = 0 Then Print 点击了File菜单 If Index = 1 Then Print 点击了Edit菜单 End Sub 快捷键 是一个下拉列表框，用于设置菜单项的快捷键(热键)。 帮助上下文（HelpContextID） 是一个文本框，可在该框中键入数值，这个值用来在菜单的帮助文件(用HelpFile属性设置)中查找相应帮助的主题。 协调位置 是一个下拉列表框，用来确定菜单在什么位置出现。（只用于顶层菜单）（盗版没有效果） 复选（Checked） 当选择该项时，允许在菜单项的左边设置复选标记(例如“√”)。用来指明某个菜单项当前是否处于活动状态。 有效（Enabled） 用来设置菜单项的操作状态。默认情况下，该属性为True，表明该菜单项可以对用户的点击事件做出响应。如果该属性被置为“False”，则相应的菜单项的色彩会变灰，不能响应用户的点击事件。 可见（Visible） 确定菜单项是否可见。一个不可见的菜单项是不能执行的。在默认情况下，该属性为True，即菜单项可见。当一个菜单项的“可见”属性设置为False时，该菜单项将暂时从菜单中去掉；如果把它的“可见”属性改为True，则该菜单项将重新出现在菜单中。 显示窗口列表（WindowList） 用于多文档窗体中。当该选项被设置为True时（框内有“√”)，将显示当前打开的子窗口。 编辑区 右箭头 单击一次将把选定的菜单向右移动一个等级（即变成下一级子菜单）。 一共可以创建四级子菜单。（前面有“…”的是子菜单，没有的是主菜单） 左箭头 与右箭头相反。 上、下箭头 用来改变菜单的显示位置。 下一个 选定下一个菜单或开始编辑一个新的菜单项 插入 用来在当前菜单的下面插入新的菜单项。 删除 删除当前菜单项。 菜单项显示区 用来显示菜单的编辑过程和内容 通过代码来控制菜单的外观显示 有效性（Enabled） 菜单名.Enabled = True|False 可见性（Visible） 菜单名. Visible = True|False 复选性（Checked） 菜单名. Checked = True|False 示例：一个自动绘制彩色圆的程序 说明 本程序用一个时钟控件(Timer1)定时在图片框控件（Picture1）上画一些圆。其中颜色由变量curColor，isRandom来控制，若isRandom为True，则使用一个随机颜色，否则使用curColor变量中的值。程序中是用菜单来进行颜色的选择 菜单项的最常用事件是点击事件Click 要想对某一菜单项进行编程，只需在设计窗体下点击该菜单项，即可进入代码窗体，在该菜单的点击事件中进行编程。 代码 Dim curColor, isRandom Private Sub Form_Load() curColor = vbRed isRandom = False Timer1.Interval = 30