马克西密利安.吉那斯:为什么总是说msoFileDialogFilePicker未定义？

来源：百度文库编辑：高校问答时间：2024/04/26 00:52:05

Sub getFileName2()
' 显示一个 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
错误信息2.Visible = False
End If
End With
End Sub

为什么电脑总是说“非法操作”？为什么外教总是说rubish? 为什么外教总是说rubish? 为什么总是说“男左女右”呢？？为什么总是说msoFileDialogFilePicker未定义？为什么人们总是欢喜说别人傻?? 为什么人们总是说小心笑掉大牙？为什么古代总是说秋后处决啊? 为什么总是说我喜欢他为什么女孩子总是说些言不由衷的话？