POUR FAIRE UN DÉGRADÉ DE COULEURS SUR UNE FORM
cs_radada
Messages postés
488
Date d'inscription
lundi 15 septembre 2003
Statut
Membre
Dernière intervention
21 avril 2009
-
25 oct. 2003 à 15:39
cs_Exploreur Messages postés 4821 Date d'inscription lundi 11 novembre 2002 Statut Membre Dernière intervention 15 novembre 2016 - 7 déc. 2006 à 19:51
cs_Exploreur Messages postés 4821 Date d'inscription lundi 11 novembre 2002 Statut Membre Dernière intervention 15 novembre 2016 - 7 déc. 2006 à 19:51
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/17372-pour-faire-un-degrade-de-couleurs-sur-une-form
https://codes-sources.commentcamarche.net/source/17372-pour-faire-un-degrade-de-couleurs-sur-une-form
7 déc. 2006 à 19:51
Ta source est trop cool...Je voudrais savoir une chose SVP, comment on fait pour appliquer le dégradé à toutes une séries de form d'un projet? En faite je voudrais donner la possibilité à l'utilisateur de choisir son interface graphique de ses feuilles?
Merci d'avance de ta réponse et de ton aide...
A+
10/10
Exploreur
3 nov. 2003 à 15:57
j en ai fait une aussi, si tu veux allez la voir : http://www.vbfrance.com/code.aspx?ID=3265
a+
29 oct. 2003 à 01:59
tu as fais :
R1 = Val("&H" & (Right(Hex(xx), 2)))
If Len(Hex(xx)) >4 Then G1 Val("&H" & (Mid(Hex(xx), (Len(Hex(xx))) - 3, 2)))
If Len(Hex(xx)) 6 Then B1 Val("&H" & Left(Hex(xx), 2))
Moi je te propose ceci (k'ai teste et ca marche nickel):
'Formattage du resultat de Hex
xx = CommonDialog1.Color
yy = Hex(xx)
For ii = 1 To 6 - Len(Hex(xx))
yy = "0" & yy
Next
' Extraction des composantes RGB
R1 = Val("&h" & Right(yy, 2))
G1 = Val("&h" & Mid(yy, 3, 2))
B1 = Val("&h" & Left(yy, 2))
et la tu peux t'amuser avec le noir
29 oct. 2003 à 01:32
28 oct. 2003 à 21:42
27 oct. 2003 à 08:52
27 oct. 2003 à 08:51
27 oct. 2003 à 08:04
sinon c tre bien fait mais tu as un probleme avec le noir fait plusieur combinaison et a la fin fait une combinaison avec du noir tu vera ...
mais sinon c tre bien
26 oct. 2003 à 12:01
Voila qelque chose d'utile et de beau !
Je te félicite et te met 10 pour cette source que je vai surement beaucoup utiliser.
Continu comme ca !
tooffy123
26 oct. 2003 à 11:36
26 oct. 2003 à 11:32
Salut @+
26 oct. 2003 à 10:04
Afyn
Navedac
25 oct. 2003 à 15:49
Il fallait le trouver l'algo ; )
25 oct. 2003 à 15:42
25 oct. 2003 à 15:39