EventData()

Syntaxe

Resultat = EventData()

Renvoie la valeur associée à l'évènement en cours.

Arguments

Aucun.

Valeur de retour

Renvoie la donnée associée à l'évènement en cours.
Si l'évènement courant n'est pas un évènement personnalisé envoyé par PostEvent(), alors cette valeur est indéfinie.

Remarques

L'évènement doit être un évènement personnalisé envoyé avec PostEvent().

Exemple

  Enumeration #PB_Event_FirstCustomValue
    #EvenementDebutAction
    #EvenementFinAction
  EndEnumeration
  
  
  Procedure Thread(Valeur)
    PostEvent(#EvenementDebutAction, 0, 1, #PB_EventType_FirstCustomValue, 10)
    
    Delay(3000)
    PostEvent(#EvenementFinAction, 0, 1, #PB_EventType_FirstCustomValue, 100)
  EndProcedure
  
  OpenWindow(0, 200, 200, 100, 100, "PostEvent")
  
  CreateThread(@Thread(), 0)
  
  Repeat
    Event = WaitWindowEvent()
    
    Select Event
      Case #EvenementDebutAction
        Debug "Le Thread commence une action... "
        Debug EventData()
        
      Case #EvenementFinAction
        Debug "Le Thread a terminé une action"
        Debug EventData()
        
    EndSelect
    
  Until Event = #PB_Event_CloseWindow
  

Voir aussi

PostEvent(), WindowEvent()

OS Supportés

Tous