Extended Color Constants

By | 2002-06-01

Get some extended color constants. Stuff like vbWhite, vbBlue are great, but even better is vbDarkGreen, vbPaleBlue etc…

Original Author: CodeJack

Assumptions

I ran across this little tid-bit and thought it would be usefull to others. I can’t remember where I got it, but I’ve had it for a looonggg time.

Code

Public Enum exColorTypes
'vbWhite = &HFFFFFF
vbLightGray = &HE0E0E0
vbGray = &HC0C0C0
vbMediumGray = &H808080
vbDarkGray = &H404040
'vbBlack = &H0
vbPaleRed = &HC0C0FF
vbLightRed = &H8080FF
'vbRed = &HFF
vbMediumRed = &HC0&
vbDarkRed = &H80&
vbBlackRed = &H40&
vbPaleOrange = &HC0E0FF
vbLightOrange = &H80C0FF
vbOrange = &H80FF&
vbMediumOrange = &H40C0&
vbDarkOrange = &H4080&
vbBlackOrange = &H404080
vbPaleYellow = &HC0FFFF
vbLightYellow = &H80FFFF
'vbYellow = &HFFFF
vbMediumYellow = &HC0C0&
vbDarkYellow = &H8080&
vbBlackYellow = &H4040&
vbPaleGreen = &HC0FFC0
vbLightGreen = &H80FF80
'vbGreen = &HFF00
vbMediumGreen = &HC000&
vbDarkGreen = &H8000&
vbBlackGreen = &H4000&
vbPaleCyan = &HFFFFC0
vbLightCyan = &HFFFF80
'vbCyan = &HFFFF00
vbMediumCyan = &HC0C000
vbDarkCyan = &H808000
vbBlackCyan = &H404000
vbPaleBlue = &HFFC0C0
vbLightBlue = &HFF8080
'vbBlue = &HFF0000
vbMediumBlue = &HC00000
vbDarkBlue = &H800000
vbBlackBlue = &H400000
vbPalePurple = &HFFC0FF
vbLightPurple = &HFF80FF
vbPurple = &HFF00FF
'vbMagenta = &HFF00FF
vbMediumPurple = &HC000C0
vbDarkPurple = &H800080
vbBlackPurple = &H400040
End Enum

Author: dwirch

Derek Wirch is a seasoned IT professional with an impressive career dating back to 1986. He brings a wealth of knowledge and hands-on experience that is invaluable to those embarking on their journey in the tech industry.

Leave a Reply

Your email address will not be published. Required fields are marked *

This site uses Akismet to reduce spam. Learn how your comment data is processed.