顔色轉換

Dim bb As New Random(123)

Dim Pcolor(deptEmp.Rows.Count) As Color

For i As Integer = 0 To deptEmp.Rows.Count Step 1

Pcolor(i) = Color.FromArgb(bb.Next(255), bb.Next(255), bb.Next(255))

Dim abc As Integer = System.Drawing.ColorTranslator.ToOle(Pcolor(i))

Dim ab As String = Convert.ToString(abc, 16)

//========变成16进制=================   #123456
                 Dim Icolor As Integer = System.Drawing.ColorTranslator.ToOle(Pcolor(eCount))
                 Dim Scolor As String = "#" + Convert.ToString(Icolor, 16)

//===============还原===============

               Scolor   =   Scolor.Replace("#","");
                 Icolor   =   Convert.ToInt32(Icolor,16);
                 dim colorb as color = ColorTranslator.FromWin32(intColor1);
//--------------------------------------------
private System.Drawing.Color FromRGB(string strRGB)
{
string R = strRGB.Substring(0,2);
string G = strRGB.Substring(2,2);
string B = strRGB.Substring(4,2);
return System.Drawing.Color.FromArgb(System.Convert.ToInt16(R,16),System.Convert.ToInt16(G,16),System.Convert.ToInt16(B,16));
}
//-------------
strColor = "#FFFFFF";
this.BackColor = FromRGB(strColor.Substring(1,6));

// 遍历color現有的系統顔色

DataTable dtColor = new DataTable();

dtColor.Columns.Add("colorKey", typeof(string));

dtColor.Columns.Add("colorName", typeof(string));

Type type = typeof(Color);

System.Reflection.PropertyInfo[] pt = type.GetProperties();

DataRow newRow = null;

foreach (System.Reflection.PropertyInfo p in pt)