Changer la durée du double clic

Soyez le premier à donner votre avis sur cette source.

Snippet vu 3 226 fois - Téléchargée 67 fois

Contenu du snippet

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 .

A voir également

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.