Caps lock, num lock, scroll lock par logiciel

Soyez le premier à donner votre avis sur cette source.

Snippet vu 22 810 fois - Téléchargée 36 fois

Contenu du snippet

Simule l'appui sur Verrouillage majuscules, Verrouillage numérique, Arrêt défilement

Source / Exemple :


'Dans un module ou dans la section Général-Déclarations de la feuille : (Private ? Public ?)

Const VK_CAPITAL = &H14 ' CapsLock
Const VK_NUMLOCK = &H90 ' NumLock
Const VK_SCROLL = &H91  ' ScrollLock
Private Type KeyboardBytes
     kbByte(0 To 255) As Byte
End Type
Private Declare Function GetKeyboardState Lib "user32" (kbArray As KeyboardBytes) As Long
Private Declare Function SetKeyboardState Lib "user32" (kbArray As KeyboardBytes) As Long
Dim kbArray As KeyboardBytes, kbOld As KeyboardBytes
'-----------------------------------------------------
Private Sub Active(vkKey As Long, Actif As Byte)
   GetKeyboardState kbArray
   kbArray.kbByte(vkKey) = Actif
   SetKeyboardState kbArray
End Sub
'-----------------------------------------------------
Private Sub Form_Load()
    GetKeyboardState kbOld' se rappeler l'état initial du clavier
End Sub
'-----------------------------------------------------
Private Sub Form_Unload(Cancel As Integer)
    SetKeyboardState kbOld' restaurer l'état initial du clavier
End Sub
'-----------------------------------------------------

'Pour (par exemple) activer le verrouillage majuscules, 
'Active VK_CAPITAL, 1

'pour le désactiver : 
'Active VK_CAPITAL, 0

A voir également

Ajouter un commentaire Commentaires
Messages postés
29
Date d'inscription
lundi 20 mars 2006
Statut
Membre
Dernière intervention
10 novembre 2009

Ne fonctionne plus sous VB2005, il faut utiliser SendInput.
Messages postés
51
Date d'inscription
vendredi 20 février 2004
Statut
Membre
Dernière intervention
7 juillet 2006

nan, c'est ctrl+pause (ou break) que permet de pauser l'execution en vb
Messages postés
1
Date d'inscription
vendredi 20 janvier 2006
Statut
Membre
Dernière intervention
21 janvier 2006

Bonjour!
J'ai exacteme,t besoin d'un programme qui fait ca! (activer le CapLock au lancement)
Mais j'y connai rien en VB!!! J'ai essayer de compiler le code donnée dans visual studioexpress2005, mais j'ai plein d'erreur du genre variable pas déclarer etc...des la ligne private type!
Help!!! Merci de m'expliquer comment compiler ce code correctement, un grand merci à ceux qui le feront!!!
Ps:je n'ai pas besoin de pouvoir rappeler l'etat precedent de la touche, justequ'il l'active, c'est pour mettre au demarrage d'un pc
Voilà Merci!
Messages postés
14781
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
12 avril 2021
154
Et mme, Ctrl+ScrollLock permet de mettre ne pause le prg en VB6 .
Messages postés
1411
Date d'inscription
mercredi 6 août 2003
Statut
Membre
Dernière intervention
3 mars 2019
1
Pour ScrollLock mettez vous sous Excel
et naviguez avec les touches Haut, Bas, Gauche, Droite
changez l'atat de ScrollLock et recommencez
vous ne changez plus de cellule mais vous faites défiller la feuille

Bonne prog
++
Afficher les 13 commentaires

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.