EventKeyUp

Синтаксис

#define EventKeyUp &h101

Описание

Константа. Используется для определения получения события: "клавиша нажата и отпущена"

Параметры

нет

Платформы

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=EventKeyUp 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: Single source CHM, PDF, DOC and HTML Help creation