Pour faire un dégradé de couleurs sur une form

Soyez le premier à donner votre avis sur cette source.

Vue 3 434 fois - Téléchargée 686 fois

Description

D'abord il faut choisir une couleur puis une autre. Il faut choisir un stile de dégradé et après tu cliques sur dégradé et ca le fait sur le form. c'est tout. Pour la capture: http://site.voila.fr/vbguigui/capture1.jpg. Salut, @+

Source / Exemple :


Dans le ziiiiiiiiip.

Conclusion :


Et voila.

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
4822
Date d'inscription
lundi 11 novembre 2002
Statut
Membre
Dernière intervention
15 novembre 2016
14
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

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.