Делай так
' объявляешь в модуле
| Код | ' проверяет нажата ли Caps Lock
Public Declare Function GetKeyboardState Lib "user32" (pbKeyState As Byte) As Long |
' объявляешь на самом верху в коде форме
| Код | Const VK_CAPITAL = &H14 |
' событие KeyDown
| Код | Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Dim keys(0 To 255) As Byte
GetKeyboardState keys(0)
Dim CapsLockState As Boolean
CapsLockState = keys(VK_CAPITAL)
If (CapsLockState = False And Shift = 0) Or (CapsLockState = True And Shift = 1) Then
' ...
ElseIf CapsLockState = True Or Shift = 1 Then
' ...
End If
End Sub |
Успехов! |