Dialog EAFunctions

使用例1

タイトル・初期表示フォルタ・ファイルフィルタを設定してダイアログを開く場合は、下記のように関数を呼び出してください。

                                    
Sub Main()
    Dim ea_root As String
    Dim ea_path() As String
    Dim ea_fcnt As Integer
    ea_root = "c:¥"
    ea_fcnt = funcOpenFileDlgMulti(ea_root, ea_path)
    MsgBox "選択件数:" & ea_fcnt & vbCrLf & "選択パス:" & vbCrLf & EA_ArrayToTxt(ea_path, vbCrLf)
End Sub

Function funcOpenFileDlgMulti(ByVal ea_root As String, ByRef ea_path() As String) As Integer
    Dim res As Integer
    Dim filter(1, 1) As String
    funcOpenFileDlgMulti1 = -1
    'ファイル選択ダイアログのフィルタ設定
    filter(0, 0) = "エクセルファイル"
    filter(0, 1) = "*.xlsx;*.xlsm"
    filter(1, 0) = "すべてのファイル"
    filter(1, 1) = "*.*"
    'ファイル選択ダイアログの表示(複数選択)
    res = EA_MultiFileOpenDlg("設定ファイルを開く", filter, 1, ea_root, ea_path)
    funcOpenFileDlgMulti1 = res
End Function

使用例2

デフォルトの状態でダイアログを開く場合は、下記のように関数を呼び出してください。

                                    
Sub Main()
    Dim ea_path() As String
    Dim ea_fcnt As Integer
    ea_fcnt = funcOpenFileDlgMulti(ea_path)
    MsgBox "選択件数:" & ea_fcnt & vbCrLf & "選択パス:" & vbCrLf & EA_ArrayToTxt(ea_path, vbCrLf)
End Sub

Function funcOpenFileDlgMulti(ByRef ea_path() As String) As Integer
    Dim res As Integer
    Dim filter() As String
    funcOpenFileDlgMulti = -1
    'ファイル選択ダイアログの表示(複数選択)
    res = EA_MultiFileOpenDlg("", filter, 1, "", ea_path)
    funcOpenFileDlgMulti = res
End Function