VB程序设计22367.pptVIP

第6章 菜单的设计 目录 6.1 【案例9】 “实用菜单设计 ”程序 6.2 实战演练 6.3 知识点播 6.4 经验总结 6.1 【案例9】 “实用菜单设计 ”程序 1、案例综述 创建一个菜单，它有三个主菜单项，分别为“文件”、“应用程序”和“退出”，在“文件”主菜单下有一个子菜单项“新建工程”，当单击“新建工程”子菜单时，新建一个空的工程； 在第二个主菜单“应用程序”下有子菜单项“增加应用程序”和“减少应用程序”及分隔线。单击一次“增加应用程序”，就会在分隔线下面增加一个新的菜单项，单击一次“减少应用程序”，就会删除分隔线下面一个指定的菜单项；如果单击新增加的菜单项，则可以执行指定的应用程序； 单击第三个主菜单“退出”，结束程序的运行。 2、案例分析 本程序中需要用到菜单编辑器工具。 单击“应用程序”菜单下的“增加应用程序”和“删除应用程序”菜单项分别实现菜单项的增加和删除。菜单项的增加通过控件数组来实现，一个控件数组含有若干个控件，这些控件的名称相同，所使用的事件过程相同，但其中的每个元素可以有自己的属性，和普通数组一样，通过下标（index）访问控件数组中的元素。首先建立控件数组的第一个数组元素AppName（0），并将其隐藏，即设置它的Visible属性为False，使用“Load菜单控件数组名称（Index）”语句在菜单控件数组中创建一个新的菜单控件元素，每次创建一个新的菜单控件时，菜单空间的Index取值都要依次递增；在程序中，修改新创建的菜单控件元素的Caption属性并且将其Visible属性设置为True，使它在菜单中显示；删除菜单项，通过“Unload菜单控件名称（Index）”语句实现。 单击“文件”主菜单下的子菜单“新建工程”，新建一个Visual Basic工程以及单击增加的菜单项，执行相应的程序，都属于外部程序的调用，通过外部程序调用函数shell实现。 单击“退出”主菜单项时，结束程序的运行，用End语句实现。 6.2 实战演练 1、建立菜单 操作步骤如下： 执行“工具”菜单中的“菜单编辑器”命令，打开菜单编辑器 窗口， （1）在“标题”栏中输入：文件(F)，在“名称”栏中输入：file，单击“下一个”按钮，等待创建下一个菜单。 （2）单击菜单编辑器编辑区的图标，在菜单编辑器的显示区会出现一个内缩符号（….），它表示即将创建的菜单项是前面创建菜单的子菜单。在“标题”栏中输入：新建工程，在“名称”栏中输入：new，设置其快捷键为Ctrl+N，单击“下一个”命令按钮，等待创建下一个菜单。 （3）单击菜单编辑器编辑区的图标，在菜单编辑器的显示区内缩符号消失，表示即将创建的菜单项不再是子菜单项，而是一个顶级菜单。在“标题”栏中输入：应用程序，在“名称”栏中输入：Apps。单击“下一个”按钮，等待创建下一个菜单。 （4）单击一次菜单编辑器编辑区的图标，创建“应用程序”菜单的子菜单。在“标题”栏中输入：增加应用程序，在“名称”栏中输入：AddAp，设置其快捷方式为Ctrl+A，单击“下一个”按钮，等待创建下一个菜单。 （5）创建与“增加应用程序”菜单项同级的菜单项“减少应用程序”。在“标题”栏中输入：减少应用程序，在“名称”栏中输入：DelAp，设置其快捷方式为Ctrl+D，单击“下一个”按钮，等待创建下一个菜单。 （6）创建与“增加应用程序”菜单项同级的菜单项分隔符。在“标题”栏中输入一个减号（－），在“名称”栏中输入：SepBar，单击“下一个”按钮，等待创建下一个菜单。 （7）创建菜单项控件数组的第一个元素。标题为空，在名称栏中输入：AppName，设置其索引为0，不可见。单击“下一个”按钮，等待创建下一个菜单。 （8）单击菜单编辑器编辑区的图标，创建顶级菜单。在“标题”栏中输入：退出(Q)，在“名称”栏中输入：quit。 菜单编辑器的内容如图所示 。 2、编写代码 6.3 知识点播 6.3.1 菜单控件 6.3.2 使用菜单编辑器 6.3.3 菜单与工程的连接与控制 6.3.4 子菜单 6.3.5 Visible 、Index、 Checked属性 6.3.1 菜单控件 在Windows环境下，几乎所有的应用软件都通过菜单实现各种操作。而对于Visual Basic应用程序来说，当操作比较简单时，一般通过控件来执行；而当要完成较复杂的操作时，使用菜单具有十分明显的优势。 在实际应用中，菜单可分为两种基本类型，即弹出式菜单和下拉式菜单。 在下拉式菜单中，一般都有一个主菜单，其中包括若干个选择项。主菜单的每一项又可“下拉”出下一级菜单，这样逐级下拉，用