Activez JavaScript dans le navigateur pour afficher les pages d'aide de LibreOfficeDev

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ètres :

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 LibreOfficeDev.

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