PureBasic

Forums PureBasic
Nous sommes le Lun 23/Sep/2019 0:00

Heures au format UTC + 1 heure




Poster un nouveau sujet Répondre au sujet  [ 1 message ] 
Auteur Message
 Sujet du message: Ajouter des gadgets dans un container dynamiquement
MessagePosté: Ven 17/Fév/2017 13:23 
Hors ligne
Avatar de l’utilisateur

Inscription: Lun 22/Nov/2004 13:05
Messages: 353
Je n'en avais jamais eu besoin, jusqu'à aujourd'hui. Je ne connaissais pas le principe des GadgetLists.
Donc voilà la base (un peu à l'arrache)

Code:
Global x = 10, y = 10
Declare Move()

OpenWindow(0, 0, 0, 500, 500, "ContainerGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)

ButtonGadget(1, 320, 15, 70, 25, "Add Gadgets")
ContainerGadget(0,x, y, 300, 130, #PB_Container_Raised)
CloseGadgetList()

Repeat
   EventID = WaitWindowEvent()
   If EventID = #PB_Event_Gadget And EventGadget() = 1   
      OpenGadgetList(0)
        ButtonGadget(#PB_Any, 10, 15, 80, 24, "Button 1")
        ButtonGadget(#PB_Any, 95, 15, 80, 24, "Button 2")
        TextGadget(#PB_Any, 10, 70, 250, 20, "Nous sommes bien dans le Container !")   
      CloseGadgetList()
      AddWindowTimer(0, 0, 200)
    EndIf
    If EventID = #PB_Event_Timer
       Move()
    EndIf
Until EventID = #PB_Event_CloseWindow

Procedure Move()
   y + 5
   ResizeGadget(0, x, y, #PB_Ignore, #PB_Ignore)
   If y = 255
      RemoveWindowTimer(0, 0)
   EndIf
EndProcedure


Bye


Haut
 Profil  
Répondre en citant le message  
Afficher les messages postés depuis:  Trier par  
Poster un nouveau sujet Répondre au sujet  [ 1 message ] 

Heures au format UTC + 1 heure


Qui est en ligne

Utilisateurs parcourant ce forum: Aucun utilisateur enregistré et 1 invité


Vous ne pouvez pas poster de nouveaux sujets
Vous ne pouvez pas répondre aux sujets
Vous ne pouvez pas éditer vos messages
Vous ne pouvez pas supprimer vos messages

Rechercher:
Aller à:  
cron

 


Powered by phpBB © 2008 phpBB Group | Traduction par: phpBB-fr.com
subSilver+ theme by Canver Software, sponsor Sanal Modifiye