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.

[Fundu31]

Je ne vois pas ce que tu veut dire ZenZiTone.

[Prisson]

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

[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.

[Fundu31]

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

[ZenZiTone]

Je ne vois pas ce que tu veut dire ZenZiTone.

Quelque chose comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.