啃啃罗斯文,却发现了XP关于使用文件对话框的新方法

没牙兔兔

呵呵
第一感觉就是这个数据库写的真的很经典,很多好的技巧应用和基础知识
啃啃大有嚼头

以前使用文件对话框 大概大家都有同感吧
要么必须另外添加控件,要么使用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-11-16 10:07:21编辑过]

eio

我的机器没有这个文件啊

guoya

access xp版本

没牙兔兔

兔兔一直用office XP
ｅｉｏ说得这个我倒还没有注意哦
谢谢啦
我把题目改一下

skylark

To 没牙兔兔:
确定不错，谢谢！
————————————————
Do Our Job Well   Try Anything Once