Détection de click

Résolu
cs_snake57 Messages postés 204 Date d'inscription vendredi 19 novembre 2004 Statut Membre Dernière intervention 1 novembre 2011 - 22 sept. 2005 à 13:23
cs_snake57 Messages postés 204 Date d'inscription vendredi 19 novembre 2004 Statut Membre Dernière intervention 1 novembre 2011 - 27 sept. 2005 à 19:04
Bonjour j'ai deux actions différentes a éffectuer lorsque je clique sur une image.


J'aimerais que la première action soit éffectuée lorsque je clique a gauche et que la seconde soit éffectué lorsque je clique a droite.


J'ai tenté avec ce module:


Private Sub Image2_Click(Index As Integer)


End Sub

Mais je n'arrive pas a différencier les deux cliques.

Est ce que qqn peut m'aider svp?

9 réponses

cs_CanisLupus Messages postés 3757 Date d'inscription mardi 23 septembre 2003 Statut Membre Dernière intervention 13 mars 2006 21
22 sept. 2005 à 13:28
Salut, regarde MouseDown et MousUp, là tu pourras tétecter quel bouton est enfoncé.

-------------------------------------------------
Dresseur de puces, .... normal pour un loup !?
3
PCPT Messages postés 13272 Date d'inscription lundi 13 décembre 2004 Statut Membre Dernière intervention 3 février 2018 47
22 sept. 2005 à 13:31
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
0
crenaud76 Messages postés 4172 Date d'inscription mercredi 30 juillet 2003 Statut Membre Dernière intervention 9 juin 2006 28
22 sept. 2005 à 13:36
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
0
jpleroisse Messages postés 1788 Date d'inscription mardi 7 novembre 2000 Statut Membre Dernière intervention 11 mars 2006 27
22 sept. 2005 à 13:39
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éponse vous convient, cliquez réponse Acceptée
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
PCPT Messages postés 13272 Date d'inscription lundi 13 décembre 2004 Statut Membre Dernière intervention 3 février 2018 47
22 sept. 2005 à 14:27
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


<SMALL> Coloration syntaxique automatique [AFCK]</SMALL>


TRACE :

down
up
click

PCPT
0
econs Messages postés 4030 Date d'inscription mardi 13 mai 2003 Statut Membre Dernière intervention 23 décembre 2008 25
22 sept. 2005 à 16:12
pcpt > Avec ce code, tu comprends mieux ce que voulais dire
crenaud !! T'inquiètes pas, il est généralement certain de ce qu'il dit
:)





Note : Ton exemple démontre bien que Click = Down + Up, quel que soit le temps qui s'écoule entre les deux evènements.




Manu
-------------------------------------------
Une question bien posée, c'est une chance de réponse bien adaptée.
0
crenaud76 Messages postés 4172 Date d'inscription mercredi 30 juillet 2003 Statut Membre Dernière intervention 9 juin 2006 28
22 sept. 2005 à 16:21
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 !!!
0
PCPT Messages postés 13272 Date d'inscription lundi 13 décembre 2004 Statut Membre Dernière intervention 3 février 2018 47
22 sept. 2005 à 16:23
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érenciation entre le click droit et le click gauche, je ne vois pas le rapport avec le temps entre ces 2 évènements

ps : MouseDown sur une Picture, déplace la souris, bouton enfoncé, hors de la Pic, puis lache le bouton. le MouseUp aura lieu. mais pas le Click.

++
PCPT
0
cs_snake57 Messages postés 204 Date d'inscription vendredi 19 novembre 2004 Statut Membre Dernière intervention 1 novembre 2011
27 sept. 2005 à 19:04
Merci pour toute ces réponses. Mais inutile de vous engueulé pour rien.
0
Rejoignez-nous