POUR FAIRE UN DÉGRADÉ DE COULEURS SUR UNE FORM

Messages postés
488
Date d'inscription
lundi 15 septembre 2003
Statut
Membre
Dernière intervention
21 avril 2009
-
Messages postés
4822
Date d'inscription
lundi 11 novembre 2002
Statut
Membre
Dernière intervention
15 novembre 2016
-
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

Messages postés
4822
Date d'inscription
lundi 11 novembre 2002
Statut
Membre
Dernière intervention
15 novembre 2016
15
Salut Polm,

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
Messages postés
232
Date d'inscription
samedi 11 mai 2002
Statut
Membre
Dernière intervention
27 octobre 2007

salut, ta source est pas trop mal
j en ai fait une aussi, si tu veux allez la voir : http://www.vbfrance.com/code.aspx?ID=3265
a+
Messages postés
267
Date d'inscription
lundi 22 septembre 2003
Statut
Membre
Dernière intervention
27 novembre 2005

ton pb, c'est que la fonction hex ne formatte pas la valeur sur un nombre de caractere fixe. pour que tu n'ai pas de pb, il faudrais que le noir (commondialog1.color rendant 0) soit converti en "000000"

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
Messages postés
267
Date d'inscription
lundi 22 septembre 2003
Statut
Membre
Dernière intervention
27 novembre 2005

ca a l'air pas mal, je vais download pour voire mieux :-D
Messages postés
33
Date d'inscription
samedi 13 avril 2002
Statut
Membre
Dernière intervention
17 novembre 2003

je me disait ... :)
Afficher les 15 commentaires