最近笔者在开发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属性获取选定的文件名。

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

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

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控件的具体使用方法，希望对读者有一定帮助。