Win32 API でコモン ダイアログの [ファイルを開く] ダイアログ ボックスを使用する方法

手順例

1. Visual Basic 5.0 を起動して、標準 EXE プロジェクトを新規作成します。既に Visual Basic 5.0 を起動している場合は、[ファイル] メニューの [新しいプロジェクト] をクリックし、[標準 EXE] のアイコンをダブルクリックします。デフォルトでは Form1 が作成されます。
2. Form1 に CommandButton コントロールを配置します。
3. Form1 のコード ウィンドウに以下のコードを追加します。
   

         Option Explicit
   
          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
   
          Private Sub Command1_Click()
            Dim OpenFile As OPENFILENAME
            Dim lReturn As Long
            Dim sFilter As String
            OpenFile.lStructSize = Len(OpenFile)
            OpenFile.hwndOwner = Form1.hWnd
            OpenFile.hInstance = App.hInstance
            sFilter = "Batch Files (*.bat)" & Chr(0) & "*.BAT" & Chr(0)
            OpenFile.lpstrFilter = sFilter
            OpenFile.nFilterIndex = 1
            OpenFile.lpstrFile = String(257, 0)
            OpenFile.nMaxFile = Len(OpenFile.lpstrFile) - 1
            OpenFile.lpstrFileTitle = OpenFile.lpstrFile
            OpenFile.nMaxFileTitle = OpenFile.nMaxFile
            OpenFile.lpstrInitialDir = "C:\"
            OpenFile.lpstrTitle = "Use the Comdlg API not the OCX"
            OpenFile.flags = 0
            lReturn = GetOpenFileName(OpenFile)
            If lReturn = 0 Then
               MsgBox "The User pressed the Cancel Button"
            Else
               MsgBox "The user Chose " & Trim(OpenFile.lpstrFile)
            End If
          End Sub
   
   						

4. F5 キーを押してプロジェクトを実行し、[Command1] をクリックします。ファイルを開くためのオプション設定を備えた [Use the Comdlg API not the OCX] ダイアログ ボックスが表示されます。

先頭へ戻る