字体选择对话框
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