Module
Contents
Index 🔎︎

# QBColor Function

Torna el codi de color RGB del color passat com a valor de color a través d'un sistema de programació anterior basat en l'MS-DOS.

## Sintaxi:

    QBColor (ColorNumber As Integer)

## Valor de retorn:

Llarg

## Paràmetre:

ColorNumber: Qualsevol expressió d'enter que especifica el valor de color passat per un sistema de programació anterior basat en l'MS-DOS.

Es poden assignar els valors següents a ColorNumber:

0 : Negre

1 : Blau

2 : Verd

3 : Cian

4 : Roig

5 : Magenta

6 : Groc

7 : Blanc

8 : Gris

9 : Blau clar

10 : Verd clar

11 : Cian clar

12 : Roig clar

13 : Magenta clar

14 : Groc clar

15 : Blanc brillant

Esta funció només s'utilitza per convertir a partir d'aplicacions anteriors de l'MS-DOS basades en el BASIC que utilitzen els codis de color anteriors. La funció torna un valor d'enter llarg que indica el color que cal utilitzar a l'EID del LibreOffice.

## Codis d'error

5 La crida al procediment no és vàlida

## Exemple:

    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