以前使用文件對話框 大概大家都有同感吧
要麼必須另外添加控件,要麼使用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。文件對話框的類型。
