| Вопрос: Состояние CapsLock | Добавлено: 14.07.08 06:24 |
Автор вопроса:  Лёха | Web-сайт: www.arhninja.narod.ru
|
|
Помогите пожалуйста, Отслеживаю состояние CapsLock, использую код:
Option Explicit Private Declare Function GetKeyboardState Lib "user32" (pbKeyState As Byte) As Long Function GetCapsLock() As Boolean Dim keystat(0 To 255) As Byte GetKeyboardState keystat(0) GetCapsLock = (keystat(vbKeyCapital) And 1) End Function Private Sub Form_Load() Me.Timer1.Interval = 10 End Sub Private Sub Timer1_Timer() Label1.Caption = "CapsLock = " & GetCapsLock() End Sub Но этот код помогает только отследить состояние если твое окно активно. Подскажите как отследить состояние CapsLock в активном окне. |
| Ответы | Всего ответов: 1 |
|
Номер ответа: 1 Автор ответа:  Лёха Вопросов: 18 Ответов: 34 |
Web-сайт: Профиль | | #1 | Добавлено: 14.07.08 06:26 |
| В смысле, если активно любое другое окно. | ||
Страница: 1 |