EventType()

Syntaxe

Resultat = EventType()
Description
Renvoie le type d'évènement renvoyé par WindowEvent() ou WaitWindowEvent().

Arguments

Aucun.

Valeur de retour

Les valeurs suivantes sont possibles lorsqu'un évènement du type #PB_Event_Gadget (bibliothèque Gadget) ou #PB_Event_SysTray (bibliothèque SysTray) survient:
  #PB_EventType_LeftClick       : Clic avec le bouton gauche de la souris
  #PB_EventType_RightClick      : Clic avec le bouton droit de la souris
  #PB_EventType_LeftDoubleClick : Double-clic avec le bouton gauche de la souris
  #PB_EventType_RightDoubleClick: Double-clic avec le bouton droit de la souris
  #PB_EventType_Focus           : Obtention du focus.
  #PB_EventType_LostFocus       : Perte du focus.
  #PB_EventType_Change          : Le contenu a changé.
  #PB_EventType_DragStart       : L'utilisateur a essayé de lancer une opération de Glisser & Déposer.

Remarques

Ne peut être utilisé qu'avec les gadgets suivants :
  - CanvasGadget() (Le CanvasGadget a un ensemble spécial de types d'évènement.)
  - ComboBoxGadget() 
  - DateGadget()
  - EditorGadget() 
  - ExplorerListGadget() 
  - ExplorerTreeGadget() 
  - ImageGadget() 
  - ListViewGadget() 
  - ListIconGadget() 
  - MDIGadget()
  - OpenGLGadget()  
  - SpinGadget() 
  - StringGadget() 
  - WebGadget() (Le WebGadget a un ensemble spécial de types d'évènement.)

(Voir la définition du gadget pour connaître les évènements valides)

Exemple

  If OpenWindow(0, 0, 0, 230, 120, "Exemple EventType() ...", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)

    ListIconGadget(1, 10, 10, 150, 100, "ListIconGadget", 140, #PB_ListIcon_GridLines) 
     For a= 1 To 4 
       AddGadgetItem(1, -1, "Ligne "+Str(a))
     Next a
  
     Repeat
       Event = WaitWindowEvent()
       
       Select Event
       
         Case #PB_Event_Gadget
           Select EventGadget()
             Case 1
               Select EventType()
                 Case #PB_EventType_LeftClick        : Debug "Clic avec le bouton gauche de la souris"
                 Case #PB_EventType_RightClick       : Debug "Clic avec le bouton droit de la souris"
                 Case #PB_EventType_LeftDoubleClick  : Debug "Double-clic avec le bouton gauche de la souris"
                 Case #PB_EventType_RightDoubleClick : Debug "Double-clic avec le bouton droit de la souris"
               EndSelect
           EndSelect
       
       EndSelect
     Until Event = #PB_Event_CloseWindow
  EndIf

Voir aussi

WaitWindowEvent(), WindowEvent()

OS Supportés

Tous

<- EventTimer() - Window Index - EventWindow() ->