VBレスキュー(花ちゃん)
VB2005用トップページへVBレスキュー(花ちゃん)のトップページVB6.0用のトップページ各掲示板

メニューへ戻ります。 ダイアログボックス関係のメニュー
1.[色の設定]ダイアログボックスの使用方法
2.[フォルダーの参照]ダイアログボックスの使用方法
3.ファイルを[開く]ダイアログボックスの使用方法
4.[名前を付けて保存]ダイアログボックスの使用方法
5.[フォント]ダイアログボックスの使用方法
6.[ページ設定]ダイアログボックスの使用方法
7.[印刷プレビュー]ダイアログボックスの使用方法
8.[印刷]ダイアログボックスの使用方法
9. 
10. 
11.
12.
 . 
20.その他、当サイト内に掲載のダイアログボックスに関するサンプル 


3.ファイルを[開く]ダイアログボックスの使用方法(28_Dia_03) (旧、SampleNo.078)
1.ファイルを[開く]ダイアログボックスを表示しファイル名を取得
2.初期表示フォルダーを設定してファイルを[開く]ダイアログボックスを表示
3.[ファイルの種類] ボックスに表示される選択肢を設定する
4.複数のファイルを同時に選択取得する
5.その他、オプションを設定してのファイルを[開く]ダイアログボックスを表示
6.

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

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

このページのトップへ移動します。 2.初期表示フォルダーを設定してファイルを[開く]ダイアログボックスを表示

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

このページのトップへ移動します。 3.[ファイルの種類] ボックスに表示される選択肢を設定する

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

このページのトップへ移動します。 4.複数のファイルを同時に選択取得する

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

このページのトップへ移動します。 5.その他、オプションを設定してのファイルを[開く]ダイアログボックスを表示

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

このページのトップへ移動します。 6.


このページのトップへ移動します。 検索キーワード及びサンプルコードの別名(機能名)
ダイアログボックス  Dialog Box ファイルを開くダイアログボックス




このページのトップへ移動します。