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 : Svartur

1 : Bl谩r

2 : Gr忙nn

3 : Bl谩gr忙nn

4 : Rau冒ur

5 : Fj贸lubl谩r

6 : Gulur

7 : Hv铆tur

8 : Gr谩r

9 : Lj贸sbl谩r

10 : Lj贸sgr忙nn

11 : Lj贸sbl谩r

12 : Lj贸srau冒ur

13 : Lj贸sfl贸lubl谩r

14 : Lj贸sgulur

15 : Sk忙rhv铆tur

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 脫gilt kall 谩 stefju

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

Please support us!