05.txt

VB文章集（含API、窗口、数据库、多媒体、系统、文件、等等）

Access下如何使用通用对话框
作者：王樵民 王利峰 
很多用ACCEE97开发过数据库的用户都有这种体会：要想在窗体中添加一个命令按钮实现打开通用对话框的功能真是很困难。因为ACCESS97本身并未提供这类控件，所以必须通过编写有关的宏才能实现该功能，但是编写出的宏限制很多，比如：在选择文件类型时不能同时存在多种文件格式，必须预定义好某一种格式等等。 
　　
　　因为该控件存放于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 获取所选择的文件名

　　其它几种对话框的打开方式与上面的方法相同，值得一提的是可以通过该控件控制打印机的使用，非常方便。