Login | Register   
RSS Feed
Download our iPhone app
Browse DevX
Sign up for e-mail newsletters from DevX

Tip of the Day
Language: VB3, VB4, VB5, VB6
Expertise: Intermediate
Oct 24, 2003

Format Color for HTML

This function, which converts a color value into a string suitable for HTML, formats an RGB color value, palette index, or system color constant. You accomplish this by breaking out the individual color values for red, green, and blue, then recombining them in the opposite order Windows likes, so HTML renderers will provide the correct color. The call to OleTranslateColor ensures you're using an actual color reference, by dereferencing system color constants or palette indices:

Public Function HtmlHexColor(ByVal ColorValue As _
	Long) As String
	Dim r As Byte
	Dim g As Byte
	Dim b As Byte

	' convert color if needed
	Call OleTranslateColor( _
		ColorValue, 0&, ColorValue)
	' break out color bytes
	r = (ColorValue Mod &H100)
	g = (ColorValue \ &H100) Mod &H100
	b = (ColorValue \ &H10000) Mod &H10000

	' format the return string
	HtmlHexColor = "#" & _
		Right$("0" & Hex$(r), 2) & _
		Right$("0" & Hex$(g), 2) & _
		Right$("0" & Hex$(b), 2)
End Function
Monte Hansen
Comment and Contribute






(Maximum characters: 1200). You have 1200 characters left.



Thanks for your registration, follow us on our social networks to keep up-to-date