如何在Access下使用通用对话框

很多用ACCEE97开发过数据库的用户都有这种体会：要想在窗体中添加一个命令按钮实现打开通用对话框的功能真是很困难。因为ACCESS97本身并未提供这类控件，所以必须通过编写有关的宏才能实现该功能，但是编写出的宏限制很多，比如：在选择文件类型时不能同时存在多种文件格式，必须预定义好某一种格式等等。

最近笔者在开发INTRANET信息采集系统时偶得一控件，恰恰能完成打开通用对话框的功能，并且效果极佳，不敢独享，拿来与诸君共享之。

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

其他控件 Microsoft Common Dialog Control,Version 6.0

在窗体上形成对话框控件

修改控件的名称如：Dialog1

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

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

A、“打开/另存为”：

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

B、颜色

C、字体

D、打印

E、帮助

过滤器属性的设置方法：

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 获取所选择的文件名

其它几种对话框的打开方式与上面的方法相同，值得一提的是可以通过该控件控制打印机的使用，非常方便。以上就是Microsoft Common Dialog Control,Version 6.0控件的具体使用方法，希望对读者有一定帮助。