A voir également:
- Comment réactiver automatiquement par code Vba mon pavé numérique désactivé?
- Pave tactile desactive - Guide
- Comment reactiver un compte facebook désactivé - Guide
- Pavé numérique bloqué - Guide
- Code asci - Guide
- Code puk bloqué - Guide
3 réponses
yg_be
Messages postés
23405
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
20 décembre 2024
Ambassadeur
1 557
13 mars 2020 à 18:26
13 mars 2020 à 18:26
bonjour, ceci change l'activation du pavé numérique:
Private Sub numer()
Dim WshShell As WshShell
Set WshShell = New WshShell
WshShell.SendKeys "{NUMLOCK}"
End Sub
Bonsoir et merci de votre réponse
Je dois mettre le code sur quel événement
du formulaire ou de la zone de texte ?
Merci et bonne soirée
Je dois mettre le code sur quel événement
du formulaire ou de la zone de texte ?
Merci et bonne soirée
yg_be
Messages postés
23405
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
20 décembre 2024
1 557
14 mars 2020 à 10:59
14 mars 2020 à 10:59
ceci va vérifier que NumLock est actif, et, si il ne l'est pas, va l'activer.
Cependant, je doute qu'il soit possible de l'exécuter de façon à immédiatement détecter que la touche est désactivée.
Option Explicit
Private Declare PtrSafe Function GetKeyboardState Lib "user32" _
(pbKeyState As Byte) As Long
Private Sub ToggleNumLock()
Dim WshShell As WshShell
Set WshShell = New WshShell
WshShell.SendKeys "{NUMLOCK}"
End Sub
Private Function GetNumLock() As Boolean
Dim keys(0 To 255) As Byte
GetKeyboardState keys(0)
GetNumLock = keys(KeyCodeConstants.vbKeyNumlock)
End Function
Sub ToujoursNumLock()
If Not GetNumLock() Then
Call ToggleNumLock
End If
End Sub
Cependant, je doute qu'il soit possible de l'exécuter de façon à immédiatement détecter que la touche est désactivée.