Numlock Key

[Stan Sainte-Rose]

Hi

I saw a post about numlock but I can't not read it.

I would like to check the state of the numlock key
and if it's not active, set its status on active.
How can I accomplish that in vb ?

Stan

 

[Ken Tucker [MVP]]

Hi,

API Declare
Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Integer) As
Integer

Const VK_CONTROL = 11

Const VK_NUMLOCK = 144

Const VK_CAPLOCK = 20



How to use

Dim strNum As String

If GetKeyState(VK_NUMLOCK) Then

strNum = "Num"

Else

strNum = ""

End If



Ken

 

[Herfried K. Wagner [MVP]]

Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Integer) As
Integer

Doesn't 'GetKeyState' return a 'Short' ('Int16')?

 

[Ken Tucker [MVP]]

Hi,


Yes it is a short. My bad.

Ken

 

[Stan Sainte-Rose]

Hi

I thank you for your reply..
and how can I force the numlock ?
Something like SetKeyState ?

Stan

Hi,


Yes it is a short. My bad.

Ken

 

[Ken Tucker [MVP]]

Hi,

Sorry I dont have an example but look at sendinput and keybd_event
api functions.

http://msdn.microsoft.com/library/d...eference/keyboardinputfunctions/sendinput.asp

http://msdn.microsoft.com/library/d...erence/KeyboardInputFunctions/keybd_event.asp


Ken
-------------------

Hi

I thank you for your reply..
and how can I force the numlock ?
Something like SetKeyState ?

Stan

 

[Herfried K. Wagner [MVP]]

Ken,

Sorry I dont have an example but look at sendinput and keybd_event
api functions.

http://msdn.microsoft.com/library/d...eference/keyboardinputfunctions/sendinput.asp

http://msdn.microsoft.com/library/d...erence/KeyboardInputFunctions/keybd_event.asp

Maybe somebody wants to translate this VB6 sample:

<http://www.activevb.de/tipps/vb6tipps/tipp0181.html>

;-)