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

《VB程序设计基础教程第6章》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、第6章创建菜单www.uestcp.com.cn6.1菜单概述16.2下拉式菜单26.3弹出式菜单36.1菜单概述6.1.1菜单的组成图6-1菜单组成菜单的状态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设置其他

2、子菜单的快捷键设置访问键图6-11为“编辑”菜单设置访问键图6-12为其他菜单项设置访问键添加分隔线图6-13分隔条图6-14添加分隔符6.2.2编写代码在菜单事件过程中编写的代码与在控件任何其他事件过程中编写的代码完全相同。例如，“编辑”菜单中的“复制”菜单项（菜单名为mnuFileExit）的Click事件的代码如下：SubmnuFileEixt_Click()UnloadMeEndSub6.2.3菜单控制例如，若要将“编辑”菜单下的“粘贴”设置为无效，只需利用Form_Load事件过程添加如下程序代码：PrivateSubForm_Loa

3、d()Clipboard.ClearmnuEditPaste.Enabled=FalseEndSub当程序开始运行时，执行Form_Load事件过程，使“粘贴”命令不可用，如图6-15所示。菜单项的复选标记菜单项标记是指在菜单项前面加上“√”，其主要通过“Checked”属性来设置，当将一个菜单项的“Checked”属性设置为True时，此时菜单项前面则加上“√”；如果设置为False，则该菜单项前的“√”消失。例如，在如图6-14所示的“菜单编辑器”中的“文件”菜单下增加“清除”菜单项，并单击“复选”复选框，使方框内出现“√”，然后单击“确定

4、”按钮。此时会发现“文件”菜单下的“清除”菜单项的左侧有一个“√”，表示为“清除”状态，如图6-16所示。图6-15设置“粘贴”菜单的有效性图6-16设置菜单项的复选标记6.3弹出式菜单Flags参数6.3.1PopupMenu方法表6-1位置标志位置常数描述vbPopupMenuLeftAlign缺省。指定的x位置定义了该弹出式菜单的左边界vbPopupMenuCenterAlign弹出式菜单以指定的x位置为中心vbPopupMenuRightAlign指定的x位置定义了该弹出式菜单的右边界Boldcommand参数表6-2性能标志行为常数描

5、述vbPopupMenuLeftButton缺省。只有当用户用鼠标左键单击菜单项时，才显示弹出式菜单vbPopupMenuRightButton当用户用鼠标右键或者左键单击菜单项时，显示弹出式菜单使用Boldcommand参数来指定，在显示的弹出式菜单中想以粗字体出现的菜单控件的名称。在弹出式菜单中只能有一个菜单控件被加粗。6.3.2实例设计一个用于文本编辑的弹出式菜单。菜单项中包含有复制、粘贴、清除、撤销、剪切等选项，其操作步骤如下：图6-17设置顶菜单“edit”图6-18创建其他菜单图6-19演示程序习题1．选择题（1）假定有一个菜单项，

6、名为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更多

7、习题见书114页www.uestcp.com.cnThankYou!