PureBasic

Code : Tout sélectionner

  ; Il faut commencer en définissant une fenêtre  
  If OpenWindow(0,0,0,250,105,#PB_Window_SystemMenu|#PB_Window_ScreenCentered,"Create gadgets...") 
    ; Ensuite création d'un gadget-list... 
    If CreateGadgetList(WindowID(0))   ; le gadget-list est créé 
      ; maintenant on peut ajouter des gadgets ici
      ButtonGadget(0,10,15,230,30,"Test bouton") 
    Else                               ; le gadget-list ne peut pas être créé 
      ; ici on peut ajouter un message d'erreur , mettre fin au programme , etc ...
    EndIf 
    
    Repeat : Until WaitWindowEvent()=#PB_Event_CloseWindow 
  EndIf 

Code : Tout sélectionner

  If OpenWindow(0,0,0,270,140,#PB_Window_SystemMenu|#PB_Window_ScreenCentered,"ActivateGadget") And CreateGadgetList(WindowID(0)) 
    StringGadget  (0,10, 10,250,20,"bla bla...") 
    ComboBoxGadget(1,10, 40,250,100) 
    For a=1 To 5 : AddGadgetItem(1,-1,"ComboBox item "+Str(a)) : Next 
    SetGadgetState(1,2)                ; set (beginning with 0) the third item as active one 
    ButtonGadget  (2,10, 90,250,20,"Activate StringGadget") 
    ButtonGadget  (3,10,115,250,20,"Activate ComboBox") 
    Repeat 
      ev.l = WaitWindowEvent() 
      If ev.l = #PB_Event_Gadget 
        gad.l = EventGadgetID() 
        Select gad 
          Case 2 : ActivateGadget(0)   ; Activate StringGadget 
          Case 3 : ActivateGadget(1)   ; Activate ComboBoxGadget 
        EndSelect 
      EndIf 
    Until ev.l=#PB_Event_CloseWindow 
  EndIf 

Code : Tout sélectionner

Enumeration ; on fait une liste de constantes qui permet de numéroter les fenêtres et les gadgets
  #Fenetre
  #Bouton
EndEnumeration

; on crée une fenêtre toute bête centré sur l'écran et avec un bouton quitter
If OpenWindow(#Fenetre, 0, 0, 200, 200, #PB_Window_SystemMenu | #PB_Window_ScreenCentered, "Test")
  ; si la création de la fenêtre échoue, OpenWindow renvoie 0 donc la condition n'est pas vrai, si la fen est crée, la condition est ok
  ; #Fenetre est une constante, elle permet de donner un numéro à la fenêtre, ainsi, on eput faire la différence entre toutes les fen créée
  
  ; on crée une liste qui va permettre de mettre des gadget sur la fenêtre
  If CreateGadgetList(WindowID())
    
    ButtonGadget(#Bouton, 5, 5, 100, 100, "Bouton")
    ; #Bouton est le numéro du gadget pour permettre de savoir sur quel gadget on a agit
    
  EndIf
  
  ; dans cette boucle repeat until, on va gérer les évènements
  Repeat
    
    Event = WaitWindowEvent()
    ; on stocke dans Event un numéro qui représente une action précise que l'on a fait sur la fenêtre
    ; par exemple, on a appuyé sur un bouton, on a déplacé la fenêtre, etc....
    
    ; il faut donc déterminer l'évènement qui s'est produit sur la fenêtre à l'aide d'un test
    
    ; on test si l'évnement à un rapport avec un gadget
    If Event = #PB_Event_Gadget
      ; si l'évènement est égale à #PB_Event_Gadget, on a fait une action sur un gadget, mais on ne sait pas encore quoi ni sur quel gadget
      ; on va donc faire un nouveau test pour trouver le gadget sur lequel on a fait une action
      
      ; on teste si on a appuyé sur le bouton
      ; pour cela, on regarde sur quel numero de gadget s'est produit l'évènement
      If EventGadgetID() = #Bouton
        ; c'est le bouton donc on a cliqué sur le bouton
        
        MessageRequester("Information", "Tu as appuyé sur le bouton", 0)
        
      EndIf
      
    EndIf
    
    ; pour quitter la boucle, on regarde toujours l'évènement qui s'est produit sur la fen
    ; si c'est l'appui sur le X en haut à droite, on a l'évènement égale à la constante #PB_Event_CloseWindow qui signifie qu'on a appuyé pour quitter le programme
  Until Event = #PB_Event_CloseWindow
 
  MessageRequester("Information", "Tu veux quitter le programme", 0)
  
EndIf