DÉPLACER UN FORMULAIRE SANS BARRE DE TITRE

''explication: à placer dans les déclarations privées du formulaire
    Private _DecX As Double 'utilisé pour calculer le décalage entre le curseur de la souris et le formulaire
    Private _DecY As Double 'utilisé pour calculer le décalage entre le curseur de la souris et le formulaire

''explication: gestion du déplacement (évènement mousemove du formulaire)
    Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove
        If e.Button = MouseButtons.Left Then 'si bouton gauche
            If Me.MouseButtons = MouseButtons.Left Then 'si bouton gauche (sécurité)
                MyBase.DesktopLocation = New System.Drawing.Point(Me.MousePosition.X - Me._DecX, Me.MousePosition.Y - Me._DecY) 'déplacement du formulaire
            End If
        End If
    End Sub

''explication: gestion du décalage entre la position de la souris et la position du formulaire (évènement mousedown du formulaire)
    Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown
        'calcul du décalage entre la position du formulaire et la position de la souris
        Me._DecX = Me.MousePosition.X - Me.DesktopLocation.X
        Me._DecY = Me.MousePosition.Y - Me.DesktopLocation.Y
    End Sub

Télécharger le zip