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

Aidez-nous !