怎么在64位的cad2014里实现common dialog的功能

ahopera

cad2014里不能引用原来vb6.0的common dialog的控件，我在网上，也查了用api的方法调用comdlg32.dll的方法，但是都不起作用，请各位大神帮忙看一下怎么解决！

1. Public Declare PtrSafe Function GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" (pOPENFILENAME As OPENFILENAME) As Long
   
2. Public Declare PtrSafe Function GetSaveFileName Lib "comdlg32.dll" Alias "GetSaveFileNameA" (pOPENFILENAME As OPENFILENAME) As Long
   
3. 
   
4. 
   
5. Type OPENFILENAME
   
6.     lStructSize As Long
   
7.     hwndOwner As Long
   
8.     hInstance As Long
   
9.     lpstrFilter As String
   
10.     lpstrCustomFilter As String
    
11.     nMaxCustFilter As Long
    
12.     nFilterIndex As Long
    
13.     lpstrFile As String
    
14.     nMaxFile As Long
    
15.     lpstrFileTitle As String
    
16.     nMaxFileTitle As Long
    
17.     lpstrInitialDir As String
    
18.     lpstrTitle As String
    
19.     flags As Long
    
20.     nFileOffset As Integer
    
21.     nFileExtension As Integer
    
22.     lpstrDefExt As String
    
23.     lCustData As Long
    
24.     lpfnHook As Long
    
25.     lpTemplateName As String
    
26. End Type
    
27. Public Const OFN_OVERWRITEPROMPT = &H2
    
28. Public Const OFN_HIDEREADONLY = &H4
    
29. Public Const OFN_PATHMUSTEXIST = &H800
    
30. Public Const OFN_FILEMUSTEXIST = &H1000
    
31. 
    
32. Public Function GetDialog(ByVal sMethod As String, ByVal sTitle As String, ByVal FileType As String, ByVal sFileName As String) As String
    
33. 'Public Function GetDialog(ByVal sMethod As String, ByVal sTitle As String, ByVal sFileName As String) As String
    
34.     Err.Clear
    
35.     On Error GoTo myError
    
36.     Dim rtn As Long, Pos As Integer
    
37.     Dim file As OPENFILENAME
    
38.     'file.lStructSize = Len(file)
    
39.     'file.hInstance = ThisDrawing.Application.HWND32
    
40.     file.hInstance = ThisDrawing.HWND32
    
41.     file.lpstrFile = sFileName & VBA.String$(255 - VBA.Len(sFileName), 0)
    
42.     file.nMaxFile = 255
    
43.     file.lpstrFileTitle = VBA.String$(255, 0)
    
44.     file.nMaxFileTitle = 255
    
45.     file.lpstrInitialDir = ""
    
46.     'file.lpstrFilter = "Excel文件" & vbNullChar & "*.xls"  '这个为xls文件
    
47.     file.lpstrFilter = FileType & vbNullChar & FileType  '这个为xls文件"
    
48.     file.lpstrTitle = sTitle
    
49.     file.lStructSize = Len(file)
    
50.     If VBA.UCase(sMethod) = "OPEN" Then
    
51.         file.flags = OFN_HIDEREADONLY + OFN_PATHMUSTEXIST + OFN_FILEMUSTEXIST
    
52.         rtn = GetOpenFileName(file)
    
53.     Else
    
54.         file.lpstrDefExt = "exe"
    
55.         file.flags = OFN_HIDEREADONLY + OFN_PATHMUSTEXIST + OFN_OVERWRITEPROMPT
    
56.         rtn = GetSaveFileName(file)
    
57.     End If
    
58.     If rtn > 0 Then
    
59.         Pos = InStr(file.lpstrFile, VBA.Chr$(0))
    
60.         If Pos > 0 Then
    
61.             GetDialog = VBA.Left$(file.lpstrFile, Pos - 1)
    
62.         End If
    
63.     End If
    
64.     Exit Function
    
65. myError:
    
66.     'Err.Raise
    
67.     GetDialog = "FileName Error!"
    
68. End Function

Public Declare PtrSafe Function GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" (pOPENFILENAME As OPENFILENAME) As Long<br /> Public Declare PtrSafe Function GetSaveFileName Lib "comdlg32.dll" Alias "GetSaveFileNameA" (pOPENFILENAME As OPENFILENAME) As Long<br /> <br /> <br /> Type OPENFILENAME<br />     lStructSize As Long<br />     hwndOwner As Long<br />     hInstance As Long<br />     lpstrFilter As String<br />     lpstrCustomFilter As String<br />     nMaxCustFilter As Long<br />     nFilterIndex As Long<br />     lpstrFile As String<br />     nMaxFile As Long<br />     lpstrFileTitle As String<br />     nMaxFileTitle As Long<br />     lpstrInitialDir As String<br />     lpstrTitle As String<br />     flags As Long<br />     nFileOffset As Integer<br />     nFileExtension As Integer<br />     lpstrDefExt As String<br />     lCustData As Long<br />     lpfnHook As Long<br />     lpTemplateName As String<br /> End Type<br /> Public Const OFN_OVERWRITEPROMPT = &H2<br /> Public Const OFN_HIDEREADONLY = &H4<br /> Public Const OFN_PATHMUSTEXIST = &H800<br /> Public Const OFN_FILEMUSTEXIST = &H1000<br /> <br /> Public Function GetDialog(ByVal sMethod As String, ByVal sTitle As String, ByVal FileType As String, ByVal sFileName As String) As String<br /> 'Public Function GetDialog(ByVal sMethod As String, ByVal sTitle As String, ByVal sFileName As String) As String<br />     Err.Clear<br />     On Error GoTo myError<br />     Dim rtn As Long, Pos As Integer<br />     Dim file As OPENFILENAME<br />     'file.lStructSize = Len(file)<br />     'file.hInstance = ThisDrawing.Application.HWND32<br />     file.hInstance = ThisDrawing.HWND32<br />     file.lpstrFile = sFileName & VBA.String$(255 - VBA.Len(sFileName), 0)<br />     file.nMaxFile = 255<br />     file.lpstrFileTitle = VBA.String$(255, 0)<br />     file.nMaxFileTitle = 255<br />     file.lpstrInitialDir = ""<br />     'file.lpstrFilter = "Excel文件" & vbNullChar & "*.xls"  '这个为xls文件<br />     file.lpstrFilter = FileType & vbNullChar & FileType  '这个为xls文件"<br />     file.lpstrTitle = sTitle<br />     file.lStructSize = Len(file)<br />     If VBA.UCase(sMethod) = "OPEN" Then<br />         file.flags = OFN_HIDEREADONLY + OFN_PATHMUSTEXIST + OFN_FILEMUSTEXIST<br />         rtn = GetOpenFileName(file)<br />     Else<br />         file.lpstrDefExt = "exe"<br />         file.flags = OFN_HIDEREADONLY + OFN_PATHMUSTEXIST + OFN_OVERWRITEPROMPT<br />         rtn = GetSaveFileName(file)<br />     End If<br />     If rtn > 0 Then<br />         Pos = InStr(file.lpstrFile, VBA.Chr$(0))<br />         If Pos > 0 Then<br />             GetDialog = VBA.Left$(file.lpstrFile, Pos - 1)<br />         End If<br />     End If<br />     Exit Function<br /> myError:<br />     'Err.Raise<br />     GetDialog = "FileName Error!"<br /> End Function