|
 |
 |
 |
| |
 Durée du Double Clique
' A mettre dans un module
Public Declare Function SetDoubleClickTime Lib "user32" (ByVal wCount As Long) As Long
Function DureeDoubleClick(nb as integer)
Dim reponse As Long
reponse = SetDoubleClickTime(nb)
End Function
Il vous suffit d'insérer le code suivant où vous voulez
DureeDoubleClick(300)
J'ai pris un exemple de 300 ms.
|
|
 |
 |
 |
|