FORM COEUR (REGION ET TRANSPARENCE)
jesusonline
Messages postés
6814
Date d'inscription
dimanche 15 décembre 2002
Statut
Membre
Dernière intervention
13 octobre 2010
-
5 août 2003 à 18:33
jx53 Messages postés 98 Date d'inscription lundi 17 novembre 2008 Statut Membre Dernière intervention 4 septembre 2012 - 16 janv. 2009 à 20:06
jx53 Messages postés 98 Date d'inscription lundi 17 novembre 2008 Statut Membre Dernière intervention 4 septembre 2012 - 16 janv. 2009 à 20:06
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/8132-form-coeur-region-et-transparence
https://codes-sources.commentcamarche.net/source/8132-form-coeur-region-et-transparence
16 janv. 2009 à 20:06
jai mis le code fourni dans le premier dans le form1_load et jai changé les coordoné de point pour avoir la forme que je voulais. ces génial de plu etre pri avec une form carée ou rectangle merci beaucoup!
24 mai 2006 à 16:41
Pareil que les autres : "L'archive est d'un format inconnu ou endommagée" et le lien sur ton site n'existe plus :o(
PS : j'avou qu'à la vu du nom de ton site je ne m'attendai pas à un tel contenu ;o)
@+
5 mai 2004 à 21:19
je le referais
a+
5 mai 2004 à 11:28
++
187
28 mars 2004 à 12:43
tu peut le telecharger ici
http://tresorsdevie.free.fr/fichiers/Form_transparentes.zip
a+, chris
27 mars 2004 à 22:30
pourrais-tu réupload le ZIP parce qu'il me erreur a chaque fois que je veux le dezipper!!! merci
Parce que ça fé un moment que je cherche une source de ce style!!!
11 août 2003 à 15:03
merci a+
11 août 2003 à 01:48
Essaye avec AddCurve plutot que AddPolygon, c'est encore plus joli!
@+ et bonne prog
5 août 2003 à 18:33
Je mets la source pour éviter le zip :)
'Creation d'un tableau de 8 points representant la forme d'un coeur
'(voir fichier .jpg pour principes des points)
Dim pointsFen() As System.Drawing.Point = {New Point(40, 0), New Point(0, 40), New Point(30, 130), New Point(100, 200), New Point(170, 130), New Point(200, 40), New Point(160, 0), New Point(100, 40)}
'instanciation d'un chemin
Dim graphe As New Drawing2D.GraphicsPath()
'on base le chemin sur le tableau de point
graphe.AddPolygon(pointsFen)
'Création de la région à partir de ce chemin
Dim regtransp As New Region(graphe)
'on applique la transparence
Me.Region = regtransp
tt ca dans le form1_load bien sur
Je t'ai mis 10 :)