[VB.Net] Impossible de sortir d'une boucle

Version imprimable

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:

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 :)

15/07/2016, 19h54
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
18/07/2016, 14h02
Fundu31

Merci en tout cas de ta réponse, mais sur quel thread faut-elle la mettre alors ? :)
18/07/2016, 14h07
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)
18/07/2016, 14h10
Fundu31

La boucle sert à actualiser la position du bouton sur la souris
18/07/2016, 14h22
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.
18/07/2016, 14h34
Fundu31

Je ne vois pas ce que tu veut dire ZenZiTone.
18/07/2016, 14h47
Prisson

Citation:

Envoyé par Fundu31

Je ne vois pas ce que tu veut dire ZenZiTone.

Si je comprends bien il te demande d'utiliser l'evènement 'MouseMove' du formulaire plutot que celui de ton bouton. ce qui me parait somme toute assez logique
tu pourras donc par la suite utiliser l'instruction if ..... else
if pour le cas de click droit et else pour le cas de click gauche
18/07/2016, 15h04
Romka

Ta condition pour sortir de la boucle est "si c'st le bouton gauche"
Ton code ne peut arriver à cet endroit que si la condition au-dessus est vraie, à savoir "si c'est le bouton droit"
Y a comme un problème ;)
Fais comme dit plus haut par les autres, MouseMove par ex.
18/07/2016, 15h16
Fundu31

J'ai réussie le truc avec seulement un timer :P merci à tous !

Citation:

Envoyé par Fundu31

Je ne vois pas ce que tu veut dire ZenZiTone.

Quelque chose comme ça :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Private Sub btn_MouseDown(ByVal sender As Object, ByVal e As MouseEventArgs)
        If e.Button = MouseButtons.Right And Form1.btn = 1 Then
           Addhandler Me.MouseMove, AddressOf MoveButton
        else if e.Button = MouseButtons.Left And Form1.btn = 1 Then
           Removehandler Me.MouseMove, AddressOf MoveButton
        End If
End Sub
 
Private Sub MoveButton()
        LocalMousePosition = Me.PointToClient(Cursor.Position)
        btn.Location = New Drawing.Point(LocalMousePosition.X, LocalMousePosition.Y)
End Sub

Au click droit tu lies ton événement MouseMove à une méthode qui s'occupera de bouger le bouton. Au click gauche tu délies l'événement.