Found this at http://www.vb2themax.com/Item.asp?PageID=CodeBank&ID=270, hope it helps.
' convert a VB color code to the ##rrggbb format used in HTML attributes
Function ColorToHTML(ByVal color As Long) As String
' HTML color codes are in the format #RRGGBB (red, green, blue)
' while Hex(color) returns numbers in the format BBGGRR
' therefore we just have to invert the order of the
' hex values of red and blue
Dim tmp As String
tmp = Right$("00000" & Hex$(color), 6)
ColorToHTML = "#" & Right$(tmp, 2) & Mid$(tmp, 3, 2) & Left$(tmp, 2)
End Function
I also found a little prgram at http://www.jsware.net/jsware/picker.html that will probally work as well.
Edited by Flamewave
Topic Options
Post Options
Thanks(0)
