0/5 (2 avis)
Vue 5 834 fois - Téléchargée 389 fois
'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
12 janv. 2003 à 11:54
11 janv. 2003 à 16:33
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.