VB程序设计基础教程第6章.pptVIP

第6章 创 建 菜 单 6.1 菜单概述 菜单的状态 菜单的种类 6.2 下拉式菜单 建立主菜单 建立子菜单 设置快捷键 设置访问键 添加分隔线 菜单项的复选标记 6.3 弹出式菜单 Flags参数 Boldcommand参数 习题 1．选择题 （1）假定有一个菜单项，名为MenuItem，为了在运行时使该菜单失效，以下正确的语句是（ ）。 A．MenuItem.Enabled=False B．MenuItem.Enabled= True C．MemnItem.Visible=True D．MemnItem.Visible= False （2）假定有一个菜单项，名为MenuItem，为了在运行时使该菜单项不可见，应使用的正确语句是（ ）。 A．MenuItem.Enabled=False B．MenuItem.Enabled=True C．MenuItem.Visible=True D．MenuItem.Visible=False 魏豪明 制作 魏豪明 制作 6.1 菜单概述 1 6.2 下拉式菜单 2 6.3 弹出式菜单 3 6.1.1 菜单的组成 图6-1 菜单组成 6.1.2 菜单的状态和种类 状态 隐藏状态 正常状态 无效状态 （1）下拉菜单 （2）弹出式菜单 图6-2 弹出式菜单 6.1.3 菜单编辑器 图6-3 “菜单编辑器”对话框 6.2.1 建立菜单 图6-4 创建“文件”主菜单 图6-5 创建“编辑”主菜单 图6-6 创建“剪切”菜单 图6-7 将“剪切”设置为子菜单 图6-8 创建其他子菜单 图6-9 选择快捷键 图6-10 设置其他子菜单的快捷键 图6-11 为“编辑”菜单设置访问键 图6-12 为其他菜单项设置访问键 图6-13 分隔条 图6-14 添加分隔符 6.2.2 编写代码 在菜单事件过程中编写的代码与在控件任何其他事件过程中编写的代码完全相同。例如，“编辑”菜单中的“复制”菜单项（菜单名为mnuFileExit）的Click事件的代码如下： Sub mnuFileEixt_Click() Unload Me End Sub 6.2.3 菜单控制 例如，若要将“编辑”菜单下的“粘贴”设置为无效，只需利用Form_Load事件过程添加如下程序代码： Private Sub Form_Load() Clipboard.Clear mnuEditPaste.Enabled = False End Sub 当程序开始运行时，执行Form_Load事件过程，使“粘贴”命令不可用，如图6-15所示。 菜单项标记是指在菜单项前面加上“√”，其主要通过“Checked”属性来设置，当将一个菜单项的“Checked”属性设置为True时，此时菜单项前面则加上“√”；如果设置为False，则该菜单项前的“√”消失。 例如，在如图6-14所示的“菜单编辑器”中的“文件”菜单下增加“清除”菜单项，并单击“复选”复选框，使方框内出现“√”，然后单击“确定”按钮。此时会发现“文件”菜单下的“清除”菜单项的左侧有一个“√”，表示为“清除”状态，如图6-16所示。 图6-15 设置“粘贴”菜单的有效性 图6-16 设置菜单项的复选标记 6.3.1 PopupMenu方法 表6-1 位置标志 指定的x位置定义了该弹出式菜单的右边界 vbPopupMenuRightAlign 弹出式菜单以指定的x位置为中心 vbPopupMenuCenterAlign 缺省。指定的x位置定义了该弹出式菜单的左边界 vbPopupMenuLeftAlign 描 述 位置常数 表6-2 性能标志 当用户用鼠标右键或者左键单击菜单项时，显示弹出式菜单 vbPopupMenuRightButton 缺省。只有当用户用鼠标左键单击菜单项时，才显示弹出式菜单 vbPopupMenuLeftButton 描 述 行为常数 使用Boldcommand参数来指定，在显示的弹出式菜单中想以粗字体出现的菜单控件的名称。在弹出式菜单中只能有一个菜单控件被加粗。 6.3.2 实例 设计一个用于文本编辑的弹出式菜单。菜单项中包含有复制、粘贴、清除、撤销、剪切等选项，其操作步骤如下： 图6-17 设置顶菜单“edit”