Ответить

 
'Это все в модуле. Если заменить везде Public на Private, можно и в форме
 
Const MAX_PATH=1024
 
Private Declare Function GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long
 
 
Private 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
 
 
Public Function ShowOpen(Filter As String, hwndOwner as Long, OpenDialogTitle As String) As String
 
    On Error Resume Next
 
    Dim OFN As OPENFILENAME
 
    Dim sFilter As String
 
    Dim nRes As Long
 
    sFilter = ConvertFilter(Filter)
 
    OFN.hInstance = App.hInstance
 
    OFN.flags = 4
 
    OFN.hwndOwner = hwndOwner
 
    OFN.lpstrFile = String(MAX_PATH, vbNullChar)
 
    OFN.lpstrTitle = OpenDialogTitle
 
    OFN.lpstrFilter = sFilter
 
    OFN.nMaxFile = MAX_PATH
 
    OFN.lStructSize = LenB(OFN)
 
    nRes = GetOpenFileName(OFN)
 
    If nRes Then ShowOpen = Trim(OFN.lpstrFile) Else ShowOpen = ""
 
End Function
 
 
Private Function ConvertFilter(ByVal sFilter) As String
 
    On Error Resume Next
 
    Dim sTemp As String
 
    Dim i As Integer
 
    sTemp = sFilter
 
    For i = 1 To Len(sTemp)
 
        If Mid(sTemp, i, 1) = "|" Then Mid(sTemp, i, 1) = vbNullChar
 
    Next i
 
    ConvertFilter = sTemp
 
End Function
 

Ответить

Ответить

Да зачем такие нерациональные сложности? Просто воспользуйся ...-буками и оператором OPEN ... и всё!

Ответить

Нет тута Open непоможет как я понял челу надо CommonDialog программно вызвать.

Незнаю может здесь всё это уже написано, но ...

Option Compare Database

Option Explicit

Declare Function GetOpenFileName Lib "comdlg32.dll" _

Alias "GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Boolean

Declare Function GetSaveFileName Lib "comdlg32.dll" _

Alias "GetSaveFileNameA" (pOpenfilename As OPENFILENAME) As Boolean

Type OPENFILENAME

lStructSize As Long

hwndOwner As Long

hInstance As Long

lpstrFilter As String

lpstrCustomFilter As Long

nMaxCustrFilter 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

lCustrData As Long

lpfnHook As Long

lpTemplateName As Long

End Type

Public Const OFN_ALLOWMULTISELECT = &H200

Public Const OFN_CREATEPROMPT = &H2000

Public Const OFN_EXPLORER = &H80000

Public Const OFN_FILEMUSTEXIST = &H1000

Public Const OFN_HIDEREADONLY = &H4

Public Const OFN_NOCHANGEDIR = &H8

Public Const OFN_NODEREFERENCELINKS = &H100000

Public Const OFN_NONETWORKBUTTON = &H20000

Public Const OFN_NOREADONLYRETURN = &H8000

Public Const OFN_NOVALIDATE = &H100

Public Const OFN_OVERWRITEPROMPT = &H2

Public Const OFN_PATHMUSTEXIST = &H800

Public Const OFN_READONLY = &H1

Public Const OFN_SHOWHELP = &H10

Public Function OpenFile(ByVal InitDir As String, ByVal fname As String) As String

Dim strFile As String * 512

Dim of As OPENFILENAME

Dim F As String

Dim p%

' Установка начальных значений структуры

of.hwndOwner = Application.hWndAccessApp

of.hInstance = 0

of.lpstrCustomFilter = 0

of.nMaxCustrFilter = 0

of.lpfnHook = 0

of.lpTemplateName = 0

of.lCustrData = 0

'Ниже вы можете изменить фильтры для поиска файлов

of.lpstrFilter = "MS Access Database (*.mdb)" & Chr$(0) & "*.mdb" & Chr$(0) & _

"Add-ins (*.mda)" & Chr$(0) & "*.mda" & Chr$(0) & _

"MDE-Files (*.mde)" & Chr$(0) & "*.mde" & Chr$(0) & _

"All Files (*.*)" & Chr$(0) & "*.*" & Chr$(0) & Chr$(0)

of.nFilterIndex = 3

of.lpstrFile = fname & String$(512 - Len(fname), 0)

of.nMaxFile = 511

of.lpstrFileTitle = String$(512, 0)

of.nMaxFileTitle = 511

' Ниже вы можете изменить заголовок окна

of.lpstrTitle = "Открыть модуль"

of.lpstrInitialDir = InitDir

' Можете изменить расширение файла

of.lpstrDefExt = "mde"

of.Flags = OFN_FILEMUSTEXIST + OFN_PATHMUSTEXIST '+ OFN_EXPLORER

of.lStructSize = Len(of)

If GetOpenFileName(of) Then

p% = InStr(1, of.lpstrFile, Chr$(0))

OpenFile = Left(of.lpstrFile, p% - 1)

Else

OpenFile = ""

End If

End Function

Ответить