by Limbo (2 Submissions)
Category: Coding Standards
Compatability: Visual Basic 3.0
Difficulty: Beginner
Date Added: Wed 3rd February 2021
Rating: 
(8 Votes)
Get some extended color constants. Stuff like vbWhite, vbBlue are great, but even better is vbDarkGreen, vbPaleBlue etc...
Assumes
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.
VBcodersPublic 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
