EventNumber

Синтаксис

Function EventNumber() As Integer

Описание

Возвращает номер гаджета , меню, системного трея

Параметры

нет

Платформы

Windows , Linux

Пример1

#Include "window9.bi"
OpenWindow("",10,10,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
        Select Case EventNumber
           Case 1
              MessBox("","это кнопка")
           Case 2
              MessBox("","это текстовый гаджет")
        End Select
  End Select
Loop

Пример2

#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(1001,MenName,"1 меню")
MenuItem(1002,MenName,"2 меню")
Do
event=WaitEvent
If event=EventMenu then
 Select case EventNumber
  Case 1001
   MessBox("","1 меню")
  Case 1002
   MessBox("","2 меню")
 End Select
EndIf
If event=EventClose Then End
Loop

Created with the Personal Edition of HelpNDoc: Full featured Documentation generator