Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Status of NumLock, ScrollLock and CapsLock
Good morning,
I'm SURE I found the answer to this on here somewhere, but I can't find it now. Can anybody please tell me how to determine the status of the lock keys - that is, whether NumLock, ScrollLock and capsLock are on or off? Thanks in advance Pete |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Status of NumLock, ScrollLock and CapsLock
Pete,
Search this group for GetKeyboardState and you'll find several useful postings. Peter Rooney wrote: Good morning, I'm SURE I found the answer to this on here somewhere, but I can't find it now. Can anybody please tell me how to determine the status of the lock keys - that is, whether NumLock, ScrollLock and capsLock are on or off? Thanks in advance Pete |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Status of NumLock, ScrollLock and CapsLock
Andrew,
Interestingly enough, if I do, the only thread that's returned is this one. Am I spelling it correctly - all one word? Regards Pete "Andrew Taylor" wrote: Pete, Search this group for GetKeyboardState and you'll find several useful postings. Peter Rooney wrote: Good morning, I'm SURE I found the answer to this on here somewhere, but I can't find it now. Can anybody please tell me how to determine the status of the lock keys - that is, whether NumLock, ScrollLock and capsLock are on or off? Thanks in advance Pete |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Status of NumLock, ScrollLock and CapsLock
http://groups.google.co.uk/groups?as...=2006&safe=off
or http://snipurl.com/png3 Peter Rooney wrote: Andrew, Interestingly enough, if I do, the only thread that's returned is this one. Am I spelling it correctly - all one word? Regards Pete "Andrew Taylor" wrote: Pete, Search this group for GetKeyboardState and you'll find several useful postings. Peter Rooney wrote: Good morning, I'm SURE I found the answer to this on here somewhere, but I can't find it now. Can anybody please tell me how to determine the status of the lock keys - that is, whether NumLock, ScrollLock and capsLock are on or off? Thanks in advance Pete -- Dave Peterson |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
Status of NumLock, ScrollLock and CapsLock
Dave,
Thanks for the advice, but the links seem to go somewhere that doesn't relate to doing it in Excel, and I'm not clever enough to adapt it. Either that, or I'm just not used to using Google groups properly! :O) Pete "Dave Peterson" wrote: http://groups.google.co.uk/groups?as...=2006&safe=off or http://snipurl.com/png3 Peter Rooney wrote: Andrew, Interestingly enough, if I do, the only thread that's returned is this one. Am I spelling it correctly - all one word? Regards Pete "Andrew Taylor" wrote: Pete, Search this group for GetKeyboardState and you'll find several useful postings. Peter Rooney wrote: Good morning, I'm SURE I found the answer to this on here somewhere, but I can't find it now. Can anybody please tell me how to determine the status of the lock keys - that is, whether NumLock, ScrollLock and capsLock are on or off? Thanks in advance Pete -- Dave Peterson |
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
Status of NumLock, ScrollLock and CapsLock
Const VK_CAPITAL = &H14
Const VK_NUMLOCK = &H90 Const VK_SCROLL = &H91 Private Type KeyboardBytes kbByte(0 To 255) As Byte End Type Private Declare Function GetKeyboardState Lib "user32" (kbArray As KeyboardBytes) As Long Sub testkb() Dim kb As KeyboardBytes GetKeyboardState kb MsgBox _ "NumLock: " & kb.kbByte(VK_NUMLOCK) & vbLf & _ "ScrollLock : " & kb.kbByte(VK_SCROLL) & vbLf & _ "CapslLock : " & kb.kbByte(VK_CAPITAL) End Sub HTH -- AP "Peter Rooney" a écrit dans le message de ... Good morning, I'm SURE I found the answer to this on here somewhere, but I can't find it now. Can anybody please tell me how to determine the status of the lock keys - that is, whether NumLock, ScrollLock and capsLock are on or off? Thanks in advance Pete |
#7
Posted to microsoft.public.excel.programming
|
|||
|
|||
Status of NumLock, ScrollLock and CapsLock
It's a link to a Google Groups Search page. Click on a few of those links and
you'll see lots of suggestions... I've saved this from other posts. Option Explicit ' Code from "VBA Developer's Handbook" (Sybex, 1997): Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) _ As Integer Private Declare Function GetKeyboardState Lib "user32" (pbKeyState As Byte) _ As Long Private Declare Function SetKeyboardState Lib "user32" (lppbKeyState As Byte) _ As Long Function GetCapslock() As Boolean ' Return or set the Capslock toggle GetCapslock = CBool(GetKeyState(vbKeyCapital) And 1) End Function Function GetNumlock() As Boolean ' Return or set the Numlock toggle. GetNumlock = CBool(GetKeyState(vbKeyNumlock) And 1) End Function Sub SetCapslock(Value As Boolean) ' Return or set the Capslock toggle. Call SetKeyState(vbKeyCapital, Value) End Sub Sub SetNumlock(Value As Boolean) ' Return or set the Numlock toggle. Call SetKeyState(vbKeyNumlock, Value) End Sub Private Sub SetKeyState(intKey As Integer, fTurnOn As Boolean) Dim abytBuffer(0 To 255) As Byte GetKeyboardState abytBuffer(0) abytBuffer(intKey) = CByte(Abs(fTurnOn)) SetKeyboardState abytBuffer(0) End Sub Sub Caps_on() If GetCapslock = False Then Call SetKeyState(vbKeyCapital, True) End Sub Sub Caps_Off() If GetCapslock = True Then Call SetKeyState(vbKeyCapital, False) End Sub Sub auto_open() Application.OnKey "{CAPSLOCK}", "TurnItOff" End Sub Sub auto_close() Application.OnKey "{CAPSLOCK}" End Sub Sub TurnItOff() If GetCapslock = True Then Call SetKeyState(vbKeyCapital, False) Beep End If End Sub Peter Rooney wrote: Dave, Thanks for the advice, but the links seem to go somewhere that doesn't relate to doing it in Excel, and I'm not clever enough to adapt it. Either that, or I'm just not used to using Google groups properly! :O) Pete "Dave Peterson" wrote: http://groups.google.co.uk/groups?as...=2006&safe=off or http://snipurl.com/png3 Peter Rooney wrote: Andrew, Interestingly enough, if I do, the only thread that's returned is this one. Am I spelling it correctly - all one word? Regards Pete "Andrew Taylor" wrote: Pete, Search this group for GetKeyboardState and you'll find several useful postings. Peter Rooney wrote: Good morning, I'm SURE I found the answer to this on here somewhere, but I can't find it now. Can anybody please tell me how to determine the status of the lock keys - that is, whether NumLock, ScrollLock and capsLock are on or off? Thanks in advance Pete -- Dave Peterson -- Dave Peterson |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
toggle capslock when opening workbook | Excel Discussion (Misc queries) | |||
scrolllock key off | Excel Programming | |||
VBA method to detect state of CAPSLOCK key? | Excel Programming | |||
VBA method to detect state of CAPSLOCK key? | Excel Programming | |||
Sendkeys will change the status of Numlock | Excel Programming |