３．ファイルを[開く]ダイアログボックスの使用方法(28_Dia_03)　(旧、SampleNo.078)

１．ファイルを[開く]ダイアログボックスを表示しファイル名を取得 ２．初期表示フォルダーを設定してファイルを[開く]ダイアログボックスを表示 ３．[ファイルの種類] ボックスに表示される選択肢を設定する ４．複数のファイルを同時に選択取得する ５．その他、オプションを設定してのファイルを[開く]ダイアログボックスを表示 ６．

下記プログラムコードに関する補足・注意事項　 動作確認：Windows 8.1 (Windows 7) / VB2013 (VB2010) / Framework 4.5.1 / 対象の CPU：x86 Option　：[Compare Text] [Explicit On] [Infer On] [Strict On] Imports ：追加なし 参照設定：追加なし 使用コン：Button1 〜 Button5 トロール： このサンプル等の内容を無断で転載、掲載、配布する事はお断りします。(私の修正・改訂・削除等が及ばなくなるので) 必要ならリンクをはるようにして下さい。(引用の場合は引用元のリンクを明記して下さい)

１．ファイルを[開く]ダイアログボックスを表示しファイル名を取得

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 'ファイルを[開く]ダイアログボックスを表示しファイル名を取得     'OpenFileDialog クラスのインスタンスを作成(ツールボックスから貼り付ける場合は必要ありません)     Dim OpenFileDialog1 As New OpenFileDialog     Dim filePath As String = ""     If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then         'ファイル名を取得(規定値では複数のファイルを同時に選択できない)         filePath = OpenFileDialog1.SafeFileName     'パスを含まず         filePath = OpenFileDialog1.FileName         'パスとファイル名         MessageBox.Show(filePath & " を選択しました")     End If     OpenFileDialog1.Dispose() End Sub

２．初期表示フォルダーを設定してファイルを[開く]ダイアログボックスを表示

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click '初期表示フォルダーを設定してファイルを[開く]ダイアログボックスを表示     Dim OpenFileDialog1 As New OpenFileDialog     Dim filePath As String = ""     'InitialDirectory プロパティ ：　ダイアログボックスに表示される起動ディレクトリを取得/設定します     OpenFileDialog1.InitialDirectory = Application.StartupPath     If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then         'ファイル名を取得(規定値では複数のファイルを同時に選択できない)         filePath = OpenFileDialog1.SafeFileName     'パスを含まず         filePath = OpenFileDialog1.FileName         'パスとファイル名         MessageBox.Show(filePath & " を選択しました")     End If     OpenFileDialog1.Dispose() End Sub

３．[ファイルの種類] ボックスに表示される選択肢を設定する

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click '[ファイルの種類] ボックスに表示される選択肢を設定する     Dim OpenFileDialog1 As New OpenFileDialog     Dim filePath As String = ""     'InitialDirectory プロパティ ：　ダイアログボックスに表示される起動ディレクトリを取得/設定します     OpenFileDialog1.InitialDirectory = Application.StartupPath     '[ファイルの種類] ボックスに表示される選択肢を設定する     OpenFileDialog1.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*"     '複数のファイルの拡張子を指定する場合     OpenFileDialog1.Filter = "Image Files(*.BMP;*.JPG;*.GIF)|*.BMP;*.JPG;*.GIF|All files (*.*)|*.*"     '最初に表示するフィルター処理オプションを設定する     OpenFileDialog1.FilterIndex = 1     If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then         'ファイル名を取得(規定値では複数のファイルを同時に選択できない)         filePath = OpenFileDialog1.SafeFileName     'パスを含まず         filePath = OpenFileDialog1.FileName         'パスとファイル名         MessageBox.Show(filePath & " を選択しました")     End If     OpenFileDialog1.Dispose() End Sub

４．複数のファイルを同時に選択取得する

Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click '複数のファイルを同時に選択取得する     Dim OpenFileDialog1 As New OpenFileDialog     OpenFileDialog1.InitialDirectory = Application.StartupPath     '複数ファイルを選択可能に     OpenFileDialog1.Multiselect = True     If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then         '選択したファイルのパスを取得(複数可)         For Each fileName As String In OpenFileDialog1.FileNames             '複数選択したファイル名を取得             Debug.Print(fileName)         Next     End If     OpenFileDialog1.Dispose() End Sub

５．その他、オプションを設定してのファイルを[開く]ダイアログボックスを表示

Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click 'その他、オプションを設定してのファイルを[開く]ダイアログボックスを表示     Dim OpenFileDialog1 As New OpenFileDialog     Dim filePath As String = ""     'ファイルを[開く]ダイアログボックスのタイトルを取得または設定します。     OpenFileDialog1.Title = "ファイルを開くダイアログボックス"     'ダイアログボックスを閉じる前に、現在のディレクトリを復元する     OpenFileDialog1.RestoreDirectory = True     'ファイルを[開く]ダイアログボックスに [ヘルプ] ボタンを表示     OpenFileDialog1.ShowHelp = True     '上記の他細かい設定が色々できます、詳しくは、FileDialog メンバー を見て下さい。     If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then         filePath = OpenFileDialog1.FileName         'パスとファイル名         MessageBox.Show(filePath & " を選択しました")     End If     OpenFileDialog1.Dispose() End Sub

６．

検索キーワード及びサンプルコードの別名(機能名)

ダイアログボックス　　Dialog Box　ファイルを開くダイアログボックス