<<< 返回 access911.net 编程静态资料库索引页 如何用API实现comdlg控件(公共对话框)的功能(打开保存文件窗口)？ 作者： 摘自： 录入：cg1 时间：2002-11-21 浏览人次：2399
专题地址：http://www.access911.net/index.asp?u1=a&u2=74FAB11E 如果需要更详细的评论或说明，请点击该地址。 简述：
方法一：
| 注意，如果你是 ACCESS XP 以及以上版本，请使用 OFFICE 自带的 FileDialog。具体示例请看“罗斯文示例数据库”。以下代码是需要在 Alt + F11 -> 菜单 -> 工具 -> 引用 中引用 OFFICE OBJECT 的
Sub getFileName()
' 显示一个 Office 打开文件对话框，为当前的雇员记录
' 选择一个文件名．如果用户选择了一个文件，
' 则将它显示到图片控件中
Dim fileName As String
Dim result As Integer
With Application.FileDialog(msoFileDialogFilePicker)
.Title = "选择雇员照片"
.Filters.Add "所有文件", "*.*"
.Filters.Add "JPEGs", "*.jpg"
.Filters.Add "位图文件", "*.bmp"
.FilterIndex = 3
.AllowMultiSelect = False
.InitialFileName = Curre.....................
........... |
|
|
