Event ›› EventMenu

EventMenu

構文

#define EventMenu &h402

説明

定数。メニューからイベントが発生したことを返します

オプション

無し

プラットホーム

Windows , Linux

例:

#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/