VB6函数---API"打开"对话框

杨竹青

1API调用
Declare Function GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long
Type OPENFILENAME
     lStructSize As Long
     hwndOwner As Long
     hInstance As Long
     lpstrFilter As String
     lpstrCustomFilter As String
     nMaxCustFilter As Long
     nFilterIndex As Long
     lpstrFile As String
     nMaxFile As Long
     lpstrFileTitle As String
     nMaxFileTitle As Long
     lpstrInitialDir As String
     lpstrTitle As String
     flags As Long
     nFileOffset As Integer
     nFileExtension As Integer
     lpstrDefExt As String
     lCustData As Long
     lpfnHook As Long
     lpTemplateName As String
End Type
2"打开"程序
Sub mOpen()
    Dim mOpenFileName As OPENFILENAME
    Dim mReturn As String
    mOpenFileName.lStructSize = Len(mOpenFileName)
    mOpenFileName.hwndOwner = frmMain.hWnd
    mOpenFileName.lpstrFilter = "AutoCAD DWG(*.DWG)" & Chr(0) & "*.DWG" & chr(0) "AutoCAD DXF(*.DXF)" & Chr(0) & "*.DXF"
    mOpenFileName.lpstrFile = Space(254)
    mOpenFileName.nMaxFile = 255
    mOpenFileName.lpstrFileTitle = Space(254)
    mOpenFileName.nMaxFileTitle = 255
    mOpenFileName.lpstrInitialDir = App.Path
    mOpenFileName.lpstrTitle = "打开AutoCAD文件"
    mOpenFileName.flags = 6148
    mReturn = GetOpenFileName(mOpenFileName)
    If mReturn >= 1 Then
        MsgBox mOpenFileName.lpstrFile
    Else
        MsgBox "选择了取消",vbInformation,"提示"
    End If
End Sub