QBColor, fonction

Remarque : Nous faisons de notre mieux pour vous fournir le contenu d’aide le plus récent aussi rapidement que possible dans votre langue. Cette page a été traduite automatiquement et peut donc contenir des erreurs grammaticales ou des imprécisions. Notre objectif est de faire en sorte que ce contenu vous soit utile. Pouvez-vous nous indiquer en bas de page si ces informations vous ont aidé ? Voici l’article en anglais à des fins de référence aisée.

Renvoie un Long qui représente le code de couleur RVB correspondant au numéro de couleur spécifié.

Syntaxe

QBColor ( couleur )

La couleurargument est un nombre entier compris entre 0 et 15.

Paramètres

L’argument color comporte ces paramètres :

Nombre

Couleur

Nombre

Couleur

0

Noir

8

Gris

1

Bleu

9

Bleu clair

2

Vert

10

Vert clair

3

Cyan

11

Cyan clair

4

Rouge

12

Rouge clair

5

Magenta

13

Magenta clair

6

Jaune

14

Jaune clair

7

Blanc

15

Blanc brillant


Notes

L’argument couleur représente les valeurs de couleur utilisées par les versions antérieures de base (tels que Microsoft Visual Basic pour MS-DOS ou le compilateur Basic). À partir de l’octet le moins significatif, la valeur retournée spécifie les valeurs rouge, vert et bleu utilisées pour définir la couleur appropriée dans le système RVB utilisé par Visual Basic pour Applications.

Exemple

Remarque : Exemples suivants illustrent l’utilisation de cette fonction dans une Visual Basic pour le module d’Applications (VBA). Pour plus d’informations sur l’utilisation de VBA, sélectionnez Référence du développeur dans la liste déroulante en regard de recherche et entrez un ou plusieurs termes dans la zone de recherche.

Cet exemple utilise la fonction QBColor pour modifier la propriété BackColor du formulaire passée comme MyForm à la couleur indiquée par ColorCode. QBColor accepte les valeurs entières comprises entre 0 et 15.

Sub ChangeBackColor (ColorCode As Integer, _
MyForm As Form)
MyForm.BackColor = QBColor(ColorCode)
End Sub
Développez vos compétences dans Office
Découvrez des formations
Accédez aux nouvelles fonctionnalités en avant-première
Rejoignez le programme Office Insider

Ces informations vous ont-elles été utiles ?

Nous vous remercions pour vos commentaires.

Merci pour vos commentaires. Il serait vraisemblablement utile pour vous de contacter l’un de nos agents du support Office.

×