Access数据库下如何使用通用对话框的问题

由于ACCESS本身没有提供在窗体中添加一个命令按钮实现打开通用对话框的控件，所以大家必须通过编写相关的宏才能实现此功能，但是编写出的宏限制很多，比如：在选择文件类型时不能同时存在多种文件格式，必须预定义好某一种格式等等。

下面我们来介绍一种控件，可以完成打开通用对话框的功能，并且效果极佳，不敢独享，拿来与诸君共享之。

因为该控件存放于VB6中，所以具体使用方法和在VB中类似。

其他控件 Microsoft Common Dialog Control,Version 6.0

在窗体上形成对话框控件

修改控件的名称如：Dialog1

设置其属性：在对话框上单击右键 CommonDialog 对象的属性弹出属性对话框。可以看到，属性页的内容包括“打开/另存为”、“颜色”、“字体”、“打印”和“帮助”五组选项。可以根据提示在属性页中直接进行属性设置，也可通过编程来设置这些属性。

下面分别对各组选项加以说明：

（1）、“打开/另存为”：

对话框标题是“打开/另存为”窗体的标题，如打开文件时可输入“打开文件”，另存文件时可输入“保存文件”。文件名称是要打开/另存文件的默认值，一般打开/另存时此处为空。初始化路径是打开/另存文件的默认路径，一般为空。过滤器是用来在“打开/另存为”处理中，通过对该属性的设置来控制文件的类型。其设置方法为ACCESS文件|*.mdb|文本文件|*.txt|所有文件|*.*

（2）、颜色

（3）、字体

（4）、打印

（5）、帮助

有关过滤器属性的设置方法：

Dialog1.filter = “ACCESS文件|*.mdb|文本文件|*.txt|所有文件|*.*”

通过FileName属性获取选定的文件名。

常用对话框控件属性及方法表

属性的说明

Copies 要打印的份数

FromPage 打印的起始页

ToPage 打印的结束页

Hdc 选定打印机的设备上下文

方法的说明：

ShowOpen 打开

ShowSave 另存为

ShowColor 颜色

ShowFont 字体

ShowPrinter 打印

ShowHelp 调用Windows “帮助”

例：打开文件对话框的命令如下：

dim filename1 As String

Dialog1.showopen 显示打开文件对话框

Filename1= Dialog1.filename 获取所选择的文件名

例：打开保存文件对话框的命令如下：

dim filename1 As String

Dialog1.showsave 显示保存文件对话框

Filename1=Dialog1.filename 获取所选择的文件名

其它几种对话框的打开方式与上面的方法相同，另外我们还可以通过该控件控制打印机的使用。