如何用VBA檢查Caps Lock鍵是否打開

如何用VBA檢查Caps Lock鍵是否打開

Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As IntegerConst VK_NUMLOCK = &H90Const VK_SCROLL = &H91Const VK_CAPITAL = &H14Private Sub KeyStates()If GetKeyState(VK_CAPITAL) Then ‘Caps Lock鍵MsgBox "Caps Lock ON"ElseMsgBox "Caps Lock OFF"End If

If GetKeyState(VK_NUMLOCK) Then ‘Num Lock鍵MsgBox "Num Lock ON"ElseMsgBox "Num Lock OFF"End IfIf GetKeyState(VK_SCROLL) Then ‘Scroll Lock鍵MsgBox "Scroll Lock ON"ElseMsgBox "Scroll Lock OFF"End IfEnd Sub

另外，在Word中可以使用下面的VBA代碼來判斷Caps Lock鍵是否開啟：

Sub KeyStates()If Selection.Information(wdCapsLock) ThenMsgBox "Caps Lock 鍵已開啟"ElseMsgBox "Caps Lock 鍵已關閉"End IfEnd Sub

版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。

版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。