Retrouver le code couleur pour qbcolor

Télécharger le projet
Commenter

Description

pour debutant!
ce cette source permet de touver la couleur correspondante a un chfre de 0 a 15 en utilisant QBColor
permet aussi d'avoir le nunéro de la couleur
c'est vrai il y a plus simple, en copiant collant le &H******H
mais peut permettre de comprendre la marche a sivre pour un changement de couleur automatic par exemple!

Source / Exemple : 


'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 souvenir
Label1.Caption = "La couleur par index est: Label1.BackColor = QBColor(" & Index & ")" _
& vbCrLf & "ou : Label1.BackColor = " & Color 'ecrit les info dans le label
End Sub
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (lucky2222)