第10章菜单和对话框

1、 全国计算机等级考试二级VB培训安医大计算机系安医大计算机系Visual Basic语言程序设计语言程序设计210.1 菜单程序设计10.1.1 Visual Basic中的菜单菜单可分为两种基本类型，即下拉式菜单和弹出式菜单。1.打开菜单编辑器（1）执行“工具”菜单中的“菜单编辑器”命令。（2）使用热键CtrlE。（3）单击工具栏中的“菜单编辑器”按钮。（4）在要建立菜单的窗体上单击鼠标右键，将弹出一个菜单，然后单击“菜单编辑器”命令。3菜单编辑器窗口分为3个部分，即数据区、编辑区和菜单项显示区。 菜单编辑器窗口编辑区菜单项显示区数据区42. 数据区（1）标题：Caption属性,&

2、+字母，设置热键，减号设置分隔线。（2）名称：Name属性。（3）索引：用来为用户建立的控件数组设立下标。（4）快捷键（5）帮助上下文：是一个文本框，可在该框中键入数值，这个值用来在帮助文件（用HelpFile属性设置）中查找相应的帮助主题。（6）协调位置：是一个列表框，用来确定菜单或菜单项是否出现或在什么位置出现。单击右端的箭头，将下拉显示一个列表，该列表有4个选项，作用如下： 0None 菜单项不显示 2Middle 菜单项居中显示1Left 菜单项靠左显示 3Right 菜单项靠右显示（7）复选：是否加上记号（ “”），指明当前是否处于活动状态。（8）有效：Enabled（9）可见：Vi

3、sable（10）显示窗口列表：当该选项被设置为“On”（框内有“”）时，将显示当前打开的一系列子窗口。用于多文档应用程序。 53.编辑区 编辑区共有7个按钮，用来对输入的菜单项进行简单的编辑。（1）左、右箭头，上、下箭头，下一个，插入，删除。4.菜单项显示区（1）条形光标所在的菜单项是“当前菜单项”。（2）内缩符号（）表明菜单项的层次。一个内缩符号（4个点）表示一层，两个内缩符号（8个点）表示两层，最多为20个点，即5个内缩符号，它后面的菜单项为第六层。如果一个菜单项前面没有内缩符号，则该菜单为菜单名，即菜单的第一层。（3）只有菜单名没有菜单项的菜单称为“顶层菜单”（top-level me

4、nu），一般后面加上一个叹号（！）。（4）除分隔线外，所有的菜单项都可以接收Click事件。65.弹出式菜单一般建立为右键快捷菜单。 （1）建立先用菜单编辑器建立菜单，把菜单名（主菜单项）的Visible属性设成False。（2）调用格式：对象.PopupMenu 菜单名，Flags，X，Y，BoldCommand说明：Flags为0时，X、Y为弹出式菜单左上角的坐标； Flags为4时，X、Y为弹出式菜单顶边中间的坐标； Flags为8时，X、Y为弹出式菜单右上角的坐标。7 MsgBox和InputBox函数可以建立简单的对话框。Visual Basic6.0提供了通用对话框控件，用它可以定

5、义较为复杂的对话框。通用对话框是一种ActiveX控件，在一般情况下，启动Visual Basic后，在工具箱中没有通用对话框控件。（1）实行“工程”菜单中的“部件”命令，打开“部件”对话框。（2）在对话框中选择“控件”选项卡，然后在控件列表框中选择“Microsoft Common Dialog Control6.0”。（3）单击“确定”按钮，通用对话框即被加到工具箱中。通用对话框的默认名称(Name属性)为CommonDialogx（x为1，2，3）。可按如下步骤操作把通用对话框控件加到工具箱中：10.210.2 对话框设计对话框设计8 通用对话框控件提供了几种不同类型的对话框，对话框的类

6、型可以通过Action属性设置，也可以用相应的方法设置。下表列出了各类对话框所需要的Action属性值和方法。 所显示的对话框方法Action属性值显示“打开”对话框ShowOpen1显示“另存为”对话框ShowSave2显示“颜色”对话框ShowColor3显示“字体”对话框ShowFont4显示“打印”或“打印选项”对话框ShowPrinter5调用 Windows 帮助引擎ShowHelp69Action属性只能在程序中赋值，而不能在属性窗口进行设置。通用对话框的其他共同属性有：（1）CancelError 属性在通用对话框内有一个“确定”按钮和一个“取消”按钮，前者表示确认，后者表示放

7、弃。（2）DialogTitle 属性设置对话框标题栏所显示的字符串。（3）Flags 属性Flags属性修改通用对话框的每个具体对话框的默认设置。通用对话框的属性除了在属性窗口和程序代码中设置外，还可以在其“属性页”对话框中设置。右键单击窗体上通用对话框控件，从弹出的快捷菜单中选择“属性”命令即可打开“属性页”对话框。10 使用ShowOpen方法或ShowSave方法显示的“打开”文件对话框或“另存为”文件对话框，尽管作用不一样，但其外观及其属性基本一致，与熟悉的Word界面的“打开”文件对话框或“另存为”文件对话框的外观和作用类似。1. 文件对话框下面将介绍如何建立Visual Basi

8、c提供的几种通用对话框，即文件对话框、颜色对话框、字体对话框和打印对话框。11文件对话框的主要属性有：（1）DefaultExt 属性为对话框设置缺省的文件扩展名，如 .txt 或 .doc。（2）FileName 属性设置所选文件的路径和文件名。（3）FileTitle 属性设置要打开或保存文件的名称（没有路径）。（4）Filter 属性（公共对话框）设置在对话框的类型列表框中所显示的过滤器（即限定的文件类型）。其语法格式为： object.Filter = description1 |filter1 |description2 |filter2. （5）FilterIndex 属性设置默认

9、的过滤器，第一个过滤器的索引号是1.（6）InitDir属性该属性用来指定文件对话框中的初始目录，如果该属性没有指定，则使用当前目录。 12 通过使用通用对话框的 ShowColor 方法可显示“颜色”对话框。“颜色”对话框用以从调色板选择颜色，或是生成和选择自定义颜色。使用“颜色”对话框前先设置通用对话框控件中与颜色对话相关的属性，然后使用 ShowColor 方法显示对话框，使用 Color 属性检索所选的颜色。Color属性用来设置或返回选定的颜色。其语法格式为：object.Color = number2. 颜色对话框13 使用通用对话框的ShowFont方法可显示“字体”对话框。“字

10、体”对话框用来为文字指定字体、大小、颜色和样式。如要使用“字体”对话框,先设置 通用对话框中与字体对话相关的属性，然后使用ShowFont方法显示对话框。下表是与字体有关的属性。3. 字体对话框属性作 用Color选定的颜色。如要使用这个属性，必须先将选定的颜色。如要使用这个属性，必须先将 Flags 属性设置为属性设置为 vbCFEffects。FontBold是否选定了粗体。是否选定了粗体。FontItalic是否选定了斜体。是否选定了斜体。FontStrikethru是否选定删除线。如要使用这个属性，必须先将是否选定删除线。如要使用这个属性，必须先将 Flags 属性设置为属性设置为 v

11、bCFEffects。FontUnderline是否选定下划线。如要使用这个属性，必须先将是否选定下划线。如要使用这个属性，必须先将 Flags 属性设置为属性设置为 vbCFEffects。FontName选定字体的名称。选定字体的名称。FontSize选定字体的大小。选定字体的大小。Max、Min指定字体大小范围，如要使用这个属性，必须先将指定字体大小范围，如要使用这个属性，必须先将 Flags 属性设置为属性设置为vbCFLimitSize。14 通过使用通用对话框的ShowPrinter方法可显示“打印”对话框。“打印”对话框可用以指定打印输出方式，被打印页的范围，打印质量，打印的份数

12、等等。这个对话框还包含当前安装的打印机的信息，并允许配置或重新安装缺省打印机。这个对话框并不给打印机传送数据，只是指定希望打印数据的情况。如果PrinterDefault属性为 True，可以使用Printer对象按选定的格式打印数据。4. 打印对话框属性属性作作 用用Copies打印的份数打印的份数FromPage开始打印页开始打印页ToPage结束打印页结束打印页hDC分配给打印机的句柄，用于识别对象的设备环境，用于分配给打印机的句柄，用于识别对象的设备环境，用于API调用调用Max，Min 设置打印范围允许的最大和最小值设置打印范围允许的最大和最小值PrinterDefault确定在确定在“打印打印”对话框中的选择是否用于改变系统缺省的打印机设对话框中的选择是否用于改变系统缺省的打印机设置置15 通用对话框的ShowHelp方法可运行Windows的帮助引擎 (WINHELP.EXE)，并显示由HelpFile属性设定的一个帮助文件。 通过HelpCommand属性的设置，可以告诉该帮助引擎想要哪种类型的联机帮助，比如是上下文相关，或是特定关键字的帮助，等等。5. 帮助对话框属性属性作作 用用HelpCommand 返回或设置需要的联机帮助的类型返回或设置需要的联机帮助的类型HelpFile 确定确定 Microsoft Windows