Modulo
Contenuto
Indice 🔎︎

# 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

## Parametro:

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