Déplacer sa "form" (fenêtre)

[mars073]

Bonjour,
Je vais vous expliquez comment déplacer votre fenêtre avec un outil ou avec la fenêtre elle même, utile quand vous voulez faire un fenêtre personnalisé.

fichiers KDO:
-le bouton Réduire:
-le bouton Niveau inférieur:
-le bouton Niveau supérieur:
-le bouton Fermer: 
-une mini-image de fond =p: 

1.Ouvrez Visual Basic, puis faites un double-clique sur l'objet ou la forme qui servira à faire bouger la fenêtre...

3.normalement vous aurez ceci (load) un peut haut dessus a droite:
modifier le en "MouseDown", ce qui va créer un deuxième code supprimez le premier (load).

4.Mettez le code suivant après "Public Class [nom_de_la_form]":

 Private Declare Function ReleaseCapture Lib "user32" () As Integer
    Private Const HTCAPTION As Integer = 2
    Private Const WM_NCLBUTTONDOWN As Integer = &HA1S
    Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, ByRef lParam As Integer) As Integer

5.De retour au code "mousedown", vous mettez le code suivant dedans:

If e.Button = Windows.Forms.MouseButtons.Left Then
            ReleaseCapture()
            SendMessage(Me.Handle.ToInt32, WM_NCLBUTTONDOWN, HTCAPTION, 0)

Ps:Quelques code:
-Pour fermer la fenêtre:

Me.close

ou l'application compléte:

End

-Pour réduire(attention! le code peut bugé et faire réduire mais hors de la barre de tâche):

Me.WindowState = FormWindowState.Minimized

-Pour mettre au niveau inférieur:

Me.WindowState = FormWindowState.Normal

-Pour le niveau supérieure:

 Me.WindowState = FormWindowState.Maximized

Conseil:
-Si vous mettez une image de fond mettez une couleur de fond puis ajoutez la comme couleur de transparence dans les paramètres de la form

Bonne programmation à tous!
Cordialement,
Mars073

[Azad]

Merci du partage.

+1 Rep.