$hawn
-
22 juin 2000 à 17:36
lucky2222
Messages postés92Date d'inscriptiondimanche 14 juillet 2002StatutMembreDerniè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
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