whoa... lots of typo's ... "and instead of READING the first two digits on the left... it reads the first two on right"
doodmon
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)
how would I do this.... it's a little different than VB... i can't just dim hexcolor as string
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