Bonsoir,

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.

@+

Bonjour,

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

@+

Bonjour,

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.

@+

Bonsoir,

Pour la barre de tache, Oup's, j'ai pas été assez rapide !

@+

Bonjour,

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).

@+