README.md

Description

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

More Info

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.

Submitted On
By	Limbo
Level	Beginner
User Rating	4.9 (39 globes from 8 users)
Compatibility	VB 3.0, VB 4.0 (16-bit), VB 4.0 (32-bit), VB 5.0, VB 6.0, VB Script, ASP (Active Server Pages) , VBA MS Access, VBA MS Excel
Category	Coding Standards
World	Visual Basic
Archive File

Source 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