EventTimer

Синтаксис

#Define EventTimer &H113

Описание

Константа. Используется для определения получения события таймера

Параметры

нет

Платформы

Windows , Linux

Пример

#Include "window9.bi"
Dim As hwnd hwnd,hwnd2
hwnd=OpenWindow("",10,10,200,200)
hwnd2=OpenWindow("",220,10,200,200)
SetTimer(hwnd,1,1200,0)
SetTimer(hwnd2,2,1700,0)
Do
  Var event=WindowEvent
  Select Case event
     Case EventClose
        End
     Case EventTimer
        Select Case EventNumber
           Case 1
              WindowColor(hwnd,BGR(0,255,0))
              WindowColor(hwnd2,BGR(0,0,255))
           Case 2
              WindowColor(hwnd,BGR(0,0,255))
              WindowColor(hwnd2,BGR(255,0,0))
        End Select
  End Select
  sleep(1)
Loop

Created with the Personal Edition of HelpNDoc: Single source CHM, PDF, DOC and HTML Help creation