如何獲取ColorDialog中使用的基本顏色的值？

Question

我可以使用myColorDialog.CustomColors獲得ColorDialog（vb.net）中使用的自定義顏色，它將返回一個顏色數組作爲整數值。

是否有可能以類似的方式獲得48基本顏色？

Answer 1

它們可與結構的System.Drawing.Color的靜態屬性

例子：

Color.AliceBlue 
Color.AntiqueWhite 
Color.Aqua 

等

編輯：對不起，還有比在對話中更這裏，所以它可能不是你想要的。

Answer 2

幸運的是我剛做了一個自定義顏色對話框。 看看你是否喜歡它..

表單代碼

Imports System.Drawing 
    Public Class Form1 
    Dim lbl() As Windows.Forms.Label 
    Public t_Color As Color 
     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 

    Dim colorsArray As System.Array = [Enum].GetValues(GetType(KnownColor)) 
    Dim colorNames As System.Array = [Enum].GetNames(GetType(KnownColor)) 
    Dim clr As Color 
    clr = Color.FromKnownColor(colorsArray(30)) 
    'MsgBox(colorsArray.Length) 
    Dim indx() As Integer = {0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13} 
    Dim Xindex, Yindex As Integer 
    Dim tmp 
    ReDim lbl(colorsArray.Length) 
    Me.Size = New Size(505, 312) 
    For i = 0 To colorsArray.Length - 1 
     tmp = i Mod 14 
     Xindex = indx(tmp) 
     Yindex = Int(i/14) 

     lbl(i) = New Windows.Forms.Label 
     lbl(i).AutoSize = False 
     lbl(i).Size = New Size(30, 15) 
     lbl(i).BackColor = Color.FromKnownColor(colorsArray(i)) 
     lbl(i).Tag = colorNames(i).ToString 
     lbl(i).Location = New Point((Xindex * 35) + 5, (Yindex * 20) + 40) 
     lbl(i).BorderStyle = Windows.Forms.BorderStyle.FixedSingle 
     'lbl(i) 
     AddHandler lbl(i).MouseMove, AddressOf Label1_MouseMove 
     AddHandler lbl(i).MouseHover, AddressOf Label1_MouseHover 
     AddHandler lbl(i).Click, AddressOf Label1_Click 
     Me.Controls.Add(lbl(i)) 
    Next 
    lbl(colorsArray.Length) = New Windows.Forms.Label 
    lbl(colorsArray.Length).Location = New Point(lbl(colorsArray.Length - 1).Location.X + 5, lbl(colorsArray.Length - 1).Location.Y) 
    lbl(colorsArray.Length).AutoSize = True 
    lbl(colorsArray.Length).Font = Me.Font 
    Me.Size = New Size(502, 328) 
    Me.Show() 

End Sub 

Private Sub Label1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Label1.Click 
    Me.DialogResult = Windows.Forms.DialogResult.OK 
    sender.backcolor() 
    Me.Close() 
End Sub 

Private Sub Label1_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles Label1.MouseHover 
    'Label2.Text = sender.backcolor.toknowncolor.ToString 

End Sub 


Private Sub Label1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label1.MouseMove 
    Label2.Text = sender.backcolor.toknowncolor.ToString 
    t_Color = sender.backcolor 
End Sub 

Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click 

End Sub 
    End Class 

Forrm設計

 $ 
    <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _ 
    Partial Class Form1 
    Inherits System.Windows.Forms.Form 

    'Form overrides dispose to clean up the component list. 
    <System.Diagnostics.DebuggerNonUserCode()> _ 
    Protected Overrides Sub Dispose(ByVal disposing As Boolean) 
    Try 
     If disposing AndAlso components IsNot Nothing Then 
      components.Dispose() 
     End If 
    Finally 
     MyBase.Dispose(disposing) 
    End Try 
End Sub 

'Required by the Windows Form Designer 
Private components As System.ComponentModel.IContainer 

'NOTE: The following procedure is required by the Windows Form Designer 
'It can be modified using the Windows Form Designer. 
'Do not modify it using the code editor. 
<System.Diagnostics.DebuggerStepThrough()> _ 
Private Sub InitializeComponent() 
    Me.components = New System.ComponentModel.Container() 
    Me.Label1 = New System.Windows.Forms.Label() 
    Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components) 
    Me.Label2 = New System.Windows.Forms.Label() 
    Me.SuspendLayout() 
    ' 
    'Label1 
    ' 
    Me.Label1.BackColor = System.Drawing.Color.Black 
    Me.Label1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle 
    Me.Label1.Location = New System.Drawing.Point(18, 11) 
    Me.Label1.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) 
    Me.Label1.Name = "Label1" 
    Me.Label1.Size = New System.Drawing.Size(60, 0) 
    Me.Label1.TabIndex = 0 
    Me.Label1.Text = "Label1" 
    ' 
    'Label2 
    ' 
    Me.Label2.AutoSize = True 
    Me.Label2.BackColor = System.Drawing.Color.Transparent 
    Me.Label2.Location = New System.Drawing.Point(164, 9) 
    Me.Label2.Name = "Label2" 
    Me.Label2.Size = New System.Drawing.Size(55, 16) 
    Me.Label2.TabIndex = 1 
    Me.Label2.Text = "Label2" 
    ' 
    'Form1 
    ' 
    Me.AutoScaleDimensions = New System.Drawing.SizeF(9.0!, 16.0!) 
    Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font 
    Me.ClientSize = New System.Drawing.Size(1185, 494) 
    Me.ControlBox = False 
    Me.Controls.Add(Me.Label2) 
    Me.Controls.Add(Me.Label1) 
    Me.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) 
    Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle 
    Me.Margin = New System.Windows.Forms.Padding(4) 
    Me.Name = "Form1" 
    Me.Text = "Click on Colour to Select" 
    Me.ResumeLayout(False) 
    Me.PerformLayout() 

End Sub 
Friend WithEvents Label1 As System.Windows.Forms.Label 
Friend WithEvents ToolTip1 As System.Windows.Forms.ToolTip 
Friend WithEvents Label2 As System.Windows.Forms.Label 
End Class 

Answer 3

我花了很多時間在尋找一種方式來獲得的基本顏色列表編程，但沒有找到這樣的方法。 我目前的解決方案=）：

List<Color> basicColors = new List<Color> 
      { 
       Color.FromArgb(255, 255, 128, 128), 
       Color.FromArgb(255, 255, 255, 128), 
       Color.FromArgb(255, 128, 255, 128), 
       Color.FromArgb(255, 0, 255, 128), 
       Color.FromArgb(255, 128, 255, 255), 
       Color.FromArgb(255, 0, 128, 255), 
       Color.FromArgb(255, 255, 128, 192), 
       Color.FromArgb(255, 255, 128, 255), 
       Color.FromArgb(255, 255, 0, 0), 
       Color.FromArgb(255, 255, 255, 0), 
       Color.FromArgb(255, 128, 255, 0), 
       Color.FromArgb(255, 0, 255, 64), 
       Color.FromArgb(255, 0, 255, 255), 
       Color.FromArgb(255, 0, 128, 192), 
       Color.FromArgb(255, 128, 128, 192), 
       Color.FromArgb(255, 255, 0, 255), 
       Color.FromArgb(255, 128, 64, 64), 
       Color.FromArgb(255, 255, 128, 64), 
       Color.FromArgb(255, 0, 255, 0), 
       Color.FromArgb(255, 0, 128, 128), 
       Color.FromArgb(255, 0, 64, 128), 
       Color.FromArgb(255, 128, 128, 255), 
       Color.FromArgb(255, 128, 0, 64), 
       Color.FromArgb(255, 255, 0, 128), 
       Color.FromArgb(255, 128, 0, 0), 
       Color.FromArgb(255, 255, 128, 0), 
       Color.FromArgb(255, 0, 128, 0), 
       Color.FromArgb(255, 0, 128, 64), 
       Color.FromArgb(255, 0, 0, 255), 
       Color.FromArgb(255, 0, 0, 160), 
       Color.FromArgb(255, 128, 0, 128), 
       Color.FromArgb(255, 128, 0, 255), 
       Color.FromArgb(255, 64, 0, 0), 
       Color.FromArgb(255, 128, 64, 0), 
       Color.FromArgb(255, 0, 64, 0), 
       Color.FromArgb(255, 0, 64, 64), 
       Color.FromArgb(255, 0, 0, 128), 
       Color.FromArgb(255, 0, 0, 64), 
       Color.FromArgb(255, 64, 0, 64), 
       Color.FromArgb(255, 64, 0, 128), 
       Color.FromArgb(255, 0, 0, 0), 
       Color.FromArgb(255, 128, 128, 0), 
       Color.FromArgb(255, 128, 128, 64), 
       Color.FromArgb(255, 128, 128, 128), 
       Color.FromArgb(255, 64, 128, 128), 
       Color.FromArgb(255, 192, 192, 192), 
       Color.FromArgb(255, 64, 0, 64), 
       Color.FromArgb(255, 255, 255, 255) 
      };