EventWParam

Синтаксис

Function EventWParam() As WPARAM

Описание

Позволяет получить значение WPARAM из обработчика сообщений

Параметры

нет

Платформы

Windows

Пример

#Include "window9.bi"
Dim As Integer event
CenterWindow(OpenWindow("",10,10,500,500))
Do
  event=WindowEvent()
  If event=EventLBDOWN Then
     ? EventWParam
     /'key flags
     MK_CONTROL Set if the CTRL key is down.
     MK_LBUTTON Set if the left mouse button is down.
     MK_MBUTTON Set if the middle mouse button is down.
     MK_RBUTTON Set if the right mouse button is down.
     MK_SHIFT Set if the SHIFT key is down.'/
  EndIf
  If Event=EventClose Then End
Loop

Created with the Personal Edition of HelpNDoc: Full featured multi-format Help generator