''' <summary> ''' ファイルパス指定ダイアログ ''' </summary> ''' <remarks></remarks> Private Sub OpenFileDialog() '*********************************** '変数・定数の宣言 '*********************************** 'OpenFileDialogのインスタンスの生成 Dim OpenFileDialog As New OpenFileDialog()
'ダイアログを表示し、戻り値が[OK]の場合、選択したファイル名をテキストボックスに表示 If OpenFileDialog.ShowDialog() = Windows.Forms.DialogResult.OK Then Me.TextBox1.Text = OpenFileDialog.FileName End If