' Как узнать состояние CapsLock?
' для работы необходимо добавить:
' TextBox и CommandButton
Private Declare Function GetKeyState Lib "user32" _
(ByVal nVirtKey As Long) As Integer
Private Sub Command1_Click()
Text1.Text = GetCapsLock
End Sub
Function GetCapsLock() As Boolean
' состояние CapsLock
' True - CapsLock включен, False - выключен
GetCapsLock = GetKeyState(vbKeyCapital)
End Function
Private Sub Form_Load()
Command1.Caption = "Обновить"
Text1.Text = ""
End Sub
Состояние CapsLock (1 448 байт)