Guida di LibreOffice 24.8
Restituisce il codice RGB del colore passato come valore attraverso un sistema di programmazione basato su MS-DOS.
QBColor (ColorNumber As Integer)
Long
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.
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