Databases Reference
In-Depth Information
The following subroutine will create a color map of the 8 VB color constants. It can be run by
selecting
A
DA->Chapter
5
->Show
V
B Color Map from the menu.
Sub DisplayVBColorCodes(wkbook, wksheet)
'Display All the Current Colors in the Color Palette
Workbooks(wkbook).Worksheets(wksheet).Activate
Dim vbColor As Integer, ColorNames As String
Dim Colors() As String, vbColorValue() As Long
Dim oddmult As Integer
ColorNames =
"vbBlack,vbRed,vbGreen,vbYellow,vbBlue,vbMagenta,vbCyan,vbWhite"
Colors() = Split(ColorNames, ",")
'Create Headers
Cells(1, 1) = "Backgnd"
Cells(1, 2) = "Color"
Cells(1, 3) = "Bin"
Cells(1, 4) = "Hex"
For vbColor = 1 To 8
ReDim Preserve vbColorValue(vbColor)
Select Case vbColor
Case 1
vbColorValue(vbColor) = 0
Case 2
vbColorValue(vbColor) = 255
Case Else
If
IsOdd
(vbColor)
= True Then
'Odd Reliant Upon Index
vbColorValue(vbColor) = vbColorValue(vbColor - 2 ^
oddmult) * (255 + ((2 ^ oddmult) - oddmult))
oddmult = oddmult + 1
Else
'Even Always Same Formula
vbColorValue(vbColor) = vbColorValue(vbColor - 1) + 255
End If
End Select
Debug.Print vbColor, Colors(vbColor - 1),
vbColorValue(vbColor)
'Background
Cells(vbColor + 1, 1).Interior.Color =
vbColorValue(vbColor)
Cells(vbColor + 1, 1).Value = Colors(vbColor - 1)
'Text Color
Cells(vbColor + 1, 2).Font.Color = vbColorValue(vbColor)
Cells(vbColor + 1, 2).Value = "[" & Colors(vbColor - 1) & "]"
