devxlogo

ColorToHTML – Convert a VB color for use in a HTML page

ColorToHTML – Convert a VB color for use in a HTML page

' convert a VB color code to the ##rrggbb format used in HTML attributesFunction 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

devx-admin

Share the Post: