EventMouseWheel

Синтаксис

#define EventMouseWheel &H20A

Описание

Константа. Используется для определения , что произошло событие движения колесика мыши. При этом функция EventKEY может возвратить сочетание значений:

MK_CONTROL - Клавиша CTRL находится в нажатом состоянии.
MK_LBUTTON - Левая кнопка мыши находится в нажатом состоянии.
MK_MBUTTON - Средняя кнопка мыши находится в нажатом состоянии.
MK_RBUTTON - Правая кнопка мыши находится в нажатом состоянии.
MK_SHIFT - Клавиша SHIFT находится в нажатом состоянии.

Параметры

нет

Платформы

Windows , Linux

Пример

#Include "window9.bi"
Dim As hwnd hwnd
dim as Long aa
hwnd=OpenWindow("",10,10,200,200)
TextGadget(1,10,50,100,20,"Text")
Do
Var event=WaitEvent
Select Case event
 Case EventClose
  If EventHwnd=hwnd Then End
   Case EventMouseWheel
      Dim As Integer iEK = EventKEY
      If iEK And MK_LBUTTON Then ? "Mousewheel AND press left mouse button"
  If iEK < 0 Then
   aa+=1
   SetGadgetText(1,Str(aa))
  Else
   aa-=1
   SetGadgetText(1,Str(aa))
  EndIf
End Select
Loop

Created with the Personal Edition of HelpNDoc: Easy CHM and documentation editor