PureBasic

Bonjour a tous,

Je voudrais savoir comment fermer un programme en pressant un boutant car j'ai essayer ceci mais cela ne marche pas.

Code : Tout sélectionner

Event = WindowEvent()
If Event = #PB_Event_Gadget
Select EventGadget()
Case #Button_0
    CloseFile(O)     
 End
 
 End
EndSelect
EndIf
Until event = #PB_Event_CloseWindow
End
;

Merci de votre aide le plus rapidement possible

Code : Tout sélectionner

Repeat
  Select WaitWindowEvent()
    Case #PB_Event_Gadget
      Select EventGadget()
        Case #Button_0
          End
      EndSelect
  EndSelect
ForEver

Je te remercie beaucoup.

Attention parce apparemment tu as mis la lettre "O" à la place du chiffre zéro pour "CloseFile(O)".

Fais donc gaffe pour la suite de tes codes.

PureBasic

[AIDE] Fonction d'un Bouton

[AIDE] Fonction d'un Bouton