Pour que ce code marche , il vous suffira de creer une form avec un bouton de commande
Il faut mettre la déclaration de la fonction dans un module
Source / Exemple :
' A mettre dans un module
Public Declare Function SetDoubleClickTime Lib "user32" (ByVal wCount As Long) As Long
' A mettre dans le code de la form
Private Sub Command1_Click()
Dim x As Integer
Dim r As Long
' x est la durée du double clic
x = 500
r = SetDoubleClickTime(x)
End Sub
Conclusion :
La valeur qu'on entre est en millisecondes et ne l'abaissez pas trop .
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.