Mobile

Dim a As New ColorDialog<br />
        If a.ShowDialog = Windows.Forms.DialogResult.OK Then<br />
            Dim STR As String = RGB2HTMLColor(a.Color.R, a.Color.G, a.Color.B)<br />
endif

Private Function RGB2HTMLColor(ByVal R As Byte, ByVal G As Byte, ByVal B As Byte) As String<br />
<br />
        Dim HexR, HexB, HexG As Object<br />
        Dim sTemp As String<br />
<br />
        'R<br />
        HexR = Hex(R)<br />
        If Len(HexR) < 2 Then HexR = "0" & HexR<br />
<br />
        'Get Green Hex<br />
        HexG = Hex(G)<br />
        If Len(HexG) < 2 Then HexG = "0" & HexG<br />
<br />
        HexB = Hex(B)<br />
        If Len(HexB) < 2 Then HexB = "0" & HexB<br />
<br />
        RGB2HTMLColor = "#" & HexR & HexG & HexB<br />
    End Function<br />

dim a as color<br />
Dim ArgbComp As String() = Microsoft.VisualBasic.Split(HEXCOL2RGB("#000000"), ",") '#000000 is sample<br />
       a.BackColor = Color.FromArgb(ArgbComp(0), ArgbComp(1), ArgbComp(2), ArgbComp(3))

<br />
 Private Function HEXCOL2RGB(ByVal HexColor As String) As String<br />
<br />
            Dim Red As String<br />
        Dim Green As String<br />
        Dim Blue As String<br />
<br />
        Red = Val("&H" & HexColor.Substring(1, 2))<br />
        'The red value is now the long version of "00"<br />
<br />
        Green = Val("&H" & HexColor.Substring(3, 2))<br />
        'The red value is now the long version of "FF"<br />
<br />
        Blue = Val("&H" & HexColor.Substring(5, 2))<br />
        'The red value is now the long version of "1F"<br />
<br />
<br />
        HEXCOL2RGB = "255," & CInt(Red) & "," & CInt(Green) & "," & CInt(Blue)<br />
<br />
        Return HEXCOL2RGB<br />
<br />
    End Function

private void R1RecCount()<br />
     {<br />
         R1Count.Visible = false;<br />
         conn = new SqlCeConnection("Data Source = \\My Documents\\RAM.sdf");<br />
         conn.Open();<br />
         SqlCeCommand cmd = conn.CreateCommand();<br />
         cmd.CommandText = "SELECT * FROM R1Time";<br />
         SqlCeDataReader rdr = cmd.ExecuteReader();<br />
         while (rdr.Read())<br />
         {<br />
             countr1 = countr1 + 1;<br />
             if (countr1 >= 1)<br />
             {<br />
                 //MessageBox.Show(rdr.GetValue(0).ToString());<br />
                 //Eventually will ad button to this screen<br />
                 this.rAMDataSet.R1Time.AddR1TimeRow(<br />
                     rdr.GetValue(0).ToString(),<br />
                     rdr.GetValue(1).ToString(),<br />
                     rdr.GetValue(2).ToString(),<br />
                     rdr.GetValue(3).ToString(),<br />
                     rdr.GetValue(4).ToString(),<br />
                     rdr.GetValue(5).ToString(),<br />
                     rdr.GetValue(6).ToString(),<br />
                     rdr.GetValue(7).ToString());<br />
             }<br />
         }<br />
         R1c.Text = countr1.ToString();<br />
         R1c.Enabled = false;<br />
         this.r1TimeTableAdapter.Fill(this.rAMDataSet.R1Time);<br />
         conn.Close();<br />
     }