1.d'un clic sur un des boutons l'iamge en arriere plan dans la fentre soit modifiée mais ça ne marche pas....
2.que le programme aille dans Mesdocuments/mes images/... et change d'image automatiquement toutes les 15 secondes.. je n'y arrive pas et en plus je ne parviens pas à redimensionner et centrer l'image dans la fenetre
2. une fenetre qui soit totalement visible (et/ou transparente à 50%... (en cliquant sur un bouton)
Code : Tout sélectionner
;- Window Constants
;
Enumeration
#Window_0
EndEnumeration
;- Gadget Constants
;
Enumeration
#Button_1
#Button_2
#Button_3 ;......
EndEnumeration
LoadImage(10, "C:\gaby1.bmp") ;image de depart
LoadImage(11, "C:\gaby2.bmp") ;image en cas de clic sur bouton
img=1
image=1
a=0
textb=21
textb$=Str(textb)
MessageRequester("Compteur Info", "version spéciale les GG", 0)
If OpenWindow ( #Window_0 , 216, 0, 465, 331, #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar , "Compteur Atouts" )
If CreateGadgetList ( WindowID ())
If image=1
ImageGadget(10, 10,10,100,83,UseImage(10))
EndIf
If image=2
ImageGadget(11, 10,10,100,83,UseImage(11))
EndIf
ButtonGadget ( #Button_1 , 10, 10, 30, 30, "1" )
ButtonGadget ( #Button_2 , 40, 10, 30, 30, "2" )
ButtonGadget ( #Button_3 , 70, 10, 30, 30, "3" )
EndIf
;La boucle Repeat-Until sert à la gestion des évènements
If image=1
ImageGadget(10, 10,10,100,83,UseImage(10))
EndIf
If image=2
ImageGadget(11, 10,10,100,83,UseImage(11))
EndIf
Repeat
EventID.l= WaitWindowEvent () ; on récupère un évènement
Select EventID ; on sélectionne cet évènement
Case #PB_EventGadget ; cet évènement concerne une action sur un Gadget
Select EventGadgetID () ; dans ce cas, on récupère l'identifiant du gadget qui l'a créé
Case #Button_1 ; on compare l'identifiant à #ButtonGadget
a=1
If textb-a<0
a=0
EndIf
textb=textb-a
SetGadgetText(#String_0,Str(textb))
Case #Button_2 ; on compare l'identifiant à #ButtonGadget
a=2
If textb-a<0
a=0
EndIf
textb=textb-a
SetGadgetText(#String_0,Str(textb))
Case #Button_3 ; on compare l'identifiant à #ButtonGadget
a=3
If textb-a<0
a=0
EndIf
textb=textb-a
SetGadgetText(#String_0,Str(textb))
EndSelect
Case #PB_Event_CloseWindow ; cet évènement concerne la fermeture de la fenêtre
Quit=1
EndSelect
Until Quit=1
EndIf
