#define EventKeyDown &h100
Константа. Используется для определения получения события: "клавиша нажата"
нет
Windows , Linux
' В Linux включите CAPS LOCK и установите английскую раскладку
#Include "window9.bi"
Dim As Integer ev
Dim As HWND hWnd
hwnd=OpenWindow("Привет",10,10,300,300)
Do
ev=WaitEvent()
If ev=EventClose Then end
If ev=EventKeyDOWN Then
If EventKEY=VK_T Then 'нажата английская "T"
windowcolor(hwnd,BGR(255,0,0))
ElseIf EventKEY=VK_U Then 'нажата английская "U"
windowcolor(hwnd,BGR(0,255,0))
EndIf
EndIf
Loop
Created with the Personal Edition of HelpNDoc: Create HTML Help, DOC, PDF and print manuals from 1 single source