[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Форум » Наш сайт » Visual basic » API функция - "GetAsyncKeyState" (API функция - "GetAsyncKeyState")
API функция - "GetAsyncKeyState"
ilimДата: Пятница, 04.02.2011, 05:17 | Сообщение # 1
Генералиссимус
Группа: Администраторы
Сообщений: 680
Награды: 17
Репутация: 4
Статус: Offline
Функция GetAsyncKeyState нужна для отслжевания нажатых клавиш, если форма не активна. Вот маленький пример использования функции. На форму кинь таймер(Interval = 1), и впиши код:

' Объявляем API
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Private Sub Timer1_Timer()
If GetAsyncKeyState(32) = -32768 Then MsgBox "Нажат Пробел"' Функция GetAsyncKeyState(ASCII код клавиши) возвращает -32768, если нажата клавиша, ASCII код которой находится в скобках, и возвращает 0, если не нажата
If GetAsyncKeyState(vbKeyF1) = -32768 Then MsgBox "Нажат F1"
End Sub


www.ilim.kz
 
Форум » Наш сайт » Visual basic » API функция - "GetAsyncKeyState" (API функция - "GetAsyncKeyState")
Страница 1 из 11
Поиск: