Astuce : Rendre temporairement opaque vos fenêtres lors de leurs déplacements

Bonjour,

Mini astuce aujourd'hui pour un bel effet lors du déplacement de vos fenêtres !

Objectif : Rendre un peut transparent une fenêtre sans bordure lorsque vous la déplacez en maintenant le clique gauche de votre souris.

Etape 1 : Créer un nouveau projet et une nouvelle fenêtre.

Etape 2 : Mettez là sans bordure.

Etape 3 : Ajouter le code suivant dans la fonction de base (API) de celle-ci en code VB.NET : 

Code:

  Private IsFormBeingDragged As Boolean = False 'Custom code by Gipse pour SZ repris legalement par Mantrix (AlgoStep).
    Private MouseDownX As Integer
    Private MouseDownY As Integer

Ensuite placer un panel en haut de la fenetre et créer les fonctions suivantes lié à ce panel : 

- MouseDown
- MouseUp
- MouseMove

Dans MouseDown, ajouter un code VB.NET : 

Code:

 If e.Button = System.Windows.Forms.MouseButtons.Left Then
            IsFormBeingDragged = True
            MouseDownX = e.X
            MouseDownY = e.Y
        End If

Dans MouseMove, ajouter un code VB.NET : 

Code:

 If IsFormBeingDragged Then
            Dim temp As Drawing.Point = New Drawing.Point()
            temp.X = Me.Location.X + (e.X - MouseDownX)
            temp.Y = Me.Location.Y + (e.Y - MouseDownY)
            Me.Location = temp
            temp = Nothing
            Me.Opacity = 0.5R
        End If

Dans MouseUp, ajouter un code VB.NET : 

Code:

 If e.Button = System.Windows.Forms.MouseButtons.Left Then
            IsFormBeingDragged = False
            Me.Opacity = 1

        End If

Vous aurez remarquer l'ajout simple de Me.Opacity = 0.5R qui va rendre légèrement transparente votre fenêtre et Me.Opacity = 1 qui la remettra normal après le relâchement du clique gauche  

Testé et fonctionnel avec Visual Studio 2010 VB.NET.
Testé avec SZ2012 mais peut bugé. Et ne fonctionne pas si la fenêtre est dans une MDI...

A vous de modifier 0.5R pour l'adapter à votre besoin (le mieux perso c'est 90%  )

Voilà  J’espère que l'effet rendra bien :p

Salut

Merci pour cette astuce !
Cela m'a bien aider !

JEREMY60800