topic Re: Textbox background color to aci color in VBA Forum

Textbox background color to aci color

Anonymous — Sun, 07 Dec 2003 10:58:07 GMT

I have a text box on a form and I would like users to type in the color
number and have the backgound color of the textbox change to display this
color.

Any ideas?

Russ

Re: Textbox background color to aci color

Anonymous — Sun, 07 Dec 2003 10:58:07 GMT

Ok, well I kindo got it working excpet that the colours are 1 down the scale
from what they should be. ie 0 = red, 1 = yellow, etc

Function ACIRed(ByRef ACI As Integer) As Integer
Dim Red As Object
Red = New Object() {1, 1, 0, 0, 0, 1, 1, 1, 1, 1, 1, 0.65, 0.65,
0.5, 0.5, 0.3, 0.3, 0.15, 0.15, 1, 1, 0.65, 0.65, 0.5, 0.5, 0.3, 0.3, 0.15,
0.15, 1, 1, 0.65, 0.65, 0.5, 0.5, 0.3, 0.3, 0.15, 0.15, 1, 1, 0.65, 0.65,
0.5, 0.5, 0.3, 0.3, 0.15, 0.15, 1, 1, 0.65, 0.65, 0.5, 0.5, 0.3, 0.3, 0.15,
0.15, 0.75, 0.875, 0.4875, 0.56875, 0.375, 0.4375, 0.225, 0.2625, 0.1125,
0.13125, 0.5, 0.75, 0.325, 0.4875, 0.25, 0.375, 0.15, 0.225, 0.075, 0.1125,
0.25, 0.625, 0.1625, 0.40625, 0.125, 0.3125, 0.075, 0.1875, 0.0375, 0.09375,
0, 0.5, 0, 0.325, 0, 0.25, 0, 0.15, 0, 0.075, 0, 0.5, 0, 0.325, 0, 0.25, 0,
0.15, 0, 0.075, 0, 0.5, 0, 0.325, 0, 0.25, 0, 0.15, 0, 0.075, 0, 0.5, 0,
0.325, 0, 0.25, 0, 0.15, 0, 0.075, 0, 0.5, 0, 0.325, 0, 0.25, 0, 0.15, 0,
0.075, 0, 0.5, 0, 0.325, 0, 0.25, 0, 0.15, 0, 0.075, 0, 0.5, 0, 0.325, 0,
0.25, 0, 0.15, 0, 0.075, 0, 0.5, 0, 0.325, 0, 0.25, 0, 0.15, 0, 0.075, 0,
0.5, 0, 0.325, 0, 0.25, 0, 0.15, 0, 0.075, 0.25, 0.625, 0.1625, 0.40625,
0.125, 0.3125, 0.075, 0.1875, 0.0375, 0.09375, 0.5, 0.75, 0.325, 0.4875,
0.25, 0.375, 0.15, 0.225, 0.075, 0.1125, 0.75, 0.875, 0.4875, 0.56875,
0.375, 0.4375, 0.225, 0.2625, 0.1125, 0.13125, 1, 1, 0.65, 0.65, 0.5, 0.5,
0.3, 0.3, 0.15, 0.15, 1, 1, 0.65, 0.65, 0.5, 0.5, 0.3, 0.3, 0.15, 0.15, 1,
1, 0.65, 0.65, 0.5, 0.5, 0.3, 0.3, 0.15, 0.15, 1, 1, 0.65, 0.65, 0.5, 0.5,
0.3, 0.3, 0.15, 0.15, 0.33, 0.464, 0.598, 0.732, 0.866, 1}
Return Red(ACI) * 255
End Function

Function ACIBlue(ByRef ACI As Integer) As Integer
Dim Blue As Object
Blue = New Object() {0, 0, 0, 1, 1, 1, 1, 1, 1, 0, 0.5, 0, 0.325, 0,
0.25, 0, 0.15, 0, 0.075, 0, 0.5, 0, 0.325, 0, 0.25, 0, 0.15, 0, 0.075, 0,
0.5, 0, 0.325, 0, 0.25, 0, 0.15, 0, 0.075, 0, 0.5, 0, 0.325, 0, 0.25, 0,
0.15, 0, 0.075, 0, 0.5, 0, 0.325, 0, 0.25, 0, 0.15, 0, 0.075, 0, 0.5, 0, 0.3
25, 0, 0.25, 0, 0.15, 0, 0.075, 0, 0.5, 0, 0.325, 0, 0.25, 0, 0.15, 0,
0.075, 0, 0.5, 0, 0.325, 0, 0.25, 0, 0.15, 0, 0.075, 0, 0.5, 0, 0.325, 0,
0.25, 0, 0.15, 0, 0.075, 0.25, 0.625, 0.1625, 0.40625, 0.125, 0.3125, 0.075,
0.1875, 0.0375, 0.09375, 0.5, 0.75, 0.325, 0.4875, 0.25, 0.375, 0.15, 0.225,
0.075, 0.1125, 0.75, 0.875, 0.4875, 0.56875, 0.375, 0.4375, 0.225, 0.2625,
0.1125, 0.13125, 1, 1, 0.65, 0.65, 0.5, 0.5, 0.3, 0.3, 0.15, 0.15, 1, 1,
0.65, 0.65, 0.5, 0.5, 0.3, 0.3, 0.15, 0.15, 1, 1, 0.65, 65, 0.5, 0.5, 0.3,
0.3, 0.15, 0.15, 1, 1, 0.65, 0.65, 0.5, 0.5, 0.3, 0.3, 0.15, 0.15, 1, 1,
0.65, 0.65, 0.5, 0.5, 0.3, 0.3, 0.15, 0.15, 1, 1, 0.65, 0.65, 0.5, 0.5, 0.3,
0.3, 0.15, 0.15, 1, 1, 0.65, 0.65, 0.5, 0.5, 0.3, 0.3, 0.15, 0.15, 1, 1,
0.65, 0.65, 0.5, 0.5, 0.3, 0.3, 0.15, 0.15, 1, 1, 0.65, 0.65, 0.5, 0.5, 0.3,
0.3, 0.15, 0.15, 0.75, 0.875, 0.4875, 0.56875, 0.375, 0.4375, 0.225, 0.2625,
0.1125, 0.13125, 0.5, 0.75, 0.325, 0.4875, 0.25, 0.375, 0.15, 0.225, 0.075,
0.1125, 0.25, 0.625, 0.1625, 0.40625, 0.125, 0.3125, 0.075, 0.1875, 0.0375,
0.09375, 0.33, 0.464, 0.598, 0.732, 0.866, 1}
Return Blue(ACI) * 255
End Function

Function ACIGreen(ByRef ACI As Integer) As Integer
Dim Green As Object
Green = New Object() {0, 1, 1, 1, 0, 0, 1, 1, 1, 0, 0.5, 0, 0.325,
0, 0.25, 0, 0.15, 0, 0.075, 0.25, 0.625, 0.1625, 0.40625, 0.125, 0.3125,
0.075, 0.1875, 0.0375, 0.09375, 0.5, 0.75, 0.325, 0.4875, 0.25, 0.375, 0.15,
0.225, 0.075, 0.1125, 0.75, 0.875, 0.4875, 0.56875, 0.375, 0.4375, 0.225,
0.2625, 0.1125, 0.13125, 1, 1, 0.65, 0.65, 0.5, 0.5, 0.3, 0.3, 0.15, 0.15,
1, 1, 0.65, 0.65, 0.5, 0.5, 0.3, 0.3, 0.15, 0.15, 1, 1, 0.65, 0.65, 0.5,
0.5, 0.3, 0.3, 0.15, 0.15, 1, 1, 0.65, 0.65, 0.5, 0.5, 0.3, 0.3, 0.15, 0.15,
1, 1, 0.65, 0.65, 0.5, 0.5, 0.3, 0.3, 0.15, 0.15, 1, 1, 0.65, 0.65, 0.5,
0.5, 0.3, 0.3, 0.15, 0.15, 1, 1, 0.65, 0.65, 0.5, 0.5, 0.3, 0.3, 0.15, 0.15,
1, 1, 0.65, 0.65, 0.5, 0.5, 0.3, 0.3, 0.15, 0.15, 1, 1, 0.65, 0.65, 0.5,
0.5, 0.3, 0.3, 0.15, 0.15, 0.75, 0.875, 0.4875, 0.56875, 0.375, 0.4375,
0.225, 0.2625, 0.1125, 0.13125, 0.5, 0.75, 0.325, 0.4875, 0.25, 0.375, 0.15,
0.225, 0.075, 0.1125, 0.25, 0.625, 0.1625, 0.40625, 0.125, 0.3125, 0.075,
0.1875, 0.0375, 0.09375, 0, 0.5, 0, 0.325, 0, 0.25, 0, 0.15, 0, 0.075, 0,
0.5, 0, 0.325, 0, 0.25, 0, 0.15, 0, 0.075, 0, 0.5, 0, 0.325, 0, 0.25, 0,
0.15, 0, 0.075, 0, 0.5, 0, 0.325, 0, 0.25, 0, 0.15, 0, 0.075, 0, 0.5, 0,
0.325, 0, 0.25, 0, 0.15, 0, 0.075, 0, 0.5, 0, 0.325, 0, 0.25, 0, 0.15, 0,
0.075, 0, 0.5, 0, 0.325, 0, 0.25, 0, 0.15, 0, 0.075, 0, 0.5, 0, 0.325, 0,
0.25, 0, 0.15, 0, 0.075, 0.33, 0.464, 0.598, 0.732, 0.866, 1}
Return Green(ACI) * 255
End Function

Private Sub nudACI_ValueChanged(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles nudACI.ValueChanged
On Error Resume Next

Me.nudACI.BackColor = Color.FromArgb(255, _
ACIRed(CInt(Me.nudACI.Value)), _
ACIGreen(CInt(Me.nudACI.Value)), _
ACIBlue(CInt(Me.nudACI.Value)))
End Sub

"Russ Green" wrote in message
news:D1F8BE90D4633C62355DEE34B7E729A0@in.WebX.maYIadrTaRb...
> I have a text box on a form and I would like users to type in the color
> number and have the backgound color of the textbox change to display this
> color.
>
> Any ideas?
>
> Russ
>
>

Re: Textbox background color to aci color

Anonymous — Sun, 07 Dec 2003 12:51:52 GMT

Russ,
This code along with the included AcadToRGB function posted 12/23/2002 by
Kevin Terry does what you want.

Private Sub TextBox1_Change()
On Error Resume Next
TextBox1.BackColor = AcadToRGB(TextBox1.Value)
End Sub

' . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
. . . . . . . . . . .
'
'Returns RGB equivalent to passed acad color index (ACI)
'
Public Function AcadToRGB(ByVal Col As Long) As Variant

Dim R As Long, G As Long, B As Long

Select Case Col
Case 1: AcadToRGB = 255: Exit Function
Case 2: AcadToRGB = 65535: Exit Function
Case 3: AcadToRGB = 65280: Exit Function
Case 4: AcadToRGB = 16776960: Exit Function
Case 5: AcadToRGB = 16711680: Exit Function
Case 6: AcadToRGB = 16711935: Exit Function
Case 7: AcadToRGB = 16777215: Exit Function
Case 8: AcadToRGB = 8355711: Exit Function
Case 9: AcadToRGB = 12566463: Exit Function
Case 10: AcadToRGB = 255: Exit Function
Case 11: AcadToRGB = 8355839: Exit Function
Case 12: AcadToRGB = 207: Exit Function
Case 13: AcadToRGB = 6316239: Exit Function
Case 14: AcadToRGB = 144: Exit Function
Case 15: AcadToRGB = 5197712: Exit Function
Case 16: AcadToRGB = 127: Exit Function
Case 90, 92, 94, 96, 98, 100, 102, 104, 106, 108, 110, 112, 114,
116, 118, _
120, 122, 124, 126, 128, 130, 132, 134, 136, 138, 140, 142, 144,
146, 148, _
150, 152, 154, 156, 158, 160, 162, 164, 166, 168, 170, 172, 174,
176, 178: R = 0
Case 88, 188: R = 15
Case 86, 186: R = 31
Case 78, 84, 99, 109, 119, 129, 139, 149, 159, 169, 179, 184, 198: R
= 32
Case 82, 89, 182, 189, 250: R = 47
Case 68, 79, 199, 208: R = 48
Case 69, 76, 80, 97, 107, 117, 127, 137, 147, 157, 167, 177, 180,
196, 209: R = 63
Case 18, 19, 28, 29, 38, 39, 48, 49, 58, 59, 74, 87, 95, 105, 115,
125, 135, _
145, 155, 165, 175, 187, 194, 218, 219, 228, 229, 238, 239, 248,
249: R = 79
Case 66, 77, 185, 197, 206: R = 95
Case 72, 85, 93, 103, 113, 123, 133, 143, 153, 163, 173, 192: R = 96
Case 64, 67, 75, 195, 204, 207: R = 111
Case 17, 26, 27, 36, 37, 46, 47, 56, 57, 70, 83, 91, 101, 111, 121,
131, _
141, 151, 161, 171, 183, 190, 216, 217, 226, 227, 236, 237, 246,
247: R = 127
Case 65, 205, 252: R = 128
Case 24, 25, 34, 35, 44, 45, 54, 55, 62, 73, 193, 202, 214, 215,
224, 225, _
234, 235, 244, 245: R = 144
Case 81, 181: R = 159
Case 63, 203, 253: R = 175
Case 60, 71, 191, 200: R = 191
Case 22, 23, 32, 33, 42, 43, 52, 53, 212, 213, 222, 223, 232, 233,
242, 243: R = 207
Case 61, 201: R = 223
Case 20, 21, 30, 31, 40, 41, 50, 51, 210, 211, 220, 221, 230, 231,
240, 241, 255: R = 255
Case 251: R = 80: G = 80: B = 80
Case 254: R = 208: G = 208: B = 208
End Select

Select Case Col
Case 18, 170, 172, 174, 176, 178, 180, 182, 184, 186, 188, 190, 192,
194, _
196, 198, 200, 202, 204, 206, 208, 210, 212, 214, 216, 218, 220,
222, 224, _
226, 228, 230, 232, 234, 236, 238, 240, 242, 244, 246, 248: G =
0
Case 28, 168: G = 15
Case 26, 166: G = 31
Case 19, 24, 38, 158, 164, 179, 189, 199, 209, 219, 229, 239, 249: G
= 32
Case 22, 29, 162, 169, 250: G = 47
Case 39, 48, 148, 159: G = 48
Case 17, 20, 36, 49, 149, 156, 160, 177, 187, 197, 207, 217, 227,
237, 247: G = 63
Case 18, 27, 34, 58, 59, 68, 69, 78, 79, 88, 89, 98, 99, 108, 109,
118, 119, _
128, 129, 138, 139, 154, 167, 175, 185, 195, 205, 215, 225, 235,
245: G = 79
Case 152: G = 86
Case 25, 37, 46, 146, 157, 165: G = 95
Case 32, 173, 183, 193, 203, 213, 223, 233, 243: G = 96
Case 35, 44, 47, 144, 147, 155: G = 111
Case 23, 30, 56, 57, 66, 67, 76, 77, 86, 87, 96, 97, 106, 107, 116,
117, _
126, 127, 136, 137, 150, 163, 171, 181, 191, 201, 211, 221, 231,
241: G = 127
Case 45, 145, 252: G = 128
Case 33, 42, 54, 55, 64, 65, 74, 75, 84, 85, 94, 95, 104, 105, 114,
115, _
124, 125, 134, 135, 142, 153: G = 144
Case 21, 161: G = 159
Case 43, 143, 253: G = 175
Case 31, 40, 140, 151: G = 191
Case 52, 53, 62, 63, 72, 73, 82, 83, 92, 93, 102, 103, 112, 113,
122, 123, _
132, 133: G = 207
Case 41, 141: G = 223
Case 50, 51, 60, 61, 70, 71, 80, 81, 90, 91, 100, 101, 110, 111,
120, 121, _
130, 131, 255: G = 255
End Select

Select Case Col
Case 18, 20, 22, 24, 26, 28, 30, 32, 34, 36, 38, 40, 42, 44, 46, 48,
50, 52, _
54, 56, 58, 60, 62, 64, 66, 68, 70, 72, 74, 76, 78, 80, 82, 84,
86, 88, 90, _
92, 94, 96, 98: B = 0
Case 108, 248: B = 15
Case 106, 246: B = 31
Case 19, 29, 39, 49, 59, 69, 79, 89, 99, 104, 118, 238, 244: B = 32
Case 102, 109, 242, 249, 250: B = 47
Case 119, 128, 228, 239: B = 48
Case 17, 27, 37, 47, 57, 67, 77, 87, 97, 100, 116, 129, 229, 236,
240: B = 63
Case 25, 35, 45, 55, 65, 75, 85, 95, 107, 114, 138, 139, 148, 149,
158, 159, _
168, 169, 178, 179, 188, 189, 198, 199, 208, 209, 218, 219, 234,
247: B = 79
Case 105, 117, 126, 226, 237, 245: B = 95
Case 23, 33, 43, 53, 63, 73, 83, 93, 112, 232: B = 96
Case 115, 124, 127, 224, 227, 235: B = 111
Case 21, 31, 41, 51, 61, 71, 81, 91, 103, 110, 136, 137, 146, 147,
156, 157, _
166, 167, 176, 177, 186, 187, 196, 197, 206, 207, 216, 217, 230,
243: B = 127
Case 125, 225, 252: B = 128
Case 113, 122, 134, 135, 144, 145, 154, 155, 164, 165, 174, 175,
184, 185, _
194, 195, 204, 205, 214, 215, 222, 233: B = 144
Case 101, 241: B = 159
Case 123, 223, 253: G = 175
Case 111, 120, 220, 231: B = 191
Case 132, 133, 142, 143, 152, 153, 162, 163, 172, 173, 182, 183,
192, 193, _
202, 203, 212, 213: B = 207
Case 121: B = 223
Case 130, 131, 140, 141, 150, 151, 160, 161, 170, 171, 180, 181,
190, 191, _
200, 201, 210, 211, 221, 255: B = 255
End Select

AcadToRGB = RGB(R, G, B)

End Function

"Russ Green" wrote in message
news:D1F8BE90D4633C62355DEE34B7E729A0@in.WebX.maYIadrTaRb...
> I have a text box on a form and I would like users to type in the color
> number and have the backgound color of the textbox change to display this
> color.
>
> Any ideas?
>
> Russ
>
>

Re:

Anonymous — Sun, 07 Dec 2003 15:22:33 GMT

Thanks

In VB.NET to use RGB you must do this...

Private Sub nudACI_ValueChanged(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles nudACI.ValueChanged

On Error Resume Next

Me.nudACI.BackColor = System.Drawing.ColorTranslator.FromOle _
(CInt(AcadToRgb(CInt(Me.nudACI.Value))))

End Sub

Russ

"Jeff Mishler" wrote in message
news:DAA9327D2B2525795B9E4CE00585AB71@in.WebX.maYIadrTaRb...
> Russ,
> This code along with the included AcadToRGB function posted 12/23/2002 by
> Kevin Terry does what you want.
>
> Private Sub TextBox1_Change()
> On Error Resume Next
> TextBox1.BackColor = AcadToRGB(TextBox1.Value)
> End Sub
>
> ' . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
.
> . . . . . . . . . . .
> '
> 'Returns RGB equivalent to passed acad color index (ACI)
> '
> Public Function AcadToRGB(ByVal Col As Long) As Variant
>
> Dim R As Long, G As Long, B As Long
>
> Select Case Col
> Case 1: AcadToRGB = 255: Exit Function
> Case 2: AcadToRGB = 65535: Exit Function
> Case 3: AcadToRGB = 65280: Exit Function
> Case 4: AcadToRGB = 16776960: Exit Function
> Case 5: AcadToRGB = 16711680: Exit Function
> Case 6: AcadToRGB = 16711935: Exit Function
> Case 7: AcadToRGB = 16777215: Exit Function
> Case 8: AcadToRGB = 8355711: Exit Function
> Case 9: AcadToRGB = 12566463: Exit Function
> Case 10: AcadToRGB = 255: Exit Function
> Case 11: AcadToRGB = 8355839: Exit Function
> Case 12: AcadToRGB = 207: Exit Function
> Case 13: AcadToRGB = 6316239: Exit Function
> Case 14: AcadToRGB = 144: Exit Function
> Case 15: AcadToRGB = 5197712: Exit Function
> Case 16: AcadToRGB = 127: Exit Function
> Case 90, 92, 94, 96, 98, 100, 102, 104, 106, 108, 110, 112, 114,
> 116, 118, _
> 120, 122, 124, 126, 128, 130, 132, 134, 136, 138, 140, 142,
144,
> 146, 148, _
> 150, 152, 154, 156, 158, 160, 162, 164, 166, 168, 170, 172,
174,
> 176, 178: R = 0
> Case 88, 188: R = 15
> Case 86, 186: R = 31
> Case 78, 84, 99, 109, 119, 129, 139, 149, 159, 169, 179, 184, 198:
R
> = 32
> Case 82, 89, 182, 189, 250: R = 47
> Case 68, 79, 199, 208: R = 48
> Case 69, 76, 80, 97, 107, 117, 127, 137, 147, 157, 167, 177, 180,
> 196, 209: R = 63
> Case 18, 19, 28, 29, 38, 39, 48, 49, 58, 59, 74, 87, 95, 105, 115,
> 125, 135, _
> 145, 155, 165, 175, 187, 194, 218, 219, 228, 229, 238, 239,
248,
> 249: R = 79
> Case 66, 77, 185, 197, 206: R = 95
> Case 72, 85, 93, 103, 113, 123, 133, 143, 153, 163, 173, 192: R =
96
> Case 64, 67, 75, 195, 204, 207: R = 111
> Case 17, 26, 27, 36, 37, 46, 47, 56, 57, 70, 83, 91, 101, 111,
121,
> 131, _
> 141, 151, 161, 171, 183, 190, 216, 217, 226, 227, 236, 237,
246,
> 247: R = 127
> Case 65, 205, 252: R = 128
> Case 24, 25, 34, 35, 44, 45, 54, 55, 62, 73, 193, 202, 214, 215,
> 224, 225, _
> 234, 235, 244, 245: R = 144
> Case 81, 181: R = 159
> Case 63, 203, 253: R = 175
> Case 60, 71, 191, 200: R = 191
> Case 22, 23, 32, 33, 42, 43, 52, 53, 212, 213, 222, 223, 232, 233,
> 242, 243: R = 207
> Case 61, 201: R = 223
> Case 20, 21, 30, 31, 40, 41, 50, 51, 210, 211, 220, 221, 230, 231,
> 240, 241, 255: R = 255
> Case 251: R = 80: G = 80: B = 80
> Case 254: R = 208: G = 208: B = 208
> End Select
>
> Select Case Col
> Case 18, 170, 172, 174, 176, 178, 180, 182, 184, 186, 188, 190,
192,
> 194, _
> 196, 198, 200, 202, 204, 206, 208, 210, 212, 214, 216, 218,
220,
> 222, 224, _
> 226, 228, 230, 232, 234, 236, 238, 240, 242, 244, 246, 248: G
=
> 0
> Case 28, 168: G = 15
> Case 26, 166: G = 31
> Case 19, 24, 38, 158, 164, 179, 189, 199, 209, 219, 229, 239, 249:
G
> = 32
> Case 22, 29, 162, 169, 250: G = 47
> Case 39, 48, 148, 159: G = 48
> Case 17, 20, 36, 49, 149, 156, 160, 177, 187, 197, 207, 217, 227,
> 237, 247: G = 63
> Case 18, 27, 34, 58, 59, 68, 69, 78, 79, 88, 89, 98, 99, 108, 109,
> 118, 119, _
> 128, 129, 138, 139, 154, 167, 175, 185, 195, 205, 215, 225,
235,
> 245: G = 79
> Case 152: G = 86
> Case 25, 37, 46, 146, 157, 165: G = 95
> Case 32, 173, 183, 193, 203, 213, 223, 233, 243: G = 96
> Case 35, 44, 47, 144, 147, 155: G = 111
> Case 23, 30, 56, 57, 66, 67, 76, 77, 86, 87, 96, 97, 106, 107,
116,
> 117, _
> 126, 127, 136, 137, 150, 163, 171, 181, 191, 201, 211, 221,
231,
> 241: G = 127
> Case 45, 145, 252: G = 128
> Case 33, 42, 54, 55, 64, 65, 74, 75, 84, 85, 94, 95, 104, 105,
114,
> 115, _
> 124, 125, 134, 135, 142, 153: G = 144
> Case 21, 161: G = 159
> Case 43, 143, 253: G = 175
> Case 31, 40, 140, 151: G = 191
> Case 52, 53, 62, 63, 72, 73, 82, 83, 92, 93, 102, 103, 112, 113,
> 122, 123, _
> 132, 133: G = 207
> Case 41, 141: G = 223
> Case 50, 51, 60, 61, 70, 71, 80, 81, 90, 91, 100, 101, 110, 111,
> 120, 121, _
> 130, 131, 255: G = 255
> End Select
>
> Select Case Col
> Case 18, 20, 22, 24, 26, 28, 30, 32, 34, 36, 38, 40, 42, 44, 46,
48,
> 50, 52, _
> 54, 56, 58, 60, 62, 64, 66, 68, 70, 72, 74, 76, 78, 80, 82,
84,
> 86, 88, 90, _
> 92, 94, 96, 98: B = 0
> Case 108, 248: B = 15
> Case 106, 246: B = 31
> Case 19, 29, 39, 49, 59, 69, 79, 89, 99, 104, 118, 238, 244: B =
32
> Case 102, 109, 242, 249, 250: B = 47
> Case 119, 128, 228, 239: B = 48
> Case 17, 27, 37, 47, 57, 67, 77, 87, 97, 100, 116, 129, 229, 236,
> 240: B = 63
> Case 25, 35, 45, 55, 65, 75, 85, 95, 107, 114, 138, 139, 148, 149,
> 158, 159, _
> 168, 169, 178, 179, 188, 189, 198, 199, 208, 209, 218, 219,
234,
> 247: B = 79
> Case 105, 117, 126, 226, 237, 245: B = 95
> Case 23, 33, 43, 53, 63, 73, 83, 93, 112, 232: B = 96
> Case 115, 124, 127, 224, 227, 235: B = 111
> Case 21, 31, 41, 51, 61, 71, 81, 91, 103, 110, 136, 137, 146, 147,
> 156, 157, _
> 166, 167, 176, 177, 186, 187, 196, 197, 206, 207, 216, 217,
230,
> 243: B = 127
> Case 125, 225, 252: B = 128
> Case 113, 122, 134, 135, 144, 145, 154, 155, 164, 165, 174, 175,
> 184, 185, _
> 194, 195, 204, 205, 214, 215, 222, 233: B = 144
> Case 101, 241: B = 159
> Case 123, 223, 253: G = 175
> Case 111, 120, 220, 231: B = 191
> Case 132, 133, 142, 143, 152, 153, 162, 163, 172, 173, 182, 183,
> 192, 193, _
> 202, 203, 212, 213: B = 207
> Case 121: B = 223
> Case 130, 131, 140, 141, 150, 151, 160, 161, 170, 171, 180, 181,
> 190, 191, _
> 200, 201, 210, 211, 221, 255: B = 255
> End Select
>
> AcadToRGB = RGB(R, G, B)
>
> End Function
>
>
>
>
> "Russ Green" wrote in message
> news:D1F8BE90D4633C62355DEE34B7E729A0@in.WebX.maYIadrTaRb...
> > I have a text box on a form and I would like users to type in the color
> > number and have the backgound color of the textbox change to display
this
> > color.
> >
> > Any ideas?
> >
> > Russ
> >
> >
>
>

Re:

Anonymous — Sun, 07 Dec 2003 15:48:15 GMT

This is a slightly cleaner function....

Public Function AcColorToRgb(ByVal iColor As Integer) As Long

Dim lColorOut As Long

Select Case iColor

'Case acByLayer : lColorOut = vbWhite

'Case acByBlock : lColorOut = vbWhite

Case 1 : lColorOut = 255 'red

Case 2 : lColorOut = 65535 'yellow

Case 3 : lColorOut = 65280

Case 4 : lColorOut = 16776960

Case 5 : lColorOut = 16711680

Case 6 : lColorOut = 16711935

Case 7 : lColorOut = 16777215

Case 8 : lColorOut = 8421504

Case 9 : lColorOut = 12632256

Case 10 : lColorOut = 255

Case 11 : lColorOut = 8355839

Case 12 : lColorOut = 204

Case 13 : lColorOut = 6710988

Case 14 : lColorOut = 153

Case 15 : lColorOut = 5000345

Case 16 : lColorOut = 127

Case 17 : lColorOut = 4145023

Case 18 : lColorOut = 77

Case 19 : lColorOut = 2500172

Case 20 : lColorOut = 16383

Case 21 : lColorOut = 8364031

Case 22 : lColorOut = 13260

Case 23 : lColorOut = 6717388

Case 24 : lColorOut = 9881

Case 25 : lColorOut = 5005209

Case 26 : lColorOut = 8063

Case 27 : lColorOut = 4149119

Case 28 : lColorOut = 4940

Case 29 : lColorOut = 2502476

Case 30 : lColorOut = 32767

Case 31 : lColorOut = 8372223

Case 32 : lColorOut = 26316

Case 33 : lColorOut = 6724044

Case 34 : lColorOut = 19609

Case 35 : lColorOut = 5010073

Case 36 : lColorOut = 16255

Case 37 : lColorOut = 4153215

Case 38 : lColorOut = 9804

Case 39 : lColorOut = 2505036

Case 40 : lColorOut = 49151

Case 41 : lColorOut = 8380415

Case 42 : lColorOut = 39372

Case 43 : lColorOut = 6730444

Case 44 : lColorOut = 29337

Case 45 : lColorOut = 5014937

Case 46 : lColorOut = 24447

Case 47 : lColorOut = 4157311

Case 48 : lColorOut = 14668

Case 49 : lColorOut = 2507340

Case 50 : lColorOut = 65535

Case 51 : lColorOut = 8388607

Case 52 : lColorOut = 52428

Case 53 : lColorOut = 6737100

Case 54 : lColorOut = 39321

Case 55 : lColorOut = 5020057

Case 56 : lColorOut = 32639

Case 57 : lColorOut = 4161407

Case 58 : lColorOut = 19532

Case 59 : lColorOut = 2509900

Case 60 : lColorOut = 65471

Case 61 : lColorOut = 8388575

Case 62 : lColorOut = 52377

Case 63 : lColorOut = 6737074

Case 64 : lColorOut = 39282

Case 65 : lColorOut = 5020037

Case 66 : lColorOut = 32607

Case 67 : lColorOut = 4161391

Case 68 : lColorOut = 19513

Case 69 : lColorOut = 2509890

Case 70 : lColorOut = 65407

Case 71 : lColorOut = 8388543

Case 72 : lColorOut = 52326

Case 73 : lColorOut = 6737049

Case 74 : lColorOut = 39244

Case 75 : lColorOut = 5020018

Case 76 : lColorOut = 32575

Case 77 : lColorOut = 4161375

Case 78 : lColorOut = 19494

Case 79 : lColorOut = 2509881

Case 80 : lColorOut = 65343

Case 81 : lColorOut = 8388511

Case 82 : lColorOut = 52275

Case 83 : lColorOut = 6737023

Case 84 : lColorOut = 39206

Case 85 : lColorOut = 5019999

Case 86 : lColorOut = 32543

Case 87 : lColorOut = 4161359

Case 88 : lColorOut = 19475

Case 89 : lColorOut = 2509871

Case 90 : lColorOut = 65280

Case 91 : lColorOut = 8388479

Case 92 : lColorOut = 52224

Case 93 : lColorOut = 6736998

Case 94 : lColorOut = 39168

Case 95 : lColorOut = 5019980

Case 96 : lColorOut = 32512

Case 97 : lColorOut = 4161343

Case 98 : lColorOut = 19456

Case 99 : lColorOut = 2509862

Case 100 : lColorOut = 4194048

Case 101 : lColorOut = 10485631

Case 102 : lColorOut = 3394560

Case 103 : lColorOut = 8375398

Case 104 : lColorOut = 2529536

Case 105 : lColorOut = 6265164

Case 106 : lColorOut = 2064128

Case 107 : lColorOut = 5209919

Case 108 : lColorOut = 1264640

Case 109 : lColorOut = 3099686

Case 110 : lColorOut = 8388352

Case 111 : lColorOut = 12582783

Case 112 : lColorOut = 6736896

Case 113 : lColorOut = 10079334

Case 114 : lColorOut = 5019904

Case 115 : lColorOut = 7510348

Case 116 : lColorOut = 4161280

Case 117 : lColorOut = 6258495

Case 118 : lColorOut = 2509824

Case 119 : lColorOut = 3755046

Case 120 : lColorOut = 12582656

Case 121 : lColorOut = 14679935

Case 122 : lColorOut = 10079232

Case 123 : lColorOut = 11717734

Case 124 : lColorOut = 7510272

Case 125 : lColorOut = 8755532

Case 126 : lColorOut = 6258432

Case 127 : lColorOut = 7307071

Case 128 : lColorOut = 3755008

Case 129 : lColorOut = 4344870

Case 130 : lColorOut = 16776960

Case 131 : lColorOut = 16777087

Case 132 : lColorOut = 13421568

Case 133 : lColorOut = 13421670

Case 134 : lColorOut = 10066176

Case 135 : lColorOut = 10066252

Case 136 : lColorOut = 8355584

Case 137 : lColorOut = 8355647

Case 138 : lColorOut = 5000192

Case 139 : lColorOut = 5000230

Case 140 : lColorOut = 16760576

Case 141 : lColorOut = 16768895

Case 142 : lColorOut = 13408512

Case 143 : lColorOut = 13415014

Case 144 : lColorOut = 10056192

Case 145 : lColorOut = 10061132

Case 146 : lColorOut = 8347392

Case 147 : lColorOut = 8351551

Case 148 : lColorOut = 4995328

Case 149 : lColorOut = 4997670

Case 150 : lColorOut = 16744192

Case 151 : lColorOut = 16760703

Case 152 : lColorOut = 13395456

Case 153 : lColorOut = 13408614

Case 154 : lColorOut = 10046464

Case 155 : lColorOut = 10056268

Case 156 : lColorOut = 8339200

Case 157 : lColorOut = 8347455

Case 158 : lColorOut = 4990464

Case 159 : lColorOut = 4995366

Case 160 : lColorOut = 16727808

Case 161 : lColorOut = 16752511

Case 162 : lColorOut = 13382400

Case 163 : lColorOut = 13401958

Case 164 : lColorOut = 10036736

Case 165 : lColorOut = 10051404

Case 166 : lColorOut = 8331008

Case 167 : lColorOut = 8343359

Case 168 : lColorOut = 4985600

Case 169 : lColorOut = 4992806

Case 170 : lColorOut = 16711680

Case 171 : lColorOut = 16744319

Case 172 : lColorOut = 13369344

Case 173 : lColorOut = 13395558

Case 174 : lColorOut = 10027008

Case 175 : lColorOut = 10046540

Case 176 : lColorOut = 8323072

Case 177 : lColorOut = 8339263

Case 178 : lColorOut = 4980736

Case 179 : lColorOut = 4990502

Case 180 : lColorOut = 16711743

Case 181 : lColorOut = 16744351

Case 182 : lColorOut = 13369395

Case 183 : lColorOut = 13395583

Case 184 : lColorOut = 10027046

Case 185 : lColorOut = 10046559

Case 186 : lColorOut = 8323103

Case 187 : lColorOut = 8339279

Case 188 : lColorOut = 4980755

Case 189 : lColorOut = 4990511

Case 190 : lColorOut = 16711807

Case 191 : lColorOut = 16744383

Case 192 : lColorOut = 13369446

Case 193 : lColorOut = 13395609

Case 194 : lColorOut = 10027084

Case 195 : lColorOut = 10046578

Case 196 : lColorOut = 8323135

Case 197 : lColorOut = 8339295

Case 198 : lColorOut = 4980774

Case 199 : lColorOut = 4990521

Case 200 : lColorOut = 16711871

Case 201 : lColorOut = 16744415

Case 202 : lColorOut = 13369497

Case 203 : lColorOut = 13395634

Case 204 : lColorOut = 10027122

Case 205 : lColorOut = 10046597

Case 206 : lColorOut = 8323167

Case 207 : lColorOut = 8339311

Case 208 : lColorOut = 4980793

Case 209 : lColorOut = 4990530

Case 210 : lColorOut = 16711935

Case 211 : lColorOut = 16744447

Case 212 : lColorOut = 13369548

Case 213 : lColorOut = 13395660

Case 214 : lColorOut = 10027161

Case 215 : lColorOut = 10046617

Case 216 : lColorOut = 8323199

Case 217 : lColorOut = 8339327

Case 218 : lColorOut = 4980812

Case 219 : lColorOut = 4990540

Case 220 : lColorOut = 12517631

Case 221 : lColorOut = 14647295

Case 222 : lColorOut = 10027212

Case 223 : lColorOut = 11691724

Case 224 : lColorOut = 7471257

Case 225 : lColorOut = 8735897

Case 226 : lColorOut = 6226047

Case 227 : lColorOut = 7290751

Case 228 : lColorOut = 3735628

Case 229 : lColorOut = 4335180

Case 230 : lColorOut = 8323327

Case 231 : lColorOut = 12550143

Case 232 : lColorOut = 6684876

Case 233 : lColorOut = 10053324

Case 234 : lColorOut = 4980889

Case 235 : lColorOut = 7490713

Case 236 : lColorOut = 4128895

Case 237 : lColorOut = 6242175

Case 238 : lColorOut = 2490444

Case 239 : lColorOut = 3745356

Case 240 : lColorOut = 4129023

Case 241 : lColorOut = 10452991

Case 242 : lColorOut = 3342540

Case 243 : lColorOut = 8349388

Case 244 : lColorOut = 2490521

Case 245 : lColorOut = 6245529

Case 246 : lColorOut = 2031743

Case 247 : lColorOut = 5193599

Case 248 : lColorOut = 1245260

Case 249 : lColorOut = 3089996

Case 250 : lColorOut = 3355443

Case 251 : lColorOut = 5987163

Case 252 : lColorOut = 8684676

Case 253 : lColorOut = 11382189

Case 254 : lColorOut = 14079702

Case 255 : lColorOut = 16777215 'Gray

End Select

Return lColorOut

End Function

"Russ Green" wrote in message
news:E6AD69E54B8EFE92ECA8A7EACA400081@in.WebX.maYIadrTaRb...
> Thanks
>
> In VB.NET to use RGB you must do this...
>
> Private Sub nudACI_ValueChanged(ByVal sender As System.Object, _
> ByVal e As System.EventArgs) Handles nudACI.ValueChanged
>
> On Error Resume Next
>
> Me.nudACI.BackColor = System.Drawing.ColorTranslator.FromOle _
> (CInt(AcadToRgb(CInt(Me.nudACI.Value))))
>
> End Sub
>
>
> Russ
>
>
> "Jeff Mishler" wrote in message
> news:DAA9327D2B2525795B9E4CE00585AB71@in.WebX.maYIadrTaRb...
> > Russ,
> > This code along with the included AcadToRGB function posted 12/23/2002
by
> > Kevin Terry does what you want.
> >
> > Private Sub TextBox1_Change()
> > On Error Resume Next
> > TextBox1.BackColor = AcadToRGB(TextBox1.Value)
> > End Sub
> >
> > ' . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
.
> .
> > . . . . . . . . . . .
> > '
> > 'Returns RGB equivalent to passed acad color index (ACI)
> > '
> > Public Function AcadToRGB(ByVal Col As Long) As Variant
> >
> > Dim R As Long, G As Long, B As Long
> >
> > Select Case Col
> > Case 1: AcadToRGB = 255: Exit Function
> > Case 2: AcadToRGB = 65535: Exit Function
> > Case 3: AcadToRGB = 65280: Exit Function
> > Case 4: AcadToRGB = 16776960: Exit Function
> > Case 5: AcadToRGB = 16711680: Exit Function
> > Case 6: AcadToRGB = 16711935: Exit Function
> > Case 7: AcadToRGB = 16777215: Exit Function
> > Case 8: AcadToRGB = 8355711: Exit Function
> > Case 9: AcadToRGB = 12566463: Exit Function
> > Case 10: AcadToRGB = 255: Exit Function
> > Case 11: AcadToRGB = 8355839: Exit Function
> > Case 12: AcadToRGB = 207: Exit Function
> > Case 13: AcadToRGB = 6316239: Exit Function
> > Case 14: AcadToRGB = 144: Exit Function
> > Case 15: AcadToRGB = 5197712: Exit Function
> > Case 16: AcadToRGB = 127: Exit Function
> > Case 90, 92, 94, 96, 98, 100, 102, 104, 106, 108, 110, 112, 114,
> > 116, 118, _
> > 120, 122, 124, 126, 128, 130, 132, 134, 136, 138, 140, 142,
> 144,
> > 146, 148, _
> > 150, 152, 154, 156, 158, 160, 162, 164, 166, 168, 170, 172,
> 174,
> > 176, 178: R = 0
> > Case 88, 188: R = 15
> > Case 86, 186: R = 31
> > Case 78, 84, 99, 109, 119, 129, 139, 149, 159, 169, 179, 184,
198:
> R
> > = 32
> > Case 82, 89, 182, 189, 250: R = 47
> > Case 68, 79, 199, 208: R = 48
> > Case 69, 76, 80, 97, 107, 117, 127, 137, 147, 157, 167, 177,
180,
> > 196, 209: R = 63
> > Case 18, 19, 28, 29, 38, 39, 48, 49, 58, 59, 74, 87, 95, 105,
115,
> > 125, 135, _
> > 145, 155, 165, 175, 187, 194, 218, 219, 228, 229, 238, 239,
> 248,
> > 249: R = 79
> > Case 66, 77, 185, 197, 206: R = 95
> > Case 72, 85, 93, 103, 113, 123, 133, 143, 153, 163, 173, 192: R
=
> 96
> > Case 64, 67, 75, 195, 204, 207: R = 111
> > Case 17, 26, 27, 36, 37, 46, 47, 56, 57, 70, 83, 91, 101, 111,
> 121,
> > 131, _
> > 141, 151, 161, 171, 183, 190, 216, 217, 226, 227, 236, 237,
> 246,
> > 247: R = 127
> > Case 65, 205, 252: R = 128
> > Case 24, 25, 34, 35, 44, 45, 54, 55, 62, 73, 193, 202, 214, 215,
> > 224, 225, _
> > 234, 235, 244, 245: R = 144
> > Case 81, 181: R = 159
> > Case 63, 203, 253: R = 175
> > Case 60, 71, 191, 200: R = 191
> > Case 22, 23, 32, 33, 42, 43, 52, 53, 212, 213, 222, 223, 232,
233,
> > 242, 243: R = 207
> > Case 61, 201: R = 223
> > Case 20, 21, 30, 31, 40, 41, 50, 51, 210, 211, 220, 221, 230,
231,
> > 240, 241, 255: R = 255
> > Case 251: R = 80: G = 80: B = 80
> > Case 254: R = 208: G = 208: B = 208
> > End Select
> >
> > Select Case Col
> > Case 18, 170, 172, 174, 176, 178, 180, 182, 184, 186, 188, 190,
> 192,
> > 194, _
> > 196, 198, 200, 202, 204, 206, 208, 210, 212, 214, 216, 218,
> 220,
> > 222, 224, _
> > 226, 228, 230, 232, 234, 236, 238, 240, 242, 244, 246, 248:
G
> =
> > 0
> > Case 28, 168: G = 15
> > Case 26, 166: G = 31
> > Case 19, 24, 38, 158, 164, 179, 189, 199, 209, 219, 229, 239,
249:
> G
> > = 32
> > Case 22, 29, 162, 169, 250: G = 47
> > Case 39, 48, 148, 159: G = 48
> > Case 17, 20, 36, 49, 149, 156, 160, 177, 187, 197, 207, 217,
227,
> > 237, 247: G = 63
> > Case 18, 27, 34, 58, 59, 68, 69, 78, 79, 88, 89, 98, 99, 108,
109,
> > 118, 119, _
> > 128, 129, 138, 139, 154, 167, 175, 185, 195, 205, 215, 225,
> 235,
> > 245: G = 79
> > Case 152: G = 86
> > Case 25, 37, 46, 146, 157, 165: G = 95
> > Case 32, 173, 183, 193, 203, 213, 223, 233, 243: G = 96
> > Case 35, 44, 47, 144, 147, 155: G = 111
> > Case 23, 30, 56, 57, 66, 67, 76, 77, 86, 87, 96, 97, 106, 107,
> 116,
> > 117, _
> > 126, 127, 136, 137, 150, 163, 171, 181, 191, 201, 211, 221,
> 231,
> > 241: G = 127
> > Case 45, 145, 252: G = 128
> > Case 33, 42, 54, 55, 64, 65, 74, 75, 84, 85, 94, 95, 104, 105,
> 114,
> > 115, _
> > 124, 125, 134, 135, 142, 153: G = 144
> > Case 21, 161: G = 159
> > Case 43, 143, 253: G = 175
> > Case 31, 40, 140, 151: G = 191
> > Case 52, 53, 62, 63, 72, 73, 82, 83, 92, 93, 102, 103, 112, 113,
> > 122, 123, _
> > 132, 133: G = 207
> > Case 41, 141: G = 223
> > Case 50, 51, 60, 61, 70, 71, 80, 81, 90, 91, 100, 101, 110, 111,
> > 120, 121, _
> > 130, 131, 255: G = 255
> > End Select
> >
> > Select Case Col
> > Case 18, 20, 22, 24, 26, 28, 30, 32, 34, 36, 38, 40, 42, 44, 46,
> 48,
> > 50, 52, _
> > 54, 56, 58, 60, 62, 64, 66, 68, 70, 72, 74, 76, 78, 80, 82,
> 84,
> > 86, 88, 90, _
> > 92, 94, 96, 98: B = 0
> > Case 108, 248: B = 15
> > Case 106, 246: B = 31
> > Case 19, 29, 39, 49, 59, 69, 79, 89, 99, 104, 118, 238, 244: B =
> 32
> > Case 102, 109, 242, 249, 250: B = 47
> > Case 119, 128, 228, 239: B = 48
> > Case 17, 27, 37, 47, 57, 67, 77, 87, 97, 100, 116, 129, 229,
236,
> > 240: B = 63
> > Case 25, 35, 45, 55, 65, 75, 85, 95, 107, 114, 138, 139, 148,
149,
> > 158, 159, _
> > 168, 169, 178, 179, 188, 189, 198, 199, 208, 209, 218, 219,
> 234,
> > 247: B = 79
> > Case 105, 117, 126, 226, 237, 245: B = 95
> > Case 23, 33, 43, 53, 63, 73, 83, 93, 112, 232: B = 96
> > Case 115, 124, 127, 224, 227, 235: B = 111
> > Case 21, 31, 41, 51, 61, 71, 81, 91, 103, 110, 136, 137, 146,
147,
> > 156, 157, _
> > 166, 167, 176, 177, 186, 187, 196, 197, 206, 207, 216, 217,
> 230,
> > 243: B = 127
> > Case 125, 225, 252: B = 128
> > Case 113, 122, 134, 135, 144, 145, 154, 155, 164, 165, 174, 175,
> > 184, 185, _
> > 194, 195, 204, 205, 214, 215, 222, 233: B = 144
> > Case 101, 241: B = 159
> > Case 123, 223, 253: G = 175
> > Case 111, 120, 220, 231: B = 191
> > Case 132, 133, 142, 143, 152, 153, 162, 163, 172, 173, 182, 183,
> > 192, 193, _
> > 202, 203, 212, 213: B = 207
> > Case 121: B = 223
> > Case 130, 131, 140, 141, 150, 151, 160, 161, 170, 171, 180, 181,
> > 190, 191, _
> > 200, 201, 210, 211, 221, 255: B = 255
> > End Select
> >
> > AcadToRGB = RGB(R, G, B)
> >
> > End Function
> >
> >
> >
> >
> > "Russ Green" wrote in message
> > news:D1F8BE90D4633C62355DEE34B7E729A0@in.WebX.maYIadrTaRb...
> > > I have a text box on a form and I would like users to type in the
color
> > > number and have the backgound color of the textbox change to display
> this
> > > color.
> > >
> > > Any ideas?
> > >
> > > Russ
> > >
> > >
> >
> >
>
>

Re: Textbox background color to aci color

Anonymous — Mon, 08 Dec 2003 09:08:52 GMT

Russ, if you're using acad 2004 there is a new TrueColor object that you can
use to do this conversion for you.
--
Bobby C. Jones
www.AcadX.com

"Russ Green" wrote in message
news:D1F8BE90D4633C62355DEE34B7E729A0@in.WebX.maYIadrTaRb...
> I have a text box on a form and I would like users to type in the color
> number and have the backgound color of the textbox change to display this
> color.
>
> Any ideas?
>
> Russ
>
>

Re:

Anonymous — Mon, 08 Dec 2003 09:13:08 GMT

Not using 2004 yet just programming for 2002 right now.

Russ

"Bobby C. Jones" wrote in message
news:ABFF5E8B58AB06889264CD7BB1786AEC@in.WebX.maYIadrTaRb...
> Russ, if you're using acad 2004 there is a new TrueColor object that you
can
> use to do this conversion for you.
> --
> Bobby C. Jones
> www.AcadX.com
>
> "Russ Green" wrote in message
> news:D1F8BE90D4633C62355DEE34B7E729A0@in.WebX.maYIadrTaRb...
> > I have a text box on a form and I would like users to type in the color
> > number and have the backgound color of the textbox change to display
this
> > color.
> >
> > Any ideas?
> >
> > Russ
> >
> >
>
>