Event()

Syntaxe

Resultat = Event()

Renvoie l'évènement en cours.

Arguments

Aucun.

Valeur de retour

Renvoie l'évènement en cours.

Remarques

Il s'agit de la même valeur renvoyée par WindowEvent() et WaitWindowEvent(). Est utile principalement lors de l'utilisation d'un callback pour déterminer l'évènement qui l'a déclenché.

Exemple

  Procedure EventHandler()
    Select Event()
      Case #PB_Event_CloseWindow
        End
        
      Case #PB_Event_Gadget
        Debug "Clic sur Gadget #" + EventGadget()
    EndSelect
  EndProcedure
  
  OpenWindow(0, 100, 100, 240, 100, "", #PB_Window_SizeGadget | #PB_Window_SystemMenu | #PB_Window_MaximizeGadget)
  ButtonGadget(0,  10, 10, 100, 30, "Cliquez moi !")
  ButtonGadget(1, 130, 10, 100, 30, "Cliquez moi !")
  
  ; Utiliser un seul callback pour tous les évènements
  BindGadgetEvent(0, @EventHandler())
  BindGadgetEvent(1, @EventHandler())
  BindEvent(#PB_Event_CloseWindow, @EventHandler())
  
  ; Nous ne traitons pas les évènements ici, donc nous pouvons exécuter une boucle infinie et l'oublier
  Repeat
    WaitWindowEvent()
  ForEver

Voir aussi

WindowEvent(), WaitWindowEvent()

OS Supportés

Tous