HTML to VB color converter - A must have for web programmers!
I have a program I'm working on right now where the user settings for the app are done on a website. What I didn't realize was that with HTML colours being stored in RRGGBB format, you can't automatically use it in VB, because VB uses the &HBBGGRR format. Here's a little function to bring back the right colour.
AI
สรุปโดย AI: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.
ซอร์สโค้ด
<font size="2">Function MakeVBColour(hColor) As Long<br>
' 20010509 BWM - Used to flip the <br>
' #RRGGBB HTML colour format to the<br>
' VB-style &HBBGGRR format<br>
' Note: the variable 'RED' refers to 'BLUE'<br>
' in HTML, and 'BLUE' refers to 'RED' in HTML.<br>
' There's no standard.<br>
Dim Red As Long<br>
Dim Green As Long<br>
Dim Blue As Long<br>
Dim sRed As String<br>
Dim sBlue As String<br>
Dim sGreen As String<br>
' Fill a long variable with the colour
<br>
hColor = CLng(hColor)<br>
' Separate the colours into their own variables<br>
Red = hColor And 255<br>
Green = (hColor And 65280) \ 256<br>
Blue = (hColor And 16711680) \ 65535<br>
' Get the hex equivalents<br>
sRed = Hex(Red)<br>
sBlue = Hex(Blue)<br>
sGreen = Hex(Green)<br>
' Pad each colour, to make sure it's 2 chars<br>
sRed = String(2 - Len(sRed), "0") & sRed<br>
sBlue = String(2 - Len(sBlue), "0") & sBlue<br>
sGreen = String(2 - Len(sGreen), "0") & sGreen<br>
'reassemble' the colour<br>
MakeVBColour = CLng("&H" & sRed & sGreen & sBlue)<br>
End Function<br></font>
ความคิดเห็นดั้งเดิม (3)
กู้คืนจาก Wayback Machine