Event ›› EventGadget

EventGadget

構文

#define EventGadget &h401

内容

任意のガジェットでイベントが発生するとアクティブになります。十進1025を返します。

オプション

無し

プラットホーム

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
        End
    Case EventGadget
        ? EventActivate
        ? EventGadget
        Select Case EventNumber
          Case 1
            MessBox("","これはボタン")
          Case 2
            MessBox("","これはテキスト・ガジェット")
        End Select

  End Select
Loop

http://mneniya.ucoz.ru/