《VB程序设计基础教程第6章》由会员分享，可在线阅读，更多相关《VB程序设计基础教程第6章（23页珍藏版）》请在金锄头文库上搜索。
1、第6章 创 建 菜 单,6.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 设置其他子菜单的快捷键,设置访问键,图6-11 为“编辑”菜单设置访问键 图6-12 为
2、其他菜单项设置访问键,添加分隔线,图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
3、 = False End Sub 当程序开始运行时，执行Form_Load事件过程，使“粘贴”命令不可用，如图6-15所示。,菜单项的复选标记,菜单项标记是指在菜单项前面加上“”，其主要通过“Checked”属性来设置，当将一个菜单项的“Checked”属性设置为True时，此时菜单项前面则加上“”；如果设置为False，则该菜单项前的“”消失。 例如，在如图6-14所示的“菜单编辑器”中的“文件”菜单下增加“清除”菜单项，并单击“复选”复选框，使方框内出现“”，然后单击“确定”按钮。此时会发现“文件”菜单下的“清除”菜单项的左侧有一个“”，表示为“清除”状态，如图6-16所示。,图6-15
4、设置“粘贴”菜单的有效性 图6-16 设置菜单项的复选标记,6.3 弹出式菜单,Flags参数,6.3.1 PopupMenu方法,表6-1 位置标志,Boldcommand参数,表6-2 性能标志,使用Boldcommand参数来指定，在显示的弹出式菜单中想以粗字体出现的菜单控件的名称。在弹出式菜单中只能有一个菜单控件被加粗。,6.3.2 实例,设计一个用于文本编辑的弹出式菜单。菜单项中包含有复制、粘贴、清除、撤销、剪切等选项，其操作步骤如下：,图6-17 设置顶菜单“edit” 图6-18 创建其他菜单,图6-19 演示程序,习题,1选择题 （1）假定有一个菜单项，名为MenuItem，为了在运行时使该菜单失效，以下正确的语句是（ ）。 AMenuItem.Enabled=False BMenuItem.Enabled= True CMemnItem.Visible=True DMemnItem.Visible= False （2）假定有一个菜单项，名为MenuItem，为了在运行时使该菜单项不可见，应使用的正确语句是（ ）。 AMenuItem.Enabled=False BMenuItem.Enabled=True CMenuItem.Visible=True DMenuItem.Visible=False,更多习题见书114页,Thank You !,
