Caps lock, num lock, scroll lock par logiciel

Soyez le premier à donner votre avis sur cette source.

Snippet vu 23 245 fois - Téléchargée 37 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
aybe81
Messages postés
29
Date d'inscription
lundi 20 mars 2006
Statut
Membre
Dernière intervention
10 novembre 2009

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

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

21 janv. 2006 à 12:03
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!
NHenry
Messages postés
14929
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
22 mai 2022
162
7 avril 2005 à 16:04
Et mme, Ctrl+ScrollLock permet de mettre ne pause le prg en VB6 .
bouv
Messages postés
1411
Date d'inscription
mercredi 6 août 2003
Statut
Membre
Dernière intervention
3 mars 2019
1
7 avril 2005 à 11:14
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.