vb.net 中对话框（commondialog）的几个用法

字体选择对话框

Dim dlg As New Windows.Forms.FontDialog
If dlg.ShowDialog() = DialogResult.OK Then
Console.WriteLine(dlg.Font.ToString())
End If

---

颜色设置对话框

Dim dlg As New Windows.Forms.ColorDialog
If dlg.ShowDialog() = DialogResult.OK Then
Console.WriteLine(dlg.Color.ToString())
End If

---

文件参照对话框

Dim dlg As New Windows.Forms.FolderBrowserDialog
If dlg.ShowDialog() = DialogResult.OK Then
Console.WriteLine(dlg.SelectedPath)
End If
dlg.Dispose()
'※ツールボックスよりコンポーネントを貼り付けても良い

---

另存为对话框

Dim dlg As New Windows.Forms.SaveFileDialog
dlg.Filter = "テキストファイル (*.txt;*.csv)|*.txt;*.csv|すべてのファイル (*.*)|*.*"
dlg.FilterIndex = 1
If dlg.ShowDialog() = DialogResult.OK Then
Console.WriteLine(dlg.FileName)
End If

---

打开文件对话框

Dim dlg As New Windows.Forms.OpenFileDialog
dlg.ReadOnlyChecked = False
dlg.Filter = "テキストファイル (*.txt;*.csv)|*.txt;*.csv|すべてのファイル (*.*)|*.*"
dlg.FilterIndex = 1
If dlg.ShowDialog() = DialogResult.OK Then
Console.WriteLine(dlg.FileName)
End If