EventKey

Синтаксис

Function EventKEY() As Integer

Описание

Возвращает виртуальный код клавиши. В Linux коды клавиш маленьких букв отличаются от кодов клавиш больших букв. Коды клавиш в различных раскладках тоже отличаются.

Параметры

нет

Платформы

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: Free EPub producer