1. Accueil
  2. Visual Basic / VB.NET
  3. Sources Visual Basic / VB.NET
  4. Sources Système
  5. Changer la vitesse du clavier et le delai de repetition

Changer la vitesse du clavier et le delai de repetition

Soyez le premier à donner votre avis sur cette source.

Vue 2 293 fois - Téléchargée 241 fois


Télécharger le projet
Commenter

Description

Comment puis-je changer la vitesse et le deali du clavier ?

Mettez les déclarations suivantes :

Source / Exemple : 


Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As Any, ByVal fuWinIni As Long) As Long
Public Const SPI_GETKEYBOARDDELAY = 22
Public Const SPI_GETKEYBOARDSPEED = 10
Public Const SPI_SETKEYBOARDDELAY = 23
Public Const SPI_SETKEYBOARDSPEED = 11
Public Const SPIF_SENDCHANGE = 1
Public OldKeySpeed As Long
Public OldKeyDelay As Long

Sub RendreClavierPlusRapide()
   Dim Retcode As Long
   Dim FastKeySpeed As Long
   Dim FastKeyDelay As Long
   Dim dummy As Long
   FastKeySpeed = 31
   FastKeyDelay = 0
   dummy = 0
    
   Retcode = SystemParametersInfo(SPI_GETKEYBOARDSPEED, 0, OldKeySpeed, 0)
   Retcode = SystemParametersInfo(SPI_GETKEYBOARDDELAY, 0, OldKeyDelay, 0)
   Retcode = SystemParametersInfo(SPI_SETKEYBOARDSPEED, FastKeySpeed, dummy, IF_SENDCHANGE)
   Retcode = SystemParametersInfo(SPI_SETKEYBOARDDELAY, FastKeyDelay, dummy, IF_SENDCHANGE)
End Sub

Sub RestaurerLeClavier()
   Dim Retcode As Long
   Dim dummy As Long
   dummy = 0
   Retcode = SystemParametersInfo(SPI_SETKEYBOARDSPEED, OldKeySpeed, dummy, PIF_SENDCHANGE)
   Retcode = SystemParametersInfo(SPI_SETKEYBOARDDELAY, OldKeyDelay, dummy, PIF_SENDCHANGE)
End Sub
Télécharger le projet

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Signaler
Messages postés
340
Date d'inscription
jeudi 25 juillet 2002
Statut
Membre
Dernière intervention
25 août 2007
vives les apis :)
Signaler
Messages postés
121
Date d'inscription
vendredi 27 octobre 2000
Statut
Membre
Dernière intervention
29 novembre 2006
un mot a dire : cool !!!!!
S'inscrire maintenant

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.

Du même auteur (Nix)