3.3　通用对话框的基本属性与显示通用对话框的方法

3.3.1　通用对话框的基本属性（见表3.1、表3.2）

在运行时，若Action属性被设置为1，即弹出“打开”文件对话框。“打开”文件对话框并不能真正打开一个文件，它仅仅提供一个用户界面，具体打开文件的工作还是要通过编程来完成。Action功能属性是为了与VB6.0早期版本兼容提供的，现在可使用下面介绍的打开通用对话框的方法。

3.3.2　显示通用对话框的方法

Visual Basic除了用Action属性决定打开何种类型的对话框，还提供了下面一组方法用来显示通用对话框。如表3.3所示。

3.3.3　各对话框的属性设置

每个对话框都有自己特殊的属性，可通过如下方法设置属性：

● 在对话框控件上单击鼠标右键，从弹出的快捷菜单中选择［属性］命令，如图3.6所示。在打开的［属性］对话框中设置属性，如图3.7所示。

● 在代码中进行设置。

● 在属性窗口中单击［自定义］右侧的按钮，在弹出的［属性页］对话框中设置属性。

（1）“打开”对话框的属性设置

打开文件是Windows-应用程序中的常用操作。在［打开］对话框中可以指定要打开文件所在的驱动器、文件夹及其文件名和文件类型，［打开］对话框如图3.8所示。

使用［打开］对话框的步骤如下：

① 在窗体中添加通用对话框控件，如图3.9所示。

② 在属性窗口中单击［自定义］右侧的按钮，如图3.10所示。则弹出［属性页］对话框，如图3.7所示。

图3.10 ［自定义］右侧的按钮③ 在［打开/另存为］属性页选项卡中设置相应的属性。其中各项功能如下：

● FileTitle［对话框标题］；用于设置对话框的标题，默认值为“打开”。

● FileName［文件名称］：该属性为文件名字符串，用于设置在“文件名称”文本框中显示的文件名。

● InitDir［初始化路径］：用于设置初始的文件目录，并返回用户所选择的目录。如果不设置该属性，则系统默认当前目录。

● Filter［过滤器］：用于设置显示文件的类型。格式为：描述 | 通配符，如果需要设置多项，可以用“|”隔开，如：All File(*.*)|*,*|Tex.t File(*.txt)|*.txt。

如果想要在“文件类型”列表框中显示下列三种文件类型以供用户选择：

Documents(*．DOC)扩展名为DOC的Word文件
TextFiles(*．TXT)扩展名为TXT的文本文件
AllFiles(*．*)所有文件

那么Filter属性应设为

"Documents(*．doc) |*．DOC|TextFiles(*．TXT)|* ．txt| All Files| *.*"

● Filterlndex［过滤器索引］：用于设置［打开］或［另存为］对话框中缺省过滤器的索引。用［过滤器］属性为［打开］或［另存为］对话框指定过滤器时，该属性指定缺省的过滤器。对于所定义的第一个过滤器，其索引是1。如果选定了文本文件，那么Filterlndex值等于 2，文件列表框只显示当前目录下的文本文件（*．TXT）。所以，在上面的例子中，Documents类型文件的Filterlndex为1，Text Files类型文件的Filterlndex为2，All Files类型文件的Filterlndex为3。

④ 完成对话框的属性设置后确认操作，最后使用CommonDialog控件的ShowOpen方法显示［打开］对话框：控件名ShowOpen。

（2）［另存为］对话框

［另存为］对话框用于指定文件所保存的位置、文件名及类型。如图3.11所示。

使用［另存为］对话框的操作步骤与［打开］相同，在［属性页］对话框中设置的属性也相同。不同之处是完成［属性页］对话框的属性设置后，需要使用Common.Dialog控件的ShowSave方法来显示［另存为］对话框：控件名. ShowSave。

（3）［打印］对话框

［打印］对话框可以设置打印输出的方法，如打印范围、打印份数、打印质量等打印属性。另外，对话框中还显示了当前安装的打印机信息，允许用户重新设置缺省打印机，如图3.12所示。

便用［打印］对话框的步骤为：

① 在窗体中添加通用对话框控件。

② 参照前面的方法打开［属性页］对话框，在［打印］选项卡中设置属性。如图 3.13所示。

例3.1　编制一程序，存入一图样，并能打开其他图样，及以另起的图样名另存到想存的图样文件夹内

设计步骤：

① 设计应用程序的界面，即在窗体上添加一个图片框、两个命令按钮控件和两个通用对话框控件，此时的窗体框架如图3.14所示。

② 设置对象的属性，将窗体Form1的caption设置为“打开/另存为对话框”，两个命令按钮控件分别设置为“打开”、“另存为”，此时的窗体框架如图3.15所示。

点击图3.16中的按钮，向Picture1图片框控件中放置一幅衰减振动模态图样，即如图3.17所示。

③ 单击按钮，在代码编辑窗口便出现Private Sub Command1_Click()

事件过程名，从中编写如下代码：

Private Sub Command1_Click()
'过滤另存图像2008.9.22
CommonDialog1.Filter = "图像文件(*.bmp)|*.bmp|"
CommonDialog1.ShowOpen
If CommonDialog1.FileName <> "" Then
    Picture1.Picture = LoadPicture(CommonDialog1.FileName)
End If
End Sub
Private Sub Command2_Click()
CommonDialog2.FileName = CommonDialog1.FileName
CommonDialog2.Filter = "图像文件(*.bmp)|*.bmp|"
CommonDialog2.ShowSave
If CommonDialog2.FileName <> "" Then
    SavePicture Picture1.Picture, CommonDialog2.FileName
End If
End Sub

④ 单击按钮，在窗体上便出现窗体界面，如图3.18所示。

⑤ 单击按钮，即弹出“打开”对话框，如图3.19所示。

⑥ 从“打开”对话框中选择“物理量的相互比拟表”，再单击“打开”对话框上的按钮，窗体界面上显示的是打开了图样夹中的图样——物理量的相互比拟表，如图3.20所示。

因为在振动学中，如果不考虑实际问题的物理现象，许多物理性质不同的系统则具有相同的数学模型。物理性质不同的系统的物理概念可以互相“比拟”，或彼此相似。这种相似对理解和应用振动学的数学模型很有用。

⑦ 从用户窗体界面上再单击按钮，即弹出“另存为”对话框，如图3.21所示。

如此时将图样名为物理量的相互比拟表存入，单击“另存为”对话框上的按钮，即把图样以名为物理量的相互比拟表保存到图库中。