搜索
魏豪明制作第6章创建菜单菜单组成魏豪明制作菜单的状态6.1.2菜单的状态和种类状态隐藏状态正常状态无效状态魏豪明制作菜单的种类（1）下拉菜单（2）弹出式菜单图6-2弹出式菜单魏豪明制作6.1.3菜单编辑器图6-3“菜单编辑器”对话框魏豪明制作6.2下拉式菜单建立主菜单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事件的代码如下：SubmnuFileEixt_Click()UnloadMeEndSub魏豪明制作6.2.3菜单控制例如，若要将“编辑”菜单下的“粘贴”设置为无效，只需利用Form_Load事件过程添加如下程序代码：PrivateSubForm_Load()Clipboard.ClearmnuEditPaste.Enabled=FalseEndSub当程序开始运行时，执行Form_Load事件过程，使“粘贴”命令不可用，如图6-15所示。魏豪明制作菜单项的复选标记菜单项标记是指在菜单项前面加上“√”，其主要通过“Checked”属性来设置，当将一个菜单项的“Checked”属性设置为True时，此时菜单项前面则加上“√”；如果设置为False，则该菜单项前的“√”消失。例如，在如图6-14所示的“菜单编辑器”中的“文件”菜单下增加“清除”菜单项，并单击“复选”复选框，使方框内出现“√”，然后单击“确定”按钮。此时会发现“文件”菜单下的“清除”菜单项的左侧有一个“√”，表示为“清除”状态，如图6-16所示。魏豪明制作图6-15设置“粘贴”菜单的有效性图6-16设置菜单项的复选标记魏豪明制作6.3弹出式菜单Flags参数6.3.1PopupMenu方法表6-1位置标志位置常数描述vbPopupMenuLeftAlign缺省。指定的x位置定义了该弹出式菜单的左边界vbPopupMenuCenterAlign弹出式菜单以指定的x位置为中心vbPopupMenuRightAlign指定的x位置定义了该弹出式菜单的右边界魏豪明制作Boldcommand参数表6-2性能标志行为常数描述vbPopupMenuLeftButton缺省。只有当用户用鼠标左键单击菜单项时，才显示弹出式菜单vbPopupMenuRightButton当用户用鼠标右键或者左键单击菜单项时，显示弹出式菜单使用Boldcommand参数来指定，在显示的弹出式菜单中想以粗字体出现的菜单控件的名称。在弹出式菜单中只能有一个菜单控件被加粗。魏豪明制作6.3.2实例设计一个用于文本编辑的弹出式菜单。菜单项中包含有复制、粘贴、清除、撤销、剪切等选项，其操作步骤如下：图6-17设置顶菜单“edit”图6-18创建其他菜单魏豪明制作图6-19演示程序魏豪明制作习题1．选择题（1）假定有一个菜单项，名为MenuItem，为了在运行时使该菜单失效，以下正确的语句是（）。A．MenuItem.Enabled=FalseB．MenuItem.Enabled=TrueC．MemnItem.Visible=TrueD．MemnItem.Visible=False（2）假定有一个菜单项，名为MenuItem，为了在运行时使该菜单项不可见，应使用的正确语句是（）。A．MenuItem.Enabled=FalseB．MenuItem.Enabled=TrueC．MenuItem.Visible=TrueD．MenuItem.Visible=False更多习题见书114页魏豪明制作