对话框设计（新）

测绘程序设计与应用对话框设计主讲教师：吴迪对话框设计Section在VB应用程序中，用户经常使用三种类型的对话框：一是系统预定义对话框，比如前面介绍的输入对话框（InputBox）和信息提示对话框（MsgBox）；二是通用对话框；三是用户自定义对话框。要使用通用对话框控件，需要先将其添加到工具箱中，具体步骤如下：在Windows系统中，一些常用的对话框功能是非常相似的，例如：打开、另存为、颜色、字体、打印机和帮助对话框，这些对话框称为通用对话框。通用对话框并不是标准控件，而是一种ActiveX类型控件。因此，启动VB后，在工具箱中并不显示通用对话框控件（CommonDialog控件）。（1）选择“工程”菜单中的“部件”命令，打开“部件”对话框。（2）在“部件”对话框中打开“控件”选项卡，然后在控件列表框中选中“MicrosoftCommonDialogControl6.0”复选框，如下图（一）所示。（3）单击“确定”按钮，CommonDialog控件出现在工具箱中，如下图（二）所示。图（一）选中CommonDialog控件图（二）通用对话框控件“通用对话框”控件CommonDialog控件添加到窗体上后，它将自动调整本身的大小。在程序运行时，用户是看不到该对象的。为了在程序中显示各种通用对话框，需要在其他对象的事件过程中调用CommonDialog控件对象的各种方法，如下表所示。方

法标准对话框ShowOpen【测量程序常用】显示“打开”对话框ShowSave【测量程序常用】显示“另存为”对话框ShowColor显示“颜色”对话框ShowFont显示“字体”对话框ShowPrinter显示“打印”对话框ShowHelp显示“帮助”对话框CommonDialog控件的各种方法除使用不同方法显示不同类型的对话框外，我们还可以通过设置通用对话框的Action属性来控制通用对话框的类型。Action属性值与对话框类型的对应关系如下表所示。Action属性值与对话框类型的对应关系Action属性值显示的对话框类型Action属性值显示的对话框类型0无任何动作4显示“字体”对话框1显示“打开”对话框5显示“打印”对话框2显示“另存为”对话框6显示“帮助”对话框3显示“颜色”对话框

通用对话框的属性既可以在“属性”窗口中设定，也可以在“属性页”对话框中设定。在窗体上右键单击CommonDialog控件，在弹出的快捷菜单中选择“属性”命令，或在“属性”窗口中双击“自定义”，均可打开如下图所示的“属性页”对话框。“属性页”对话框“打开”和“另存为”对话框可以通称为文件对话框，其主要属性如下表所示。总体而言，通用对话框使用比较简单。因此，下面以测量程序常用的“打开”和“另存为”为例简要介绍其使用方法。属

性说

明DialogTiltle用于设置通用对话框的标题，是一个String值FileName用于设置或返回要打开或保存的文件的路径及文件名FileTitle用于设置对话框中所选择的文件名（不包括路径）Filter用于设置对话框中显示的文件类型。利用该属性可以设置多个文件类型，供用户在对话框的“文件类型”下拉列表中选择。其设置格式如下：[窗体.]对话框名.Filter=描述符1|过滤器1|描述符2|过滤器2|……例如，若让用户只能选择文本文件、位图文件或图标文件，可按如下方式设置其Filter属性：CommonDialog1.Filter="文本文件(*.TXT)|*.TXT|位图文件(*.BMP)|*.BMP|图标文件(*.ICO；*.CUR)|*.ICO;*.CUR"属

性说

明DefaultEXT设置对话框中默认的文件类型，即扩展名FilterIndex指定默认的过滤器，其值为一个整数。用Filter属性设置多个过滤器后，每个过滤器都有一个值，第一过滤器的值为1，第二个过滤器的值为2……用FilterIndex属性可以指定默认的过滤器。例如，要把第二个过滤器作为默认的过滤器，可执行：CommonDialog1.FilterIndex=2Flags在各种方法的对话框中都有Flags属性，这是一个标志，在不同对话框中具体含义并不相同。在文件对话框中，Flags属性可用来返回或设置“打开”和“另存为”对话框的标志选项，其意义见表9-8InitDir属性用来指定对话框中显示的起始目录。如果没有设置InitDir属性，则显示当前目录续表Flags属性是一个长整数值，可以使用3种形式，即符号常量、十六进制整数和十进制整数。在文件对话框中，Flags属性的值和含义如下表所示。符号常量十六进制整数十进制整数作用cdlOFNReadOnly&H1&1在对话框中显示“只读检查”复选框cdlOFNOverwritePrompt&H2&2如果用已经存在的文件名保存文件，则询问用户是否覆盖该文件cdlOFNHideReadOnly&H4&4隐藏只读复选框cdlOFNShowHelp&H10&16对话框显示一个帮助按钮cdlOFNNoValidate&H100&256允许在文件名中有非法字符文件对话框中Flags属性的取值及含义符号常量十六进制整数十进制整数作用cdlOFNAllowMultiselect&H200&512允许用户选择多个文件，所选择的文件名存放在FileName中，各文件名之间用空格隔开cdlOFNPathMustExist&H800&2048只允许输入有效的路径，若输入非法路径，则显示警告cdlOFNCreatePrompt&H2000&8192如文件不存在，询问