vb程序设计--菜单、对话框及多重窗体

《vb程序设计--菜单、对话框及多重窗体》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、菜单、对话框及多重窗体VB程序设计制作：赖锦德提出问题大家在以前就已接触和学习过不少应用程序，比如Office中的文字处理程序Word、表格处理程序Excel等，已经使用过这些程序中强大的菜单功能，它们是如何进行设计的呢？我们自己能否设计类似的菜单呢？本章主要内容：1：菜单2：对话框3：多重窗体4：VB工程结构两种菜单类型：下拉式菜单、弹出式菜单§1菜单组成主菜单(标题)包含若干个菜单项,它放置在菜单的最顶层,它可以下拉出下一级菜单(子菜单)菜单命令对应一个程序模块,执行命令后子菜单自动消失子菜单包含子菜单标题和菜

2、单命令分隔条可对子菜单进行分组子菜单菜单命令主菜单栏子菜单标题分隔条子菜单主菜单(标题)菜单命令对应一个程序模块,执行命令后子菜单自动消失分隔条可对子菜单进行分组1：菜单控件菜单项(主菜单项或子菜单项)也称为菜单控件菜单项具有其属性、事件、方法通过“菜单编辑器”完成设计2：菜单编辑器使设计菜单栏的窗体成为当前窗体执行“工具”菜单的“菜单编辑器”命令(或单击标准工具栏的“菜单编辑器”按钮，或从窗体快捷菜单中选择“菜单编辑器”命令)，打开“菜单编辑器”窗口3：菜单编辑器结构属性区—输入或修改菜单项，设置菜单项属性编辑区

3、—对输入的菜单项进行编辑操作菜单列表区—显示菜单项的分级列表§2菜单编辑器*Caption*NameIndexShortcut属性区菜单列表区编辑区我们利用菜单编辑器设计每个菜单项，其实每个菜单项都是一个对象，它们都有自己的属性、事件、方法。CaptionNameIndexShortcut名称：Name属性设置菜单控件的名字以便在代码中访问它设计菜单时必须输入此项！标题：Caption属性设置菜单项中显示的文字若该属性为连字符(-),则显示为隔离条可定义访问键(在一字母前加&符号)快捷键：顶级菜单不能使用快捷键！索

4、引：若将菜单控件定义为数组，则Index属性确定数组控件的位置CheckedEnabledVisible当具有菜单的窗体包含另一个具有菜单的对象时，该属性协调二者的位置0-None1-Left2-Middle3-Right决定菜单项是否显示缺省值True属性区设置菜单项的左端是否带复选标记√缺省值False决定菜单项是否响应事件缺省值True编辑区菜单列表区属性区完成上述设计,单击确定按钮,即可看到菜单结构,要实现菜单功能，需要编写菜单项的事件代码【例1】设计一个具有算术运算（+、-、×、/）及清除功能的菜单。从键

5、盘上输入两个数，利用菜单命令求出它们和、差、积或商，并显示出来。菜单设计编写程序代码菜单的事件过程以菜单项区分，可以把每个菜单项看成是一个控件。菜单设计完成后，只要单击某个菜单项，即可定义该菜单项的事件过程。【例2】设计菜单界面如下图所示，下拉菜单中的子菜单项用于对文本框设置字体、字号、文字颜色和效果。其中，效果菜单下的各菜单项具有复选功能，设运行初始时各项前面没有√符号，与文本框初始状态一致Text1菜单编辑器设置如下：标题名称索引快捷键说明字体(&F)AA访问键Alt+F....宋体AA11Ctrl+A定义成控

6、件数组AA1;AA1(3)用于生成分隔条....黑体AA12Ctrl+B....-AA13....隶书AA14Ctrl+C....楷体_GB2312AA15Ctrl+D字号(&S)BB访问键Alt+S....14BB11定义成控件数组BB1....16BB12....18BB13....20BB14菜单列表区续上表：标题名称索引快捷键说明颜色(&C)CC访问键Alt+C....红色CC1.…绿色CC2.…蓝色CC3效果(&E)DD访问键Alt+E....删除线DD1.…下划线DD2.…粗体DD3.…斜体DD4菜单列

7、表区菜单列表区菜单列表区菜单项事件代码设计如下：“字体”菜单下的菜单项设计成一个控件数组AA1，共享以下事件过程:PrivateSubAA1_Click(IndexAsInteger)Text1.Font=AA1(Index).CaptionEndSub“字号”菜单下的菜单项设计成一个控件数组BB1，共享以下事件过程:PrivateSubBB1_Click(IndexAsInteger)Text1.FontSize=Val(BB1(Index).Caption)EndSub“颜色”菜单下的各菜单项为独立的菜单控件，

8、因此应分别在其单击事件过程中编写代码，各事件过程如下:PrivateSubCC1_Click()Text1.ForeColor=vbRedEndSubPrivateSubCC2_Click()Text1.ForeColor=vbGreenEndSubPrivateSubCC3_Click()Text1.ForeColor=vbBlueEndSub“效果”菜单