如何用代码调用Windows对话框？？？？？？

Access爱好者　发表于：2009-05-30 22:14:36 　

如我在窗体中做一个命令按钮，按下此按钮就自动弹出“打开”、“另存为”这样的对话框

请问谁能告诉我这个代码该怎么写，小弟在这先谢了。。。。。。。

ACMAIN.CHM 发表于：2009-05-30 22:39:51

This example displays the Open dialog box and allows a user to select multiple files to open.

Dim dlgOpen As FileDialog

Set dlgOpen = Application.FileDialog( _
    FileDialogType:=msoFileDialogOpen)
With dlgOpen
    .AllowMultiSelect = True
    .Show
End With

**************
* 一切皆有可能 *
**************

ACMAIN - Access论坛回贴准则（个人）

QQ群 48866293 / 12035577 / 7440532 / 13666209

Top

82077802 发表于：2009-05-31 07:38:07

其他控件 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 选定打印机的设备上下文

Top

总记录：2篇页次：1/1 9 1 :

Access交流中心

如何用代码调用Windows对话框？？？？？？