Advertisement
2002C Miscellaneous #10263

Dedect keypress

This code finds if any key pressed. This will be helpfull for example you're programming a screensaver. But you can not get keypresses through forms because of some components which does not support this keypress event. So you must use some API's to do this.

AI

ИИ-обзор: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.

Исходный код
original-source
sKeyStat = 0
For i = 0 To 255
 KeyResult = GetAsyncKeyState(i)
  If KeyResult = -32767 Then
   sKeyStat = 1
   Exit For
  End If
Next i
 If sKeyStat = 1 Then
  msgbox "Key pressed!!!"
 End If
Оригинальные комментарии (3)
Восстановлено из Wayback Machine