Event ›› EventClose

EventClose

構文

#define EventClose &H10

内容

ウィンドウを閉じるイベントの発生を、定数「16進10」で返します

オプション

無し

プラットホーム

Windows , Linux

例:

#Include "window9.bi"

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

Do
  Var event=WaitEvent
  Select Case event
     Case EventClose
        Print EventClose
        MessBox("","EventClose イベントが発生しました"): End
     Case EventGadget
        ? EventActivate
        ? EventGadget
        Select Case EventNumber
           Case 1
              MessBox("","ボタン")
           Case 2
              MessBox("","テキスト・ガジェット")
        End Select

  End Select
Loop

http://mneniya.ucoz.ru/