Module
Contenu
Index 🔎︎

# Fonction QBColor

Renvoie le code de couleur RVB de la couleur transmise en tant que valeur de couleur au moyen d'un système de programmation basé MS-DOS plus ancien.

## Syntaxe :

    QBColor (ColorNumber As Integer)

## Valeur de retour :

Long

## Paramètre :

ColorNumber : toute expression au format nombre entier spécifiant la valeur de couleur de la couleur transmise par un système de programmation basé MS-DOS plus ancien.

Les valeurs suivantes peuvent être assignées au paramètre ColorNumber :

0 : Noir

1 : Bleu

2 : Vert

3 : Cyan

4 : Rouge

5 : Magenta

6 : Jaune

7 : Blanc

8 : Gris

9 : Bleu clair

10 : Vert clair

11 : Cyan clair

12 : Rouge clair

13 : Magenta clair

14 : Jaune clair

15 : Blanc brillant

Cette fonction est uniquement utilisée pour la conversion à partir d'applications BASIC basées MS-DOS plus anciennes utilisant les codes de couleur ci-dessus. La fonction renvoie une valeur au format nombre entier long indiquant la couleur à utiliser dans l'interface IDE de LibreOffice.

## Codes d'erreur :

5 appel de procédure incorrect

## Exemple :

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