ファイル関連：名前を付けて保存ダイアログ（SaveFileDialog）VB2008で名前を付けて保存ダイアログを使う実行例サンプルです。ファイル関連へ名前を付けて保存ダイアログを使うには、SaveFileDialogコンポーネントを使います。 SaveFileDialogコンポーネントを使うには、ツールボックスのSaveFileDialogをダブルクリックします。 すると下図のように、コンポーネントトレイに表示されます。  ■実行画面 保存ボタンをクリックすると、ダイアログボックスが表示されます。  保存するファイルを選択した結果  保存するファイルを選択しなかった結果  ■実行コード Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim lret = DialogResult '上書き確認する SaveFileDialog1.OverwritePrompt = True 'ファイルの種類を指定 SaveFileDialog1.Filter = "テキストファイル(*.txt)|*.txt|全てのファイル(*.*)|*.*" 'ダイアログを開く lret = SaveFileDialog1.ShowDialog() If lret = Windows.Forms.DialogResult.OK Then '選択されていればファイル名を表示 Label1.Text = IO.Path.GetDirectoryName(SaveFileDialog1.FileName) Label2.Text = IO.Path.GetFileName(SaveFileDialog1.FileName) Else Label1.Text = "選択されませんでした" Label2.Text = "" End If End Sub End Class Visual Basic 2008 Express Edition実践入門 |