Contents

# QBColor Function

Returns the RGB color code of the color passed as a color value through an older MS-DOS based programming system.

### Syntax:

QBColor (ColorNumber As Integer)

### Return value:

Long

### Parameters:

ColorNumber: Any integer expression that specifies the color value of the color passed from an older MS-DOS based programming system.

ColorNumber can be assigned the following values:

0 : Црна

1 : Сина

2 : Зелена

3 : Сино-зелена

4 : Црвена

5 : Пурпурна

6 : Жолта

7 : Бела

8 : Сива

9 : Светлосина

10 : Светлзелена

11 : Светла сино-зелена

12 : Светлоцрвена

13 : Светло пурпурна

14 : Светло жолта

15 : Светлобела

This function is used only to convert from older MS-DOS based BASIC applications that use the above color codes. The function returns a long integer value indicating the color to be used in the LibreOffice IDE.

### Error codes:

5 Invalid procedure call

### Example:

    Sub ExampleQBColor
    Dim iColor As Integer
    Dim sText As String
        iColor = 7
        sText = "RGB= " & Red(QBColor( iColor) ) & ":" & Blue(QBColor( iColor) ) & ":" & Green(QBColor( iColor) )
        MsgBox stext,0,"Color " & iColor
    End Sub