Caps lock, num lock, scroll lock par logiciel

Commenter

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

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 (cs_rene38)