ExcelHome技术论坛

标题: [求助]在VBA如何获知当前键盘“NumLock”“ CapsLock”“ ScrollLock” 按键的的状 [打印本页]

---

作者: ningbo    时间: 2004-5-11 07:40
标题: [求助]在VBA如何获知当前键盘“NumLock”“ CapsLock”“ ScrollLock” 按键的的状

在VBA如何获知当前键盘“NumLock”“ CapsLock”“ ScrollLock” 按键的的状态，怎样 利用程序编程改变它状态？

如果不能再VBA中直接实现，那如果调用API函数的话，该调用哪些函数？

-- 我是新生，还要好好学习，才能天天向上

---

作者: 菱角    时间: 2004-5-11 08:19

Private Type KeyboardBytes kbByte(0 To 255) As Byte End Type

Declare Function GetKeyboardState Lib "user32" (pbKeyState As KeyboardBytes) As Long

Sub test() Dim kbarray As KeyboardBytes GetKeyboardState kbarray MsgBox "caps lock=" & kbarray.kbByte(20) MsgBox "num lock=" & kbarray.kbByte(144) MsgBox "scroll lock=" & kbarray.kbByte(145) End Sub

---

作者: ningbo    时间: 2004-5-12 07:43

感谢2楼的答复，那再请教，怎样改变他们的状态？

我在VBA中试着用Sendkeys "{NUMLOCK}"，模拟键盘输入，但是没有用，这三盏灯不会变。

我本来想根据原先这三个键的当前状态，然后用程序改变它。

现在可以获知键的状态，但怎样用程序改变它？我对API不熟，手头也没有这方面的资料，希望知道的能告知一下，非常感谢。

---

作者: 菱角    时间: 2004-5-12 09:08

以下是引用ningbo在2004-5-12 7:43:00的发言：

感谢2楼的答复，那再请教，怎样改变他们的状态？

我在VBA中试着用Sendkeys "{NUMLOCK}"，模拟键盘输入，但是没有用，这三盏灯不会变。

我本来想根据原先这三个键的当前状态，然后用程序改变它。

现在可以获知键的状态，但怎样用程序改变它？我对API不熟，手头也没有这方面的资料，希望知道的能告知一下，非常感谢。

用application.sendkeys即可. 問題是僅在runtime有效. 試試....

Sub test() Dim kbarray As KeyboardBytes Application.SendKeys "{numlock}" '使numlock燈亮.顯示狀態卻為0. GetKeyboardState kbarray MsgBox "caps lock=" & kbarray.kbByte(20) MsgBox "num lock=" & kbarray.kbByte(144) MsgBox "scroll lock=" & kbarray.kbByte(145) End Sub

---

作者: ningbo    时间: 2004-5-17 09:33

问题已解决，解决方案详见微软的HOWT Toggle the NUM LOCK, CAPS LOCK, and SCROLL LOCK Keys http://support.microsoft.com/?id=177674

虽然是英文，但是很简单，代码一看就懂

-- 我是新生，还要好好学习，才能天天向上

---

作者: ningbo    时间: 2004-5-17 19:19

HOWT Toggle the NUM LOCK, CAPS LOCK, and SCROLL LOCK Keys

适用于

This article was previously published under Q177674

SUMMARY

This article demonstrates how to toggle the NUM LOCK, CAPS LOCK, AND SCROLL LOCK keys under Windows 95, Windows 98, Windows Me, Windows NT, or Windows 2000.

MORE INFORMATION

To toggle the NUM LOCK, CAPS LOCK, or SCROLL LOCK keys, you can use the following logic:

1. Use the GetKeyboardState function to determine the state of the key.
2. Determine which operating system is being used with the GetVersionEx API. (Windows 95/98/Me and Windows NT/2000 require different methods for toggling these keys.)
3. Under Windows 95, Windows 98, or Windows Me, use the SetKeyboardState API function to set the state of the key. Under Windows NT or Windows 2000, use the keybd_event function to simulate a key press.

This example shows how to toggle these three keys to "on" if they are "off." This sample may be easily modified to toggle them off or just to check their state.

Sample Project

1. Start a new Standard EXE project in Visual Basic. Form1 is created by default.
2. Add a CommandButton to Form1.
3. Add the following code to the General Declarations section of Form1:

         ' Declare Type for API call:      Private Type OSVERSIONINFO        dwOSVersionInfoSize As Long        dwMajorVersion As Long        dwMinorVersion As Long        dwBuildNumber As Long        dwPlatformId As Long        szCSDVersion As String * 128   '  Maintenance string for PSS usage      End Type      ' API declarations:      Private Declare Function GetVersionEx Lib "kernel32" _         Alias "GetVersionExA" _         (lpVersionInformation As OSVERSIONINFO) As Long      Private Declare Sub keybd_event Lib "user32" _         (ByVal bVk As Byte, _          ByVal bScan As Byte, _          ByVal dwFlags As Long, ByVal dwExtraInfo As Long)      Private Declare Function GetKeyboardState Lib "user32" _         (pbKeyState As Byte) As Long      Private Declare Function SetKeyboardState Lib "user32" _         (lppbKeyState As Byte) As Long      ' Constant declarations:      Const VK_NUMLOCK = &H90      Const VK_SCROLL = &H91      Const VK_CAPITAL = &H14      Const KEYEVENTF_EXTENDEDKEY = &H1      Const KEYEVENTF_KEYUP = &H2      Const VER_PLATFORM_WIN32_NT = 2      Const VER_PLATFORM_WIN32_WINDOWS = 1

4. Add the following code to the Click event of the CommandButton:

       Private Sub Command1_Click()      Dim o As OSVERSIONINFO      Dim NumLockState As Boolean      Dim ScrollLockState As Boolean      Dim CapsLockState As Boolean      o.dwOSVersionInfoSize = Len(o)      GetVersionEx o      Dim keys(0 To 255) As Byte      GetKeyboardState keys(0)      ' NumLock handling:      NumLockState = keys(VK_NUMLOCK)      If NumLockState <> True Then    'Turn numlock on        If o.dwPlatformId = VER_PLATFORM_WIN32_WINDOWS Then  '=== Win95/98          keys(VK_NUMLOCK) = 1          SetKeyboardState keys(0)        ElseIf o.dwPlatformId = VER_PLATFORM_WIN32_NT Then   '=== WinNT        'Simulate Key Press          keybd_event VK_NUMLOCK, &H45, KEYEVENTF_EXTENDEDKEY Or 0, 0        'Simulate Key Release          keybd_event VK_NUMLOCK, &H45, KEYEVENTF_EXTENDEDKEY _             Or KEYEVENTF_KEYUP, 0        End If      End If      ' CapsLock handling:      CapsLockState = keys(VK_CAPITAL)      If CapsLockState <> True Then    'Turn capslock on        If o.dwPlatformId = VER_PLATFORM_WIN32_WINDOWS Then  '=== Win95/98          keys(VK_CAPITAL) = 1          SetKeyboardState keys(0)        ElseIf o.dwPlatformId = VER_PLATFORM_WIN32_NT Then   '=== WinNT        'Simulate Key Press          keybd_event VK_CAPITAL, &H45, KEYEVENTF_EXTENDEDKEY Or 0, 0        'Simulate Key Release          keybd_event VK_CAPITAL, &H45, KEYEVENTF_EXTENDEDKEY _             Or KEYEVENTF_KEYUP, 0        End If      End If      ' ScrollLock handling:      ScrollLockState = keys(VK_SCROLL)      If ScrollLockState <> True Then    'Turn Scroll lock on        If o.dwPlatformId = VER_PLATFORM_WIN32_WINDOWS Then  '=== Win95/98          keys(VK_SCROLL) = 1          SetKeyboardState keys(0)        ElseIf o.dwPlatformId = VER_PLATFORM_WIN32_NT Then   '=== WinNT        'Simulate Key Press          keybd_event VK_SCROLL, &H45, KEYEVENTF_EXTENDEDKEY Or 0, 0        'Simulate Key Release          keybd_event VK_SCROLL, &H45, KEYEVENTF_EXTENDEDKEY _            Or KEYEVENTF_KEYUP, 0        End If      End If    End Sub

5. Press the F5 key to run the program. Click the CommandButton. The state of the CAPS LOCK, the NUM LOCK, and the SCROLL LOCK keys should all be "on."

REFERENCES

For additional information, please see the following articles in the Microsoft Knowledge Base:

127190 : HOWT Toggle the NUM LOCK, CAPS LOCK, and SCROLL LOCK Keys

The information in this article applies t

• Microsoft Visual Basic Learning Edition for Windows 5.0
• Microsoft Visual Basic Learning Edition for Windows 6.0
• Microsoft Visual Basic Professional Edition for Windows 5.0
• Microsoft Visual Basic Professional Edition for Windows 6.0
• Microsoft Visual Basic Enterprise Edition for Windows 5.0
• Microsoft Visual Basic Enterprise Edition for Windows 6.0
• Microsoft Visual Basic Standard Edition, 32-bit, for Windows 4.0
• Microsoft Visual Basic Professional Edition, 32-bit, for Windows 4.0
• Microsoft Visual Basic Enterprise Edition, 32-bit, for Windows 4.0

Last Reviewed:	5/13/2003 (2.0)
Keywords:	kbhowto KB177674

---

作者: ningbo    时间: 2004-5-17 19:21

HOWT Toggle the NUM LOCK, CAPS LOCK, and SCROLL LOCK Keys

适用于

This article was previously published under Q177674

SUMMARY

This article demonstrates how to toggle the NUM LOCK, CAPS LOCK, AND SCROLL LOCK keys under Windows 95, Windows 98, Windows Me, Windows NT, or Windows 2000.

MORE INFORMATION

To toggle the NUM LOCK, CAPS LOCK, or SCROLL LOCK keys, you can use the following logic:

1. Use the GetKeyboardState function to determine the state of the key.
2. Determine which operating system is being used with the GetVersionEx API. (Windows 95/98/Me and Windows NT/2000 require different methods for toggling these keys.)
3. Under Windows 95, Windows 98, or Windows Me, use the SetKeyboardState API function to set the state of the key. Under Windows NT or Windows 2000, use the keybd_event function to simulate a key press.

This example shows how to toggle these three keys to "on" if they are "off." This sample may be easily modified to toggle them off or just to check their state.

Sample Project

1. Start a new Standard EXE project in Visual Basic. Form1 is created by default.
2. Add a CommandButton to Form1.
3. Add the following code to the General Declarations section of Form1:

         ' Declare Type for API call:      Private Type OSVERSIONINFO        dwOSVersionInfoSize As Long        dwMajorVersion As Long        dwMinorVersion As Long        dwBuildNumber As Long        dwPlatformId As Long        szCSDVersion As String * 128   '  Maintenance string for PSS usage      End Type      ' API declarations:      Private Declare Function GetVersionEx Lib "kernel32" _         Alias "GetVersionExA" _         (lpVersionInformation As OSVERSIONINFO) As Long      Private Declare Sub keybd_event Lib "user32" _         (ByVal bVk As Byte, _          ByVal bScan As Byte, _          ByVal dwFlags As Long, ByVal dwExtraInfo As Long)      Private Declare Function GetKeyboardState Lib "user32" _         (pbKeyState As Byte) As Long      Private Declare Function SetKeyboardState Lib "user32" _         (lppbKeyState As Byte) As Long      ' Constant declarations:      Const VK_NUMLOCK = &H90      Const VK_SCROLL = &H91      Const VK_CAPITAL = &H14      Const KEYEVENTF_EXTENDEDKEY = &H1      Const KEYEVENTF_KEYUP = &H2      Const VER_PLATFORM_WIN32_NT = 2      Const VER_PLATFORM_WIN32_WINDOWS = 1

4. Add the following code to the Click event of the CommandButton:

       Private Sub Command1_Click()      Dim o As OSVERSIONINFO      Dim NumLockState As Boolean      Dim ScrollLockState As Boolean      Dim CapsLockState As Boolean      o.dwOSVersionInfoSize = Len(o)      GetVersionEx o      Dim keys(0 To 255) As Byte      GetKeyboardState keys(0)      ' NumLock handling:      NumLockState = keys(VK_NUMLOCK)      If NumLockState <> True Then    'Turn numlock on        If o.dwPlatformId = VER_PLATFORM_WIN32_WINDOWS Then  '=== Win95/98          keys(VK_NUMLOCK) = 1          SetKeyboardState keys(0)        ElseIf o.dwPlatformId = VER_PLATFORM_WIN32_NT Then   '=== WinNT        'Simulate Key Press          keybd_event VK_NUMLOCK, &H45, KEYEVENTF_EXTENDEDKEY Or 0, 0        'Simulate Key Release          keybd_event VK_NUMLOCK, &H45, KEYEVENTF_EXTENDEDKEY _             Or KEYEVENTF_KEYUP, 0        End If      End If      ' CapsLock handling:      CapsLockState = keys(VK_CAPITAL)      If CapsLockState <> True Then    'Turn capslock on        If o.dwPlatformId = VER_PLATFORM_WIN32_WINDOWS Then  '=== Win95/98          keys(VK_CAPITAL) = 1          SetKeyboardState keys(0)        ElseIf o.dwPlatformId = VER_PLATFORM_WIN32_NT Then   '=== WinNT        'Simulate Key Press          keybd_event VK_CAPITAL, &H45, KEYEVENTF_EXTENDEDKEY Or 0, 0        'Simulate Key Release          keybd_event VK_CAPITAL, &H45, KEYEVENTF_EXTENDEDKEY _             Or KEYEVENTF_KEYUP, 0        End If      End If      ' ScrollLock handling:      ScrollLockState = keys(VK_SCROLL)      If ScrollLockState <> True Then    'Turn Scroll lock on        If o.dwPlatformId = VER_PLATFORM_WIN32_WINDOWS Then  '=== Win95/98          keys(VK_SCROLL) = 1          SetKeyboardState keys(0)        ElseIf o.dwPlatformId = VER_PLATFORM_WIN32_NT Then   '=== WinNT        'Simulate Key Press          keybd_event VK_SCROLL, &H45, KEYEVENTF_EXTENDEDKEY Or 0, 0        'Simulate Key Release          keybd_event VK_SCROLL, &H45, KEYEVENTF_EXTENDEDKEY _            Or KEYEVENTF_KEYUP, 0        End If      End If    End Sub

5. Press the F5 key to run the program. Click the CommandButton. The state of the CAPS LOCK, the NUM LOCK, and the SCROLL LOCK keys should all be "on."

REFERENCES

For additional information, please see the following articles in the Microsoft Knowledge Base:

127190 : HOWT Toggle the NUM LOCK, CAPS LOCK, and SCROLL LOCK Keys

The information in this article applies t

• Microsoft Visual Basic Learning Edition for Windows 5.0
• Microsoft Visual Basic Learning Edition for Windows 6.0
• Microsoft Visual Basic Professional Edition for Windows 5.0
• Microsoft Visual Basic Professional Edition for Windows 6.0
• Microsoft Visual Basic Enterprise Edition for Windows 5.0
• Microsoft Visual Basic Enterprise Edition for Windows 6.0
• Microsoft Visual Basic Standard Edition, 32-bit, for Windows 4.0
• Microsoft Visual Basic Professional Edition, 32-bit, for Windows 4.0
• Microsoft Visual Basic Enterprise Edition, 32-bit, for Windows 4.0

Last Reviewed:	5/13/2003 (2.0)
Keywords:	kbhowto KB177674

---

作者: lotustower    时间: 2005-9-8 22:03

以下是引用菱角在2004-5-11 8:19:00的发言：

Private Type KeyboardBytes kbByte(0 To 255) As Byte End Type

Declare Function GetKeyboardState Lib "user32" (pbKeyState As KeyboardBytes) As Long

Sub test() Dim kbarray As KeyboardBytes GetKeyboardState kbarray MsgBox "caps lock=" & kbarray.kbByte(20) MsgBox "num lock=" & kbarray.kbByte(144) MsgBox "scroll lock=" & kbarray.kbByte(145) End Sub

---

作者: yanjun_lyg    时间: 2005-9-8 23:54

很好，以学了一招

---

作者: supbet    时间: 2018-11-15 13:05
可能是版本不对的原因？其实参考4楼的答案直接用sendkeys（要连续发送两条）就可以实现6楼的效果
同时效果也是相同，只能开闭numlock灯的亮灭，不能控制numlock的实际作用
需要找寻解决方案。

---

欢迎光临 ExcelHome技术论坛 (https://club.excelhome.net/)

Powered by Discuz! X3.4