Code : Tout sélectionner
;{/ pliez-moi
Structure LG
NombreDeClics.l
EndStructure
Global NewList LGadget.LG()
Macro Si
If
EndMacro
Macro Donc
:
EndMacro
Macro Sinon
Else:
EndMacro
Macro FinSi
EndIf
EndMacro
Macro Fonction
Procedure
EndMacro
Macro FinFonction
EndProcedure
EndMacro
Macro Window(longueur,Hauteur,Titre)
OpenWindow(0,0,0,longueur,Hauteur,#PB_Window_ScreenCentered|#PB_Window_SystemMenu,Titre)
CreateGadgetList(WindowID(0))
EndMacro
Macro TraitementDesEvenements
Repeat
EventID=WaitWindowEvent()
Select EventID
EndMacro
Macro EvenementsGadget
Case #PB_Event_Gadget
Select EventGadget()
EndMacro
Macro FinDuTraitement
Case #PB_Event_CloseWindow
Quit=1
EndSelect
Until Quit=1
End
EndMacro
Macro ClicSurGadget
Case
EndMacro
Macro FinEvenements
EndSelect
EndMacro
Macro Bouton
ButtonGadget
EndMacro
Macro EcrireNombre
Str
EndMacro
Macro Texte
TextGadget
EndMacro
Macro Gadget
LGadget()
EndMacro
Macro ModifieTexteGadget
SetGadgetText
EndMacro
Macro SelectionneGadget(NumeroDuGadget)
SelectElement(LGadget(),NumeroDuGadget)
EndMacro
Macro UnNouveauGadget
AddElement(LGadget.LG())
EndMacro
;}/ Debut du Programme
Enumeration
#Bouton1
#Bouton2
#Bouton3
#Texte1
EndEnumeration
Fonction Action(NumeroDuGadget)
SelectionneGadget(NumeroDuGadget)
Gadget\NombreDeClics + 1
Si Gadget\NombreDeClics=1 Donc ModifieTexteGadget(#Texte1,"C'est la première fois")
Sinon ModifieTexteGadget(#Texte1,"Déjà "+EcrireNombre(Gadget\NombreDeClics)+" fois")
FinSi
FinFonction
Window(400,100,"Test")
UnNouveauGadget : Bouton(#Bouton1,10,10,100,20,"Bouton1")
UnNouveauGadget : Bouton(#Bouton2,120,10,100,20,"Bouton2")
UnNouveauGadget : Bouton(#Bouton3,230,10,100,20,"Bouton3")
UnNouveauGadget : Texte(#Texte1,100,40,200,20,"Cliquez sur les boutons")
TraitementDesEvenements
EvenementsGadget
ClicSurGadget #Bouton1
Action(#Bouton1)
ClicSurGadget #Bouton2
Action(#Bouton2)
ClicSurGadget #Bouton3
Action(#Bouton3)
FinEvenements
FinDuTraitement
, si personne comprends les macros après çà...