ファイル関連：ファイルを開くダイアログの使用例（OpenFileDialog）VB2008でファイルを開くダイアログ、OpenFileDialogの使用例サンプルです。ファイル関連へ■実行画面 表示されたダイアログでファイルを選択している画面  ファイルを選択するとパス付きのファイル名がテキストボックスに表示されます。  ■実行コード Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim ofd As New OpenFileDialog With ofd 'タイトル .Title = "開くファイルを選択してください" '初期のファイル名 .FileName = "" 'フィルターの何番目を既定値にするか .FilterIndex = 1 'フィルター：ファイルの種類 .Filter = "画像ﾌｧｲﾙ名(*.BMP;*.JPG;*.PNG)|*.BMP;*.JPG;*.PNG" '初期のフォルダー .InitialDirectory = "C:\Program Files\Microsoft Visual Studio 9.0\" End With '「ファイルを開く」ダイアログを表示。 If ofd.ShowDialog() = DialogResult.OK Then '選択されたファイル名を表示 TextBox1.Text = ofd.FileName End If ofd.Dispose() End Sub End Class Visual Basic 2008 Express Edition実践入門 |