Event ›› WaitEvent

WaitEvent

構文

Function WaitEvent() As Long

説明

発生したイベントを取得します。
WindowEvent と異なり、この関数はイベントし待機し、ループを凍結している間にプロセッサに負荷を与えません。

オプション

無し

プラットホーム

Windows , Linux

例:

#Include "window9.bi"

OpenWindow("",10,10,200,200)
ButtonGadget(1,10,10,100,20)
TextGadget(2,10,50,100,20,"テキスト")

Do
  Var event=WaitEvent
  Select Case event
    Case EventClose
      End
    Case EventGadget
      Select Case EventNumber
        Case 1
          MessBox("","これはボタン")
        Case 2
          MessBox("","これはテキスト・ガジェット")
      End Select
  End Select
Loop

http://mneniya.ucoz.ru/