VB.NET 颜色对话框

2025年3月17日 | 阅读 3 分钟

颜色对话框用于显示颜色对话框，并在 Microsoft Windows 应用程序中选择颜色。它允许用户设置或更改对象的颜色，例如控件的背景色或用于绘制对象的颜色。此外，控制对话框还允许用户通过混合颜色对话框的所有其他颜色来创建新颜色。

让我们按照以下步骤在 VB.NET Windows 窗体中创建一个颜色对话框。

步骤 1：从工具箱中拖动颜色对话框并将其拖放到 Windows 窗体上，如下所示。

步骤 2：将颜色对话框添加到窗体后，我们可以通过单击颜色对话框来设置颜色的各种属性。

颜色对话框的属性

Windows 窗体中的颜色对话框具有以下属性。

性质	描述
AllowFullOpen	AllowFullOpen 属性允许用户通过在颜色对话框中设置值来设置 Windows 窗体中的自定义颜色。
颜色	Color 属性用于从颜色对话框中设置或获取用户选择的颜色。
FullOpen	FullOpen 属性用于设置一个值，该值表示在打开对话框时是否将显示自定义颜色。
AnyColor	AnyColor 属性采用一个值，该值用于在颜色对话框中显示所有可用颜色以及一组基本颜色。
ShowHelp	ShowHelp 属性允许用户通过在颜色对话框中设置一个值来显示颜色对话框中的帮助按钮。
CustomColors	它用于设置在对话框上显示的自定义颜色。
SolidColorOnly	SolidColorOnly 属性用于设置一个值，该值表示对话框是否限制用户仅选择纯色。

颜色对话框的事件

事件	描述
Disposed	当控件或组件通过调用 Dispose 方法终止时，会发生 Dispose 事件。
HelpRequest	当用户单击颜色对话框的帮助按钮时，将调用 HelpRequest 事件。

颜色对话框的方法

方法	描述
ShowDialog()	ShowDialog () 方法用于使用默认设置运行通用对话框。
Dispose()	Dispose() 方法用于释放颜色对话框中控件或组件使用的所有资源。
Equals()	Equals() 方法用于检查当前或定义的两个对象是否相同。
OnHelpRequest()	它用于调用对话框中的 HelpRequest 事件。
重置()	Reset() 方法用于将所有更改重置为其默认值。例如，将最后选择的颜色重置为黑色，并将自定义颜色重置为其默认值。
RunDialog()	它用于覆盖派生类以创建通用对话框。

让我们创建一个简单的程序来在 VB.NET Windows 窗体中显示颜色对话框。

ColorDialog.vb

Public Class ColorDialog
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
		ColorDialog1.FullOpen = True
		If ColorDialog1.ShowDialog <> Windows.Forms.DialogResult.Cancel Then
			RichTextBox1.ForeColor = ColorDialog1.Color
			RichTextBox1.BackColor = ColorDialog1.Color
		End If
	End Sub
	Private Sub ColorDialog_Load(sender As Object, e As EventArgs) Handles MyBase.Load
		Me.Text = "javatpoint.com" 'set the title for the Windows form
		Button1.Text = "Change TextBox Color"
		Button2.Text = "Change Form Color"
		Button3.Text = "Change Label Color"
	End Sub
	Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
		ColorDialog1.FullOpen = False
		If ColorDialog1.ShowDialog <> Windows.Forms.DialogResult.Cancel Then
			Me.BackColor = ColorDialog1.Color 'Change Background color of the form
		End If
	End Sub
	Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
		ColorDialog1.FullOpen = True
		If ColorDialog1.ShowDialog <> Windows.Forms.DialogResult.Cancel Then
			Label1.ForeColor = ColorDialog1.Color 'set the color of the Label
		End If
	End Sub
End Class

输出