Soyez le premier à donner votre avis sur cette source.
Snippet vu 23 245 fois - Téléchargée 37 fois
'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
24 déc. 2006 à 22:37
25 avril 2006 à 17:11
21 janv. 2006 à 12:03
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!
7 avril 2005 à 16:04
7 avril 2005 à 11:14
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
++
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.