Event()
Syntaxe
Resultat = Event()Description
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