tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板) [ツリー表示へ]   [Home]
一括表示(VB.NET VB2005)
タイトル CommonDialog に代わる コマンドを教えてください。
記事No8059
投稿日: 2008/09/02(Tue) 14:39
投稿者monmon
vb6では、 CommonDialog1.Filter = "*.xls,*.csv,*.txt|*.xls;*.csv;*.txt" のように
使用できましたが、vb2008 では どんなコマンドを使えますか。
よろしくお願いします。

[ツリー表示へ]
タイトルRe: CommonDialog に代わる コマンドを教えてください。
記事No8061
投稿日: 2008/09/02(Tue) 15:31
投稿者もょもと
    ''' <summary>
    ''' ファイルパス指定ダイアログ
    ''' </summary>
    ''' <remarks></remarks>
    Private Sub OpenFileDialog()
        '***********************************
        '変数・定数の宣言
        '***********************************
        'OpenFileDialogのインスタンスの生成
        Dim OpenFileDialog As New OpenFileDialog()

        '***********************************
        '処理開始
        '***********************************
        'ダイアログボックスの設定
        OpenFileDialog.Title = "読み込み元ファイルパス"                                 'ダイアログのタイトルの設定
        OpenFileDialog.Filter = "テキスト ファイル|*.txt;*.log|すべてのファイル|*.*"    'ファイルのフィルタの設定
        OpenFileDialog.FilterIndex = 2                                                  'ファイルの種類の初期設定を2番目に設定
        OpenFileDialog.RestoreDirectory = True                                          'ダイアログボックスを閉じる前に現在のディレクトリを復元する

        'ダイアログを表示し、戻り値が[OK]の場合、選択したファイル名をテキストボックスに表示
        If OpenFileDialog.ShowDialog() = Windows.Forms.DialogResult.OK Then
            Me.TextBox1.Text = OpenFileDialog.FileName
        End If

        'インスタンスの破棄
        OpenFileDialog.Dispose()

    End Sub


こんな感じでどうですか?

[ツリー表示へ]
タイトルRe^2: CommonDialog に代わる コマンドを教えてください。
記事No8062
投稿日: 2008/09/02(Tue) 16:56
投稿者monmon
もょもと さん
 早速のご返事ありがとうございました。
 直ちに取り組んでみます。

[ツリー表示へ]