QBColor Function

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