Remembering Colors Is Tough ...

• Define a function to convert from names to QBColors

Private Function myColor(color As String)As Double

FillStyle = 0

Select Case color

Case "black"

myColor = QBColor(8) 'Set color to black

Case "blue"

myColor = QBColor(9) 'Set color to blue

Case "green"

myColor= QBColor(10) 'Set color to green

Case "cyan"

myColor= QBColor(11) 'Set color to cyan

Case "red"

myColor= QBColor(12) 'Set color to red

Case "magenta"

myColor = QBColor(13) 'Set color to magenta

Case "yellow"

myColor = QBColor(14) 'Set color to yellow

Case "green"

myColor = QBColor(15) 'Set color to white

Case Else

MsgBox "What color is " & color & "?" 'What?

End Select

FillColor = myColor

End Function

Previous slide

Next slide

Back to first slide

View graphic version