Bonjour,
Je souhaite activer la touche caps lock du clavier en automatique.
J'ai chercher sur le forum et j'ai trouver ce lien http://vb.developpez.com/faq/?page=S...DesactAcpsLock
J'ai donc recopier le code suivant:
Cependant lors de la compilation plusieurs messages d'erreurs sont affichés:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17 Private Type KeyboardBytes kbByte(0 To 255) As Byte End Type Enum apiOnOff apiOn = 1 apiOff = 0 End Enum Dim kbArray As KeyboardBytes Private Declare Function GetKeyboardState Lib "user32" (kbArray As KeyboardBytes) As Long Private Declare Function SetKeyboardState Lib "user32" (kbArray As KeyboardBytes) As Long Private Sub ChangerCapsLock(v As apiOnOff) GetKeyboardState kbArray kbArray.kbByte(&H14) = v SetKeyboardState kbArray End Sub
Les instructions types ne sont plus pris en charge j'ai donc remplacé type par structure
A la ligne kbByte(0 To 255) As Byte, une erreur apparaît m'indiquant "Déclaration attendue"
A la ligne kbArray.kbByte(&H14) = v, une erreur est signalée m'indiquant "KbByte n'est pas un membre de WindowsApplication1.Module1.KeyboardBytes
Pour ces deux dernières erreur je ne trouve pas de solution
Merci pour votre aide.
Partager