Numlock via VBA werkt bij mij niet.

[sylvester-ponte]

hallo,

als ik op mijn toetsenbord op numlock druk dan veranderd de 2 in down (pijltje naar beneden).
dat werkt prima.
en als ik via vba de numlock dan uitlees klopt dat ook (waar en onwaar).

maar als ik via vba de numlock wijzig dan en uitlees dan veranderd wel de status,
maar de werking van mijn 2 op mijn numerieke toetsenbord veranderd niet.

wil iemand dat op zijn computer uitproberen? misschien ligt het aan mij HP computer.

of misschien weet iemand waar de fout zit.

 

[edmoor]

Die van jou doet het bij mij ook niet. Zelf gebruik ik dit in een module:

Private Declare Sub keybd_event Lib "user32" ( _
    ByVal bVk As Byte, _
    ByVal bScan As Byte, _
    ByVal dwFlags As Long, _
    ByVal dwExtraInfo As Long)

Declare Function GetKeyState Lib "user32.dll" ( _
    ByVal nVirtKey As Long) As Integer
    
Private Const VK_NUMLOCK = &H90
Private Const KEYEVENTF_KEYUP = &H2

Public NumLockState As Integer

Sub ToggleNumLock()
    keybd_event VK_NUMLOCK, 1, 0, 0
    keybd_event VK_NUMLOCK, 1, KEYEVENTF_KEYUP, 0
    NumLockState = GetKeyState(VK_NUMLOCK)
End Sub

Ook even in je voorbeeld ingebakken:
Bekijk bijlage Test Numlock-2.xlsm

 

[sylvester-ponte]

edmoor, dank je wel

ik kreeg op de een of andere manier uit de GetKeyState(VK_NUMLOCK) -128 of 127 of 0 of 1 ??
maar zo lukt het prima. alleen 0 en 1 komt er uit.
nogmaals dank :thumb:

 

[edmoor]

Graag gedaan