Keskustelu: Koodit: VB6: CommonDialog WinAPI:n kautta

Private Sub Form_Click()

    Dim OpenFile As OPENFILENAME

    'pakollinen: tietueen koko
    OpenFile.lStructSize = Len(OpenFile)
    'mille ikkunalle kuuluu
    OpenFile.hwndOwner = Form1.hWnd
    'valittavat tiedostotarkenteet
    OpenFile.lpstrFilter = "Tekstitiedostot (*.txt)" & Chr(0) & "*.TXT" & Chr(0) & _
    "Kaikki tiedostot (*.*)" & Chr(0) & "*.*" & Chr(0)
    'pakollinen: tiedostonimen alustus
    OpenFile.lpstrFile = String(257, 0)
    'pakollinen: tiedostonimen koko
    OpenFile.nMaxFile = Len(OpenFile.lpstrFile) - 1
    'ikkunan otsikko
    OpenFile.lpstrTitle = "Valitse tiedosto"

    'ikkunan näyttäminen
    lReturn = GetOpenFileName(OpenFile)

    'valittu tiedostonimi löytyy OpenFile.lpstrFile -muuttujasta
    MsgBox "Valitsit " & Trim(OpenFile.lpstrFile)

End Sub

Public Declare Function GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long

Public 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