Discussion :

[damoiselle]

Bonjour
J'ai un bouton et deux fonction associée : le clickage et le double clickage
- une premiere fonction "Bouton_Click"
- une deuxieme fonction "Bouton_DblClick"
Mais je n'arrive pas à activer la deuxième fonction. Seule la première l'est.
Pour réussir à activer la deuxième fonction (double clickage), je suis obligée de mettre le code de la première en commentaire.
Quelqu'un saurait-il comment faire pour que la bonne fonction soit activée, selon que l'on clique ou que l'on double clique ?
Merci

[patbou]

bonsoir,

il y a la possibilité d utiliser ces 2 evenements "en meme temps"
mais pour cela je crois qu il faut passer par la fonction api gettickcount
recherches ds le forum ce sujet a deja ete traité

je regarde aussi de mon coté...

malgré tout je suis d accord avec ucfoutu (pour ceci uniquement)
essaye d utiliser un autre evenement

[scully2501]

Bonsoir Damoiselle,

Pourrais tu stp nous montrer ton code pour voir ce qui ne va pas?

J'avoue avoir du mal à comprendre ce que tu attends des deux fonctions.

Si tu clique une fois que doit-il se passer?
Et si tu clique deux fois que devrait-il se passer?

[AlainTech]

Je viens de tester sur un bouton sur un UserForm et les 2 évévements sont bien pris en compte.

Le seul problème c'est qu'en cas de double clic, on passe dans le simple clic avant de passer dans le double.

[patbou]

bonsoir alain

c est bien la le pb des evenements click et dbclick

Le seul problème c'est qu'en cas de double clic, on passe dans le simple clic avant de passer dans le double.

voila je me rappelle

l astuce etait de compter le temps apres le 1er click , attendre quelques millisecondes pour controler l absence du 2eme click
=> si abscence dbclick alors l evenement click est realisé

[patbou]

pour declencher les 2 evenements independament l un de l autre

1/ creer un userform
2/ ajouter ce code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Private Declare Function GetTickCount Lib "Kernel32" () As Long
Dim stope As Boolean
 
 
Private Sub UserForm_Click()
stope = False
depart = GetTickCount()
Do While GetTickCount() < depart + 250
DoEvents
If stope = True Then Exit Sub
Loop
MsgBox "evenement click"
End Sub
 
Private Sub UserForm_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
stope = True
MsgBox "evenement dbclick"
End Sub

[patbou]

j ai modifier le tps à 150 ms , plus opportun pour un dbl click

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Declare Function GetTickCount Lib "Kernel32" () As Long
Dim stope As Boolean
 
 
Private Sub UserForm_Click()
stope = False
depart = GetTickCount()
Do While GetTickCount() < depart + 150
DoEvents
If stope = True Then Exit Sub
Loop
MsgBox "evenement click"
End Sub
 
Private Sub UserForm_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
stope = True
MsgBox "evenement dbclick"
End Sub