Access爱好者--
所属分类: 经验分享 作者: 无牙兔兔 更新日期:2003-11-17 8:47:04 阅读次数:375

officeXP下使用文件对话框的另外一种方法


以前使用文件对话框 大概大家都有同感吧
要么必须另外添加控件,要么使用API函数
其实还有一种方法,不知道老不老,不过兔兔是第一次发现

大家可以去看一下罗斯文数据库中的[雇员]窗体
其中的"添加/删除"按钮点击就出现 文件对话框
我注意看了一下窗体设计,没有对话框 控件哦
而其打开的函数是如下,也没有用到api
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 = CurrentProject.path
result = .Show
If (result <> 0) Then
fileName = Trim(.SelectedItems.Item(1))
Me![照片路径].Visible = True
Me![照片路径].SetFocus
Me![照片路径].Text = fileName
Me![姓氏].SetFocus
Me![照片路径].Visible = False
错误信息.Visible = False
End If
End With
End Sub

后来比较了一下
原来是用的这个控件,嘻嘻,这个只要安装了office,可是都有的哦
现在可以不用在装其他第三方控件啦哦
Library Office
C:\Program Files\Common Files\Microsoft Shared\office10\mso.dll
Microsoft Office 10.0 Object Library


FileDialog 属性
请参阅 应用于 示例 特性
返回一个 FileDialog 对象,代表文件对话框的一个实例。

expression.FileDialog(dialogType)

expression 必需。返回“Applies To”列表中的一个对象的表达式。

dialogType 必需,MsoFileDialogType。文件对话框的类型。


--------------------------------------------------------------------------------
相关文章

重新定位链接表二步走 2003-10-17 19:00:07
为何窗体的键盘事件不响应? 2003-10-17 18:56:56


系统优化
控件使用
数据库设计
数据库连接
系统安全
OLE自动化
常见问题
实用代码
属性详解
网络相关
实用API
经验分享
精选教程
字符处理
ADP相关



文章搜索



制作维护:李寻欢     Mail:[email protected]

关于本站 -- 网站服务 -- 版权条款 -- 联系方法 -- 网站帮助
Access爱好者版权所有 Copyright 2003-2005 All Rights Reserved 未经许可不得盗链