dcsimg
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
Browse DevX
Sign up for e-mail newsletters from DevX


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

WEBINAR:

On-Demand

Building the Right Environment to Support AI, Machine Learning and Deep Learning


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.

 

 

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