Re: VBA method to detect state of CAPSLOCK key?

  • Thread starter Thread starter Tom Ogilvy
  • Start date Start date
T

Tom Ogilvy

Declare Function GetKeyboardState Lib "user32" _
(pbKeyState As Byte) As Long




Function CapsLock() As Boolean

Dim Res As Long
Dim KBState(0 To 255) As Byte

Res = GetKeyboardState(KBState(0))
CapsLock = KBState(&H14) And 1


End Function

Usage:

Sub ShowCapsLockState()
msgbox "Caps Lock on? " & capslock
End Sub
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

ApiCall: Get KeyboardState 1
need to adjust some vb6 code - Scancode to Ascii - Please HELP!! 9
Closing programs on remote PC - help please 1
switch the "scroll" led with vba 1
Excel 2007 Rect type problem 1
error trying to use GetFromClipboard 4
Show/Hide Minimize/Maximize Button in Excel 2007/2010 2
Defined Name Box Shortcut 4

Back
Top