tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
[ツリー表示へ]　 [ワード検索]　 [Home]

タイトル ： Re: CommonDialog に代わる　コマンドを教えてください。
投稿日： 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


こんな感じでどうですか？
- 関連一覧ツリー （ をクリックするとツリー全体を一括表示します）

古いスレッドにレスはつけられません。