vjeux
Messages postés92Date d'inscriptionlundi 14 avril 2003StatutMembreDernière intervention 5 décembre 2003 12 oct. 2003 à 01:10
Cool d'avoir amélioré ma source mais une chose me tracasse ... Quand je mets la valeur 255 en couleur numérique j'obtiens du bleu, or si je fais me.backcolor=255 j'obtiens du rouges ...
J'ai fait un pti code pour passer de valeur num à RGB :
Private Sub ColorVB_to_RGB(Backcolor As Long)
Dim B As Long
Dim C As Long
Dim D As Long
B = Int(Backcolor / 65536)
C = Int((Backcolor - 65536 * B) / 256)
D = Int(Backcolor - (B * 65536) - (C * 256))
T(2) = B
T(1) = C
T(0) = D
End Sub
Où t(2) Red, t(1) Green, t(3) = Blue
Sinon tu pourrais mettre comme "evenement" de changement de couleur avec les ScrollBar, l'evenement S_Scroll, comme ca, on peut voir les changements :)
Tu devrais peut-etre mettre un On Error Resume Next sur les actions, car si on met une fausse valeur ca bug :)
Sinon sympa d'avoir mis un bout de code pour garder la fenetre de couleur où elle est :)
Enfin ,tu pourrais mettre un pti label avec les couleurs inversées, je m'explique :
label.backcolor = 2^24 - picture.BackColor
Comme ca, on le verra toujours :)
12 oct. 2003 à 01:10
J'ai fait un pti code pour passer de valeur num à RGB :
Où t(2) Red, t(1) Green, t(3) = Blue
Sinon tu pourrais mettre comme "evenement" de changement de couleur avec les ScrollBar, l'evenement S_Scroll, comme ca, on peut voir les changements :)
Tu devrais peut-etre mettre un On Error Resume Next sur les actions, car si on met une fausse valeur ca bug :)
Sinon sympa d'avoir mis un bout de code pour garder la fenetre de couleur où elle est :)
Enfin ,tu pourrais mettre un pti label avec les couleurs inversées, je m'explique :
label.backcolor = 2^24 - picture.BackColor
Comme ca, on le verra toujours :)
Bon boulot :)