Syntax:
QBColor(num)
Group: Miscellaneous
Description:
Return the appropriate color defined by Quick Basic.
num |
color |
0 |
black |
1 |
blue |
2 |
green |
3 |
cyan |
4 |
red |
5 |
magenta |
6 |
yellow |
7 |
white |
8 |
gray |
9 |
light blue |
10 |
light green |
11 |
light cyan |
12 |
light red |
13 |
light magenta |
14 |
light yellow |
15 |
bright white |
See Also: RGB( ).
Example:
Sub Main
Debug.Print Hex(QBColor(1))
'"800000"
Debug.Print Hex(QBColor(7))
'"C0C0C0"
Debug.Print Hex(QBColor(8))
'"808080"
Debug.Print Hex(QBColor(9))
'"FF0000"
Debug.Print Hex(QBColor(10))
'"FF00"
Debug.Print Hex(QBColor(12))
'"FF"
Debug.Print Hex(QBColor(15))
'"FFFFFF"
End Sub