FENETRE AUX CONTOURS PERSONNALISABLES PAR SIMPLE SÉLECTION D'UN MASQUE BMP
_120_
Messages postés
15
Date d'inscription
samedi 11 novembre 2000
Statut
Membre
Dernière intervention
3 mai 2007
-
7 mars 2006 à 22:34
kekkaishi Messages postés 1 Date d'inscription samedi 18 avril 2009 Statut Membre Dernière intervention 18 avril 2009 - 18 avril 2009 à 11:06
kekkaishi Messages postés 1 Date d'inscription samedi 18 avril 2009 Statut Membre Dernière intervention 18 avril 2009 - 18 avril 2009 à 11: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/36433-fenetre-aux-contours-personnalisables-par-simple-selection-d-un-masque-bmp
https://codes-sources.commentcamarche.net/source/36433-fenetre-aux-contours-personnalisables-par-simple-selection-d-un-masque-bmp
18 avril 2009 à 11:06
j'ai deja commence sur visual basic 2008 express certaines applications.
Cependant ces fichiers au format vpb sont ils compatibles pour ma version de logiciel? etant donne qua louverture il y a une erreur et que lorsque je sauvegarde mes projets ils sont au formats .vbproj
merci davance !
2 oct. 2008 à 18:48
Merci pour l'astuce
3 juin 2007 à 02:17
dans
"SetLayeredWindowAttributes frmMain.hwnd, BackColor, 0, 1"
il me semble qu'il suffit de remplacer le 0 par une valeur comprise entre 0 et 255 (du transparent vers l'opaque) et de mettre 3 à la place de 1
++
3 juin 2007 à 00:51
Je voulais savoir si il était possible de gérer en même temps une transparence, plus ou moins importante, de la form, dans sa totalité ? Et donc de pouvoir "découper" les contours de la form et donner un aspect transparent à la form?
@+
10 mars 2006 à 22:16
Encore une solution SANS le PictureBox !
On peut encore simplifier le code et supprimer carrément le PictureBox Mask ainsi que la procédure CreateMask.
Il suffit de placer la propriété BackColor de la Form à la couleur que l'on veut transparente sur l'image (ici le vert).
Supprimer la déclaration GetPixel devenue inutile.
Dans Form_Load uniquement ceci :
Dim Attrib As Long
Attrib = GetWindowLong(frmMain.hwnd, -20)
SetWindowLong frmMain.hwnd, -20, Attrib Or &H80000
SetLayeredWindowAttributes frmMain.hwnd, BackColor, 0, 1
Et ça marche !!!
Encore merci pour ce code génial.
@+
9 mars 2006 à 14:53
Superbe !
Ca c'est du léger.
Afin éviter le souci que nous explique F8BPZ donc de voir tous les contrôles à la création, on peut placer l'image du masque sur la Form et ne rien mettre dans le PictureBox (Mask) puis le positionner aux coordonnées 0 ,0 de la Form avec pour dimensions 120 x 120 twips donc tout petit.
On peut également mettre la Form juste aux dimensions de l'image.
Ensuite dans Form_Load on met uniquement ce code :
Mask.Picture = Me.Picture
CreateMask
@+
9 mars 2006 à 09:40
(ce n'est pas parcequ'on charge une source qu'on ne doit plus réfléchir, hihi).
Je vais donc appliquer cette méthode.
Merci encore
9 mars 2006 à 09:33
La nouvelle source est nettement plus avantageuse quand meme : as tu essayé de charger un wallpaper comme image avec l'ancienne source ? Moi ça a mi 30sec avant de créer le masque et quand j'ai voulu déplacer la fanêtre, j'ai du reboot mon pc :S ... alors qu'avec celle-ci, meme avec un wallpaper la masque se crée en un claquement de doigt et pour déplaceer la fenetre c'est parfaitement fluide
9 mars 2006 à 08:31
Beaucoup plus simple en effet mais moins pratique je trouve...
En effet, si on se sert de cette méthode pour faire une zone de travail aux formes agréables, il faudra placer des boutons, des labels, .....
Dans l'ancienne source c'était facile pour placer tout ces éléments car le mask était représenté sur la forme. Tandis que maintenant on doit le faire un peu au pif. Car si on place tout ces objets sur le masque, ils se retrouvent dans la picture box et n'apparaissent pas à l'éxécution.
Donc pour ma part je continue d'utiliser l'ancienne source qui est excellente.
(ou alors il y a une autre possibilité, je suis à l'écoute)
@+
9 mars 2006 à 08:02
Encore bravo.
9 mars 2006 à 00:43
J'espère que ça vous plaît maintenant !
8 mars 2006 à 23:42
Ok aussi pour le fait de n'avoir qu'une seule image, c'est tout con pourtant... pourquoi j'y ai pas pensé ??!! ;)
Thx pour vos commentaires
8 mars 2006 à 20:38
Je confirme l'inutilité du label MoveForm. D'autre part, il est également possible de n'avoir qu'une seule image (ie picturebox vide donc programme plus léger après compil.).
Grossièrement, ça donnerait
...
Mask.Picture = Form1.Picture
lngTransColor& = GetPixel(Mask.hDC, 0, 0)
...
avec dans Form1.Picture l'image "masquée".
8 mars 2006 à 14:49
quelqu'un sait il le faire ?
8 mars 2006 à 13:23
Après quelques petits essais, je puis suggérer ceci :
Le Label MoveForm n'est pas vraiment nécessaire, il suffit de placer le même code dans l'évenement Form_MouseDown pour obtenir le même résultat, alors qu'avec le Label on ne peut plus avoir accès aux évenements souris sur la fenêtre.
Ceci dit, celà n'enlève rien à la qualité de ce programme qui rest exellent.
@+
8 mars 2006 à 11:33
Très bon code.
A+
8 mars 2006 à 08:32
Vraiment excellent, je suis ravi, c'est exactement ce que je cherchais. Jusqu'alors je n'avais réussi qu'à faire des formes simples (carrés,triangles,ellipses) mais maintenant je n'ai plus de limites. Un grand merci donc...
@+
7 mars 2006 à 23:20
Pour la barre de tache, Oup's, j'ai pas été assez rapide !
@+
7 mars 2006 à 23:18
Pas mal du tout, j'avais fait un truc pour obtenir un résultat similaire il y a quelques temps (http://www.vbfrance.com/codes/CREER-REGIONS-COMPLEXES-POUR-FEUILLE_35461.aspx), mais j'avoue que ton idée est plus rapide à mettre en oeuvre que la mienne.
Pour que ton prog soit visible dans la barre des tâches après avoir mis BorderStyle à 0, il faut que tu place ensuite la propriété ShowInTaskbar à True. Le fait de mettre BorderStyle à 0 la place automatiquement sur False, à toi donc de modifier ensuite cette valeur (même chose pour les boutons d'agrandissement ou de réduction lorsque tu place BorderStyle à 1 (FixedSingle).
@+
7 mars 2006 à 22:47
Barre de tâches -> Propriété ShowInTaskBar de ta form à True !
Je vais aller jeter un petit coup d'oeil à ta source maintenant...
Bonne continuation.
7 mars 2006 à 22:34
Comment faire pour qu'il apparaisse dans la barre des tâches ??? Parce que le fait de mettre BorderStyle à 0, ça engendre qu'il n'apparaît pas dans la barre des tâches.
Comment faire ?