96.「ファイルを開く」コモンダイヤログを表示する

< 使用用途 >
OCX等使わないでこれを使いましょう

今回のサンプルソースをダウンロードする方は下記の「ダウンロード」を!
=> ダウンロード・・・ 説明文を大量に書きこんでいます


 < 説明 >
API関数のGetOpenFileName を使用します
GetOpenFileName =>コモンダイアログを表示
  <引数>
     pOpenfilename:OPENFILENAME構造体       
  @戻り値@
      OKボタンを押した時1、キャンセルボタンを押した時0


< SAMPLE >
’ここでは関数だけを掲載します(すべて掲載すると長くなるので・・・)
'-----------------------------------------------------------------------------------
'■関数名 OpenDlg
'■用途 「ファイルを開く」コモンダイヤログを表示する
'■引数 nHandle:ウインドウのハンドル、nFilter:フィルター
'■戻り値 ファイルを選択した場合そのファイルのパス名、キャンセルを押した場合""が戻る
'-----------------------------------------------------------------------------------

Public Function OpenDlg(nHandle As Long, nFilter As String) As String

  Dim OFN As OPENFILENAME
  Dim Ret As Long

  With OFN
    .flags = OFN_PATHMUSTEXIST Or _
         OFN_FILEMUSTEXIST Or _
          OFN_HIDEREADONLY
     .hInstance = App.hInstance
    .hwndOwner = nHandle
    .lpstrTitle = "ファイルを開く"
    .lpstrFilter = nFilter
    .lStructSize = Len(OFN)
    .nMaxFile = 250
    .lpstrFileTitle = String(250, Chr(0))
    .nMaxFileTitle = 250
    .lpstrFile = String(250, Chr(0))
   End With

    Ret = GetOpenFileName(OFN)

     If Ret = 0 Then
      OpenDlg = vbNullString
    Else
      OpenDlg = OFN.lpstrFile
    End If

End Function





API 技術関連のページへ戻る

ホーム PV ランキング