Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

CHANGER LA VITESSE DU CLAVIER ET LE DELAI DE REPETITION


Information sur la source

Catégorie :Système Classé sous : vitesse, changer, clavier, repetition, délai Niveau : Initié Date de création : 15/05/1999 Vu / téléchargé: 6 278 / 262

Note :
8,25 / 10 - par 4 personnes
8,25 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10

Commentaire sur cette source (2)
Ajouter un commentaire et/ou une note


Description

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

Mettez les déclarations suivantes :
 

Source

  • 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
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

Fichier Zip

Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip

Commentaires et avis

signaler à un administrateur
Commentaire de babboss le 22/07/2002 22:56:01

un mot a dire : cool !!!!!

signaler à un administrateur
Commentaire de shadowmoy le 29/01/2004 06:20:21

vives les apis :)

Ajouter un commentaire

Discussions en rapport avec ce code source dans le forum

Changer les touches du clavier [ par Cephalotus ] Je voudrais savoir comment changer les touches de mon clavier de maniere à ce que cela affecte tout les fonctions de traitement de textes de l' ordi, comment changer en passent d'1 edit vers 1 autre la langue du clavier par programmation [ par ville007 ] JUSTE UNE QUESTION ? VOILA J'AI DEVELOPPE UNE APPLICATION EN ARABE ET J4AI BESION D 1 CHOSE C COMMENT FARE POUR NE PAS CHANGER A CHAQUE FOIR LA LAGUE changer de page avec le clavier [ par jer666 ] Bonjour tout le monde, je suis un debutant en flash, mais je m'accroche, j'essaye au maximum de chercher par moi mêmemais là je trouve pas changer la langue du clavier [ par le_chef ] salut,je vx changer la langue de clavier dé que je click dans un textboxpar exemple jé deux langue installé(francais,arab) dé que je click sur text1 l changer la langue de clavier avec un code vb.net [ par amone_1905 ] salut tt le mondeje ss en train de developper une application avec vbexpresse 2005 ,et je veut un code qui peut modifier ou changer la langue de clavi Comment changer de façon automatique le point du clavier numerique par la virgule [ par Salmiok ] Bonjour,J'aimerais via une box (Active)Qu'a chaque fois que j'appuie sur le point du clavier numerique,que se soit un point a la place qui apparaisse. Impossible de changer d'imprimante [ par pledoux ] Bonjour,J'ai le code suivant pour changer mon imprimante. "label_imprimante" contient le nom de l'imprimante sur laquelle je veux imprimer&n [Vb Net] Changer la résolution de l'écran lors du lancement de l'application de 800*600 -> 1024*768 [ par boumbo73 ] Bonjour, Voila j'ai fait une application optimisé pour l'affichage en 1024*768. Comment je peux faire pour changer la résoltuion de l'&#233 [vb net]Changer la résolution de l'écran en vb net [ par boumbo73 ] Bonjour, C'est bien je trouve plein de source pour changer la résolution mais ne vb 6 ! Comment faire en vb net ?????? Ca fait des jours que je Changer la couleur dans un DBgrid en fonction d'une date... [ par nicduf ] Salut à tous, J'ai un DBGrid contenant une liste d'objet empruntés ainsi que la date à laquelle ils doivent être empruntés. Je voudrais savoir comment


Nos sponsors

Sondage...

CalendriCode

Juillet 2009
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
2728293031  

Consulter la suite du CalendriCode

Téléchargements

Logiciels à télécharger sur le même thème :

Comparez les prix Nouvelle version

Photothèque Nouveau !



Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés
Temps d'éxécution de la page : 0,437 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.