Как показать предопределенные палитры пользователю vb.net

Question

Я хочу сделать форму, в которой пользователь может выбрать одну из предопределенных возможных палитр для использования в диаграмме, как я могу это сделать?

Я не хочу, чтобы пользователь выбирал цвет по цвету с помощью colorDialog, но чтобы выбрать всю палитру. И если это возможно, я хочу, чтобы форма показывала его как непрерывный бар.

Благодаря

Answer 1

Ну я искал много, но не нашел его, даже если это очень распространено во многих программах. Наконец, это действительно длинный путь, я добавляю код всем, кого это может заинтересовать.

Private cBerry() As Color = {Color.BlueViolet, Color.MediumOrchid, Color.RoyalBlue, Color.MediumVioletRed, Color.Blue, Color.BlueViolet, Color.Orchid, Color.MediumSlateBlue, Color.FromArgb(192, 0, 192), Color.MediumBlue, Color.Purple} 
. 
. 
. 
Private cPastel() As Color = {Color.SkyBlue, Color.LimeGreen, Color.MediumOrchid, Color.LightCoral, Color.SteelBlue, Color.YellowGreen, Color.Turquoise, Color.HotPink, Color.Khaki, Color.Tan, Color.DarkSeaGreen, Color.CornflowerBlue, Color.Plum, Color.CadetBlue, Color.PeachPuff, Color.LightSalmon} 


cBerryLbls = {Label1, Label2, Label3, Label4, Label5, Label6, Label7, Label8, Label9, Label10, Label11} 
. 
. 
. 
cPastelLbls = {Label12, Label13, Label14, Label15, Label16, Label17, Label8, Label19, Label20, Label21, Label22, Label23, Label24, Label25, Label26, Label27} 



labls = {cBerryLbls,... cPastelLbls} 
colores = {cBerry,... cPastel} 


Dim labs As Label() 
Dim colori As Color() 
For i As Integer = 0 To colores.Length - 1 

    labs = labls(i) 
    colori = colores(i) 
    For j As Integer = 0 To labs.Length - 1 

     labs(j).BackColor = colori(j) 

    Next 

Next