Abilitare JavaScript nel browser per visualizzare le pagine della Guida di LibreOfficeDev.

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 LibreOfficeDev.

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