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

你可能感兴趣的:(VB.NET)