Accueil > > > CAPS LOCK, NUM LOCK, SCROLL LOCK PAR LOGICIEL
 CAPS LOCK, NUM LOCK, SCROLL LOCK PAR LOGICIEL
 Information sur la source
 Description
Simule l'appui sur Verrouillage majuscules, Verrouillage numérique, Arrêt défilement
 Source
- '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
'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
 Sources du même auteur
 Sources de la même categorie
 Commentaires et avis
|
Derniers Blogs
 XNA IS DEAD!XNA IS DEAD! par richardc
Depuis la semaine dernière (et grâce aux TechDays 2012), je me penche activement sur la nouvelle version de Windows, aka Windows 8. Vous me direz, il était temps puisque la première preview date de Septembre dernier.
OK. Remarquez, on n'en est qu'aux...
Cliquez pour lire la suite de l'article par richardc TECHDAYS PARIS 2012 : WINDOWS SERVER "8" QUOI DE 9 !TECHDAYS PARIS 2012 : WINDOWS SERVER "8" QUOI DE 9 ! par ROMELARD Fabrice
Speakers: Fabrice Meillon et Stanislas Quastana Cette session est basée entièrement sur celle donnée lors de la BUILD cet hiver. Il n'y a pas d'ajout d'information en rapport avec cet évènement passé. Windows 8 Server sera intégralem...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice [HTML5] AUTOUR DU W3C : NOUVEAUX STANDARDS ET WEB MOBILE (LILLE)[HTML5] AUTOUR DU W3C : NOUVEAUX STANDARDS ET WEB MOBILE (LILLE) par Gio
Je m'y prends un peu tard je sais, mais bon je suis développeur web et donc hyper fainéant ! Toujours dans le cadre des technologies émergentes, ici HTML5, parce qu'on aime HTML5 chez Wyg , nous seront présent, le vieux ( Aurélien V.) et moi, pour pr...
Cliquez pour lire la suite de l'article par Gio [WP7] DYNAMICALLY CHANGE STARTUP PAGE[WP7] DYNAMICALLY CHANGE STARTUP PAGE par KooKiz
Let's say that you want to allow the user to customize the startup page of your application. You can easily change the startup page by editing the 'NavigationPage' attribute in the manifest file. But the manifest cannot be modified once the applicatio...
Cliquez pour lire la suite de l'article par KooKiz
Logiciels
 DocTranslate (V3.1.0.0)DOCTRANSLATE (V3.1.0.0)DocTranslate est un traducteur de document Microsoft Word, PowerPoint et Excel. Il permet d'autom... Cliquez pour télécharger DocTranslate Tribler (2012)TRIBLER (2012)Tribler est un client pair à pair (P2P/Peer-to-Peer) open source avec la capacité de regarder des... Cliquez pour télécharger Tribler OneSwarm (2012)ONESWARM (2012)Le peer-to-peer qui protège votre vie privée, c'est OneSwarm.
Ce logiciel de peer-to-peer crypté... Cliquez pour télécharger OneSwarm PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA TV DEVIENS HELLLOOO FLASH
LA TV SUR VOTRE ORDINATEUR.
Toute une plateforme Multi... Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO Academy System (17.2.1.0)ACADEMY SYSTEM (17.2.1.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System
|