プログラム言語 FreeBasic |
WindowEvent
Function WindowEvent() As Long
発生したイベントまたはゼロ値を返します。
この関数が配置されているループは、引き続き機能します。
イベントが発生しない場合、関数は0を返します。
関数は CPU プロセッサを使います。
このことは、リソースを節約したい場合に、覚えておくことが重要です。
プロセッサをイベント待機の負荷から解放するために、小さな値でループ内のスリープ関数 sleepW9() を使うか、イベントを待機する関数 WaitEvent を使うとこができます。
無し
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=WindowEvent
SleepW9(100)
Select Case event
Case EventClose
End
Case EventGadget
Select Case EventNumber
Case 1
MessBox("","これはボタン")
Case 2
MessBox("","これはテキスト・ガジェット")
End Select
End Select
Loop