Contenuto

# Funzione QBColor

Restituisce il codice RGB del colore passato come valore attraverso un sistema di programmazione basato su MS-DOS.

### Sintassi:

QBColor (ColorNumber As Integer)

### Valore restituito:

Long

### Parametri:

ColorNumber (NumeroColore): numero intero che specifica il valore del colore passato da un sistema di programmazione basato su MS-DOS.

A ColorNumber si possono assegnare i seguenti valori:

0 : Nero

1 : Blu

2 : Verde

3 : Ciano

4 : Rosso

5 : Magenta

6 : Giallo

7 : Bianco

8 : Grigio

9 : Blu chiaro

10 : Verde chiaro

11 : Ciano chiaro

12 : Rosso chiaro

13 : Magenta chiaro

14 : Giallo chiaro

15 : Bianco luminoso

Questa funzione viene usata solo per eseguire conversioni dalle vecchie applicazioni BASIC basate su MS-DOS che utilizzano i codici di colore sopra indicati. La funzione restituisce un numero intero lungo indicante il colore da utilizzare nell'IDE LibreOffice.

### Codici di errore:

5 Richiamo di procedura non valido

### Esempio:

    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,"Colore " & iColor
    End Sub