Customized Color Dialog
Imports System Imports System.Data Imports System.Windows.Forms Imports System.Drawing Public Class MainClass Shared Sub Main() Dim dlgColor As System.Windows.Forms.ColorDialog dlgColor = New System.Windows.Forms.ColorDialog ' Initialize the color dialog's custom colors. Dim colors() As Integer = { _ &HFF, &H11FF, &H22FF, &H33FF, _ &H44FF, &H55FF, &H66FF, &H77FF, _ &H88FF, &H99FF, &HAAFF, &HBBFF, _ &HCCFF, &HDDFF, &HEEFF, &HFFFF} dlgColor.CustomColors = colors dlgColor.Color = Color.Red If dlgColor.ShowDialog() = DialogResult.OK Then Console.WriteLine(dlgColor.Color) End If End Sub End Class
1. | Color dialog in VB | ||
2. | Color chooser dialog |