Activer-Désactiver la touche 'Verr num'

Question

Salut,

Comment fait-on pour activer et désactiver la touche 'Verr num' du pavé numérique ?

Merci

eltaris · Accepted Answer

Tu peux simuler l'appuie de la touche NumLock comme ceci :
SendKeys "{NUMLOCK}"
ou bien, si tu cherches le code ascii (pour l'évenement keydown par exemple), utilise la constante VbKeyNumlock.

Normalement, avec ça, tu devrais pourvoir gérer cette touche, l'activer ou la désactiver quand tu veux.

 :clown)

Kenou · Answer

Merci pour ta réponse mais je l'ai déjà essayé, cela ne marche pas, ce que j'essaie de faire dans mon appli c'est de faire en sorte que le pavé numérique soit tout le temps actif même qu'on appuie sur la touhe verrnum.

A+

tmcuh · Answer

'fonction pour les leds
Private Declare Function GetKeyState Lib "user32" (ByVal iVirtualKey As Integer) As Long

    Dim Num As Boolean
    'Récupère l'état des LED's
    If (&H1 And GetKeyState(vbKeyNumlock)) <> 0 Then Num = True
    If Num = False Then 'test si eteint
        SendKeys "{NUMLOCK}"    'remet la led en état activé
    End If

Meme si y'a un big retard, j'ai pas trouvé sur les forums donc cà servira pour d'autres

sorcier_VB · Answer

tmcuh,  un petit bug ds ton cs

correction:
Private Declare Function GetKeyState Lib "user32" (ByVal iVirtualKey As Integer) As Long

Dim Num As Boolean
'Récupère l'état des LED's
If (&H1 And GetKeyState(vbKeyNumlock)) <> 1 Then Num = false
If Num = False Then 'test si eteint
SendKeys "{NUMLOCK}" 'remet la led en état activé
End If

Activer-Désactiver la touche 'Verr num'

4 réponses

Discussions similaires