détection de clickRésolu

Question

Bonjour j'ai deux actions diff&#233;rentes a &#233;ffectuer lorsque je clique sur une image.


J'aimerais que la premi&#232;re action soit &#233;ffectu&#233;e lorsque je clique a gauche et que la seconde soit &#233;ffectu&#233; lorsque je clique a droite.


J'ai tent&#233; avec ce module:


Private Sub Image2_Click(Index As Integer)


End Sub

Mais je n'arrive pas a diff&#233;rencier les deux cliques.

Est ce que qqn peut m'aider svp?

cs_CanisLupus · Accepted Answer

Salut, regarde MouseDown et MousUp, l&#224; tu pourras t&#233;tecter quel bouton est enfonc&#233;.

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

PCPT · Answer

en effet, soit tu agis sur le MouseUp (donc juste avant le click), avec Button = 1 = Left, = 2 = right, soit tu gardes le button au MouseUp en variable et tu la relis lors du click.

++
PCPT

crenaud76 · Answer

pcpt < Désolé de te contredire une nouvelle fois ... mais l'evt MouseUp() se déclenche après le Click() (il se produit en fait au moment ou on relache le bouton)
C'ets le MouseDown() qui se produit avant le Click() (en fait au moment ou on appuie sur le bouton.

snake57 < Pour info et pour être précis au niveau du vocabulaire ...
Private Sub Image2_Click(Index As Integer)
... n'est pas un "module" mais un "évènement"

Christophe

jpleroisse · Answer

Bonjour,

Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
Label1.Visible = False
End If
End Sub

Private Sub Image1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
Label1.Visible = True
End If
End Sub

jpleroisse

Si une r&#233;ponse vous convient, cliquez r&#233;ponse Accept&#233;e

PCPT · Answer

CRenaud > ne soit pas désolé, contredit moi juste si tu en es CERTAIN Private Sub Form_Click() Debug.Print "click" End Sub Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Debug.Print "down" End Sub Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) Debug.Print "up" End Sub Coloration syntaxique automatique [AFCK] TRACE : down up click PCPT

econs · Answer

pcpt > Avec ce code, tu comprends mieux ce que voulais dire
crenaud !! T'inqui&#232;tes pas, il est g&#233;n&#233;ralement certain de ce qu'il dit
:)





Note : Ton exemple d&#233;montre bien que Click = Down + Up, quel que soit le temps qui s'&#233;coule entre les deux ev&#232;nements.




Manu
-------------------------------------------
Une question bien pos&#233;e, c'est une chance de r&#233;ponse bien adapt&#233;e.

crenaud76 · Answer

Sans rancune pcpt ??

Christophe

econs < Dans le genre "gars qui est sûr de ce qu'il dit" .. tu est pas mal non plus toi !!!

PCPT · Answer

Econs -> avec le code que je copie pour montrer que le UP arrive AVANT le CLICK, JE comprend mieux que j'ai tord?
bah vla' autre chose....

Note : le topic demande la diff&#233;renciation entre le click droit et le click gauche, je ne vois pas le rapport avec le temps entre ces 2 &#233;v&#232;nements

ps : MouseDown sur une Picture, d&#233;place la souris, bouton enfonc&#233;, hors de la Pic, puis lache le bouton. le MouseUp aura lieu. mais pas le Click.

++
PCPT

cs_snake57 · Answer

Merci pour toute ces r&#233;ponses. Mais inutile de vous engueul&#233; pour rien.

Détection de click

9 réponses