1. Accueil
  2. Visual Basic / VB.NET
  3. Sources Visual Basic / VB.NET
  4. Sources Graphique
  5. Pour faire un dégradé de couleurs sur une form

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

Télécharger le projet
Commenter

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.
Télécharger le projet

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Signaler
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
Signaler
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+
Signaler
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
Signaler
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
Signaler
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
S'inscrire maintenant

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.

Du même auteur (cs_polm)