jmfmarques
Messages postés7666Date d'inscriptionsamedi 5 novembre 2005StatutMembreDernière intervention22 août 201427 1 janv. 2007 à 20:28
Plus là ?
Curieux, ces forumeurs qui posent des questions et s"avèrent peu intéressés (moins que ceux qui leur répondents, en tout état de cause) par la réponse !!!
Bon...
on commence l'année... alors...
voilà comment un reconnait un double-click fait avec la molette sur un bouton de commande (ici command1)
Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button <> 4 Then Exit Sub
Const stopclic As Single = 0.5
Static coucou As Single
DoEvents
If Abs(Timer - coucou) < stopclic Then
coucou = Timer - stopclic
MsgBox " là vous avez double-cliqué avec la molette"
Else
coucou = Timer
End If
End Sub
Attention : le Else correspond bien à un simple click, mais ne pas utiliser un msgbox pour le vérifier (c'est évident !... hein ?)
Si tu tiens à le vérifier, ajoute donc un label label1 et ...
Else
coucou = Timer
Label1.Caption = "simple click avec la molette..."
End If
Bon... j'ai fini de mâcher pour toi ton beefsteak...A toi de jouer...
jytest
Messages postés314Date d'inscriptiondimanche 27 novembre 2005StatutMembreDernière intervention22 décembre 2014 1 janv. 2007 à 20:23
Non, peux-tu vraiment m'aider jusqu'au bout ?
Je ne connais pas très bien "MouseUp" ni "MouseDown" !!!
Ce que je veux c'est :
- faire défiler la liste
- cliquer sur une ligne
- double-cliquer sur une ligne
et tout cela par la molette, sachant que je le fais déjà par clavier.
Comment utiliser ce button = 4, comment le gérer ???