doodmon

doodmon

Joined Member # 1405562
0 Posts 0 Replies 24 Reputation

Thanks guys... I was able to use some of your ideas to get it working... I tested out that script a little more and figured out that if you have blue the HexValue code puts out FF0000 (which is bassackwards in my book RRGGBB) so instead of adding the zeros to the end of it, I added it to the front... and instead of red ing the first two digits on left... i the first two digits on right... here is what I mean: Sub Object_OnTimer54987 Me.textcolor = RGB(171,12,255)

9 Replies 1,120 Views

OK... I'm tryin to single out each color (red, green, blue) from a hex color string... here is my code: sub on_objecttimer456 'get the hexidecimal number of the current color of text hexcolor = hex(me.textcolor) 'find each color red = right(hexcolor,2) green = mid(hexcolor,2,2) blue = left(hexcolor,2) end sub My problem is that if hexcolor has any zeros in it, they don't seem to wanna show in hexcolor... like it auto-trims or somethin... example

9 Replies 1,120 Views