Retrouver le code couleur pour qbcolor

Soyez le premier à donner votre avis sur cette source.

Vue 5 393 fois - Téléchargée 354 fois

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

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Messages postés
2865
Date d'inscription
samedi 2 novembre 2002
Statut
Membre
Dernière intervention
11 mai 2009
9
ouais comme tu dit ca sert pour les debutants... mais c pratik, moi je savais jamais les numero des couleurs... maintenant oui... :)
Messages postés
399
Date d'inscription
jeudi 31 janvier 2002
Statut
Membre
Dernière intervention
6 septembre 2004

mouais, pourquoi pas... Et comme je le dis souvent : c'est pas pire que les msgbox !

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.