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

Soyez le premier à donner votre avis sur cette source.

Vue 3 549 fois - Téléchargée 696 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
cs_Exploreur Messages postés 4822 Date d'inscription lundi 11 novembre 2002 Statut Membre Dernière intervention 15 novembre 2016 14
7 déc. 2006 à 19:51
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
cs_psycho Messages postés 232 Date d'inscription samedi 11 mai 2002 Statut Membre Dernière intervention 27 octobre 2007
3 nov. 2003 à 15:57
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+
kimmelf2 Messages postés 267 Date d'inscription lundi 22 septembre 2003 Statut Membre Dernière intervention 27 novembre 2005
29 oct. 2003 à 01:59
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
kimmelf2 Messages postés 267 Date d'inscription lundi 22 septembre 2003 Statut Membre Dernière intervention 27 novembre 2005
29 oct. 2003 à 01:32
ca a l'air pas mal, je vais download pour voire mieux :-D
cs_Cortex Messages postés 33 Date d'inscription samedi 13 avril 2002 Statut Membre Dernière intervention 17 novembre 2003
28 oct. 2003 à 21:42
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.