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

Sosteneteci!