• Home
 · 
• Windows System Services
 · 
• CapsLock and NumLock

CapsLock and NumLock

How to Activate CapsLock and NumLock from Code

Assumes
The keyboard APIs for VB4-16 and VB3 do not support the byte data type. By changing the Windows constant to Public Const VK_NUMLOCK = &H90, you can use the above to activate the NumLock key.

API Declarations
Public Const VK_CAPITAL = &H14
Public Type KeyboardBytes
     kbByte(0 To 255) As Byte
End Type
Public kbArray As KeyboardBytes
Public Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Long
Public Declare Function GetKeyboardState Lib "user32" (kbArray As KeyboardBytes) As Long
Public Declare Function SetKeyboardState Lib "user32" (kbArray As KeyboardBytes) As Long

Rate CapsLock and NumLock

• 1
• 2
• 3
• 4
• 5

(5(5 Vote))

On a form, add a 3 command buttons (cmdToggle, cmdTurnOff, cmdTurnOff) and a label. Add the following code to the form:
Private Function CapsLock() As Integer
	CapsLock = GetKeyState(VK_CAPITAL) And 1 = 1
End Function
Private Sub Form_Load()
	If CapsLock() = 1 Then Label1 = "On" Else Label1 = "Off"
End Sub
Private Sub cmdToggle_Click()
	GetKeyboardState kbArray
	kbArray.kbByte(VK_CAPITAL) = IIf(kbArray.kbByte(VK_CAPITAL) = 1, 0, 1)
	SetKeyboardState kbArray
	Label1 = IIf(CapsLock() = 1, "On", "Off")
End Sub
Private Sub cmdTurnOn_Click()
	GetKeyboardState kbArray
	kbArray.kbByte(VK_CAPITAL) = 1
	SetKeyboardState kbArray
	Label1 = IIf(CapsLock() = 1, "On", "Off")
End Sub
Private Sub cmdTurnOff_Click()
	GetKeyboardState kbArray
	kbArray.kbByte(VK_CAPITAL) = 0
	SetKeyboardState kbArray
	Label1 = IIf(CapsLock() = 1, "On", "Off")
End Sub