EventKeyDown

Event ››
Parent Previous Next

EventKeyDown

Синтаксис

#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