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