求助！】（msoFileDialogFilePicker）变量问题

weaky_shao

我使用的是2003版本，想在资料路入窗体加个图片显示的控件，参照了罗斯文雇员信息，可是自己做的时候就出现未变量定义；Microsoft   Office   11.0   Objects   Library打勾了 请各位知道的帮我看看问题在哪啊。

Henry D. Sy

Sub getFileName()
' 显示一个 Office 打开文件对话框，为当前的雇员记录
' 选择一个文件名．如果用户选择了一个文件，
' 则将它显示到图片控件中
    Dim fileName As String
    Dim result As Integer
    Dim Fds As FileDialog
    Set Fds = Application.FileDialog(msoFileDialogFilePicker)
    With Fds
        .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

Ombre

Set Fds = Application.FileDialog(msoFileDialogFilePicker)中msoFileDialogFilePicker改成常量数字
msoFileDialogOpen = 1
msoFileDialogSaveAs = 2
msoFileDialogFilePicker = 3
msoFileDialogFolderPicker = 4

weaky_shao

谢谢版主
刚刚将上面红色字部分改入 出现新情况了 用户定义类型未定义

Ombre

什么意思?

weaky_shao

就是2楼的版主回复的帖子上面有红色的字 我按照这个改的 但是出现了  用户定义类型未定义 的情况 不知道怎么办？ 请高手帮忙改下 谢谢

Ombre

我在3楼不是回复你了么?

Henry D. Sy

需要引用office11

weaky_shao

我引用了啊 还是不行

weaky_shao

版主 定义用户类型未定义
谢谢啊