Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
HD
C'est bon j'ai trouvé comment faire. Pour ceux que cela intéresse :
Declare Function GetKeyboardState Lib "user32" (lpKeyState As pByte) As Long Declare Function SetKeyboardState Lib "user32" (lpKeyState As pByte) As Long Type pByte touche(0 To 255) As Byte End Type Dim clavier As pByte
Function pavnum() Call GetKeyboardState(clavier) clavier.touche(vbKeyNumlock) = 1 - clavier.touche(vbKeyNumlock) Call SetKeyboardState(clavier) End Function
Si vous voulez activer le pavé numérique alors mettez: clavier.touche(vbKeyNumlock) = 1 Pour le désactiver: clavier.touche(vbKeyNumlock) = 0
C'est bon j'ai trouvé comment faire. Pour ceux que cela intéresse :
Declare Function GetKeyboardState Lib "user32" (lpKeyState As pByte) As Long
Declare Function SetKeyboardState Lib "user32" (lpKeyState As pByte) As Long
Type pByte
touche(0 To 255) As Byte
End Type
Dim clavier As pByte
Function pavnum()
Call GetKeyboardState(clavier)
clavier.touche(vbKeyNumlock) = 1 - clavier.touche(vbKeyNumlock)
Call SetKeyboardState(clavier)
End Function
Si vous voulez activer le pavé numérique alors mettez:
clavier.touche(vbKeyNumlock) = 1
Pour le désactiver:
clavier.touche(vbKeyNumlock) = 0
C'est bon j'ai trouvé comment faire. Pour ceux que cela intéresse :
Declare Function GetKeyboardState Lib "user32" (lpKeyState As pByte) As Long Declare Function SetKeyboardState Lib "user32" (lpKeyState As pByte) As Long Type pByte touche(0 To 255) As Byte End Type Dim clavier As pByte
Function pavnum() Call GetKeyboardState(clavier) clavier.touche(vbKeyNumlock) = 1 - clavier.touche(vbKeyNumlock) Call SetKeyboardState(clavier) End Function
Si vous voulez activer le pavé numérique alors mettez: clavier.touche(vbKeyNumlock) = 1 Pour le désactiver: clavier.touche(vbKeyNumlock) = 0
