Discussion :

[Fundu31]

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

[Pol63]

on ne fait pas une boucle sur le thread principal
tu rentres dedans sur le clic droit, et tu veux sortir sur le clic gauche
or le clic gauche doit lever un évènement, mais cet évènement attend que tu sois sorti de cette sub pour se déclencher, donc jamais ...

il faut faire ca autrement

[Fundu31]

Merci en tout cas de ta réponse, mais sur quel thread faut-elle la mettre alors ?

[Prisson]

Bonjour,
je ne vois pas pourquoi tu utilises la boucle Do...Loop
Tu pourrais tout simplement utiliser l'instruction If..............Else
et ton probleme sera resolu
c'est-à-dire if (cas de right click)
else (pour l'autre cas)

[Fundu31]

La boucle sert à actualiser la position du bouton sur la souris

[ZenZiTone]

Le plus simple serait, selon moi, de bouger ton bouton en même temps que ta souris. Et pour ça, tu peux utiliser l'événement MouseMove. Dans ton cas, il faudrait lier l'événement au click droit et le délier au click gauche.