Détection de click [Résolu]

Signaler
Messages postés
204
Date d'inscription
vendredi 19 novembre 2004
Statut
Membre
Dernière intervention
1 novembre 2011
-
Messages postés
204
Date d'inscription
vendredi 19 novembre 2004
Statut
Membre
Dernière intervention
1 novembre 2011
-
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

Messages postés
3757
Date d'inscription
mardi 23 septembre 2003
Statut
Modérateur
Dernière intervention
13 mars 2006
16
Salut, regarde MouseDown et MousUp, là tu pourras tétecter quel bouton est enfoncé.

-------------------------------------------------
Dresseur de puces, .... normal pour un loup !?
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 195 internautes nous ont dit merci ce mois-ci

Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
41
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
Messages postés
4172
Date d'inscription
mercredi 30 juillet 2003
Statut
Membre
Dernière intervention
9 juin 2006
25
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
Messages postés
1788
Date d'inscription
mardi 7 novembre 2000
Statut
Membre
Dernière intervention
11 mars 2006
25
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
Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
41
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
Messages postés
4030
Date d'inscription
mardi 13 mai 2003
Statut
Modérateur
Dernière intervention
23 décembre 2008
22
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.
Messages postés
4172
Date d'inscription
mercredi 30 juillet 2003
Statut
Membre
Dernière intervention
9 juin 2006
25
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 !!!
Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
41
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
Messages postés
204
Date d'inscription
vendredi 19 novembre 2004
Statut
Membre
Dernière intervention
1 novembre 2011

Merci pour toute ces réponses. Mais inutile de vous engueulé pour rien.