Liste des couleurs

$hawn - 22 juin 2000 à 17:36
lucky2222
Messages postés
92
Date d'inscription
dimanche 14 juillet 2002
Statut
Membre
Dernière intervention
2 octobre 2006
- 14 févr. 2003 à 19:33
Bonjour je voudrai savoir s'il existe une liste assez complète avec toutes les couleurs en Héxadecimal

Merci beaucoup d'avance

2 réponses

-------------------------------
Réponse au message :
-------------------------------

Bonjour je voudrai savoir s'il existe une liste assez complète avec toutes les couleurs en Héxadecimal

Merci beaucoup d'avance
-------------------------------
0
lucky2222
Messages postés
92
Date d'inscription
dimanche 14 juillet 2002
Statut
Membre
Dernière intervention
2 octobre 2006

14 févr. 2003 à 19:33
'²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²

Ce qu'il faut savoir, lorsqu'on passe une instruction pour affecter une valeur à l'une de ces propriétés, c'est qu'il existe pas moins de trois systèmes de couleurs en VB, systèmes que vous pouvez utiliser indifféremment.
'²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²
les couleurs de base, gérées par VB lui-même. Vous en trouverez la liste complète dans l'aide, ainsi que les Constantes VB qui désignent ces couleurs. Cela donnera des instructions du genre :

Form1.BackColor = VbBlack

Il y a huit couleurs accessibles par ce système.
'²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²
Les couleurs de la palette Windows.
Il y en a 16, auxquelles on accède par la fonction QBColor(i), i désignant bien entendu le code de la couleur voulue. Là aussi, voir l'aide pour plus de précisions.

Form1.BackColor = QBColor(i)

'Rappel des argument de couleur de QBColor

'0=Noir
'1=Bleu
'2= Vert
'3=Cyan
'4=Rouge
'5=Magenta
'6=Jaune
'7=Blanc
'8=Gris
'9=BleuClair
'10=VertClaire
'11=CyanClair
'12=RougeClair
'13=MagentaClair
'14=JauneClair
'15=BlancVif
'²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²
La fonction RGB.
C'est de loin la plus puissante, car elle permet de définir une couleur par mélange de Rouge, Bleu, Vert, chacune de ces trois couleurs étant dosée de 0 à 255. C'est évidemment le même principe qu'en HTML, seule la syntaxe pouvant être différente. Par exemple, l'instruction?

Form1.BackColor = RGB(255, 0, 0)

?met Form1 en rouge.
'²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²
La fonction numero de couleur
on peut aussi passer par le numéro de couleur, mais plus du a se souvenir

Form1.BackColor = 1022551

'²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²
'Pour cette source, il faut:
'1 form, 1 label1, 16 commande1(index) avec l'index de 0 à 15
'²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²
Private Sub Command1_Click(Index As Integer)
'dans cette source, c'est l'index du bouton qui deffinira l'index de la couleur
Dim Color
'ici si la couleur du fond est sonbre, met l'ecriture en blanc suivant l'index
If Index < 5 Then Label1.ForeColor = QBColor(15)
If Index > 5 Then Label1.ForeColor = QBColor(0)
Color = Command1(Index).BackColor 'recherche le numéro de la couleur suivant l'index
Label1.BackColor = QBColor(Index) ' met le label a la couleur ayant le meme index que celui du bouton de commande
Label1.BackColor = Color ' on peut aussi passer par le numéro de couleur, mais plus du a se souvenirLabel1.Caption "La couleur par index est: Label1.BackColor QBColor(" & Index & ")" _
& vbCrLf & "ou : Label1.BackColor = " & Color 'ecrit les info dans le label
End Sub
0