Event ›› EventNumber

EventNumber

構文

Function EventNumber() As Integer

内容

ガジェット番号、メニュー、システム・トレーの数を返します。

オプション

無し

プラットホーム

Windows , Linux

例１:

#Include "window9.bi"

OpenWindow("",10,10,200,200)
ButtonGadget(1,10,10,100,20,"ボタン")
TextGadget(2,10,50,190,150,"テキスト")

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

例２:

#Include "window9.bi"

Dim As HMENU hMessages,MenName,MenName1,event

OpenWindow("",10,10,400,400)

hMessages=Create_Menu()
MenName=MenuTitle(hMessages,"ファイル")
MenName1=MenuTitle(hMessages,"ヘルプ")
MenuItem(1,MenName,"1 menu")
MenuItem(2,MenName,"2 menu")

Do
  event=WaitEvent
  If event=EventMenu then
    Select case EventNumber
      Case 1
        MessBox("","1 menu")
      Case 2
        MessBox("","2 menu")
    End Select
  EndIf
  If event=EventClose Then End
Loop

http://mneniya.ucoz.ru/