Bonjour,

Je rencontre un nouveaux problème que je n'arrive pas à résoudre depuis cette après-midi, je n'arrive pas à sortir de la boucle "Do" si le clic-gauche est effectué.

Voici le code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Private Sub btn_MouseDown(ByVal sender As Object, ByVal e As MouseEventArgs)
        If e.Button = MouseButtons.Right And Form1.btn = 1 Then
            Do
                LocalMousePosition = Me.PointToClient(Cursor.Position)
                btn.Location = New Drawing.Point(LocalMousePosition.X, LocalMousePosition.Y)
                If e.Button = MouseButtons.Left Then
                    Exit Do
                End If
            Loop
        End If
    End Sub
Voilà en espérant avoir été le plus compréhensible possible