以前使用文件对话框 大概大家都有同感吧 要么必须另外添加控件,要么使用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。文件对话框的类型。
|