PureBasic

Bonjour,

Je souhaiterai savoir comment faire une barre de bouton dans une fenêtre. Les bontons devant en ouvrir plusieurs autres. Le meilleur exemple est le pureform de gnozal. Merci de vos réponse ou de vos pistes à suivre ... en général c'est très pertinent.

A bientôt

salut fd
moi je le fais comme ceci ensuite puis je gere les evenements des fenetres
et des gadgets.

Code : Tout sélectionner

OpenWindow(0, 100, 200, 320, 100, "PureBasic Window", #PB_Window_SystemMenu )
CreateGadgetList(WindowID(0))
CreateMenu(0, WindowID(0))
MenuTitle("Fichier")
      MenuItem( 1, "&Ouvrir")
      MenuItem( 2, "Enregistrer")
      MenuItem( 3, "Enregistrer sous")
      MenuBar()
      MenuItem( 4, "Quitter")

 Frame3DGadget(5, 10,  10, 140, 50, "Propriétés Fenêtre")
 ButtonGadget(6, 20,  30, 60, 20, "Fenetre 1")
 ButtonGadget(7, 80,  30, 60, 20, "Fenetre 2")
 Frame3DGadget(8, 180,  10, 120, 50, "Propriétés Gadgets")
 ButtonGadget(9, 210,  30, 60, 20, "Gadgets")

Procedure fenetre_1()
OpenWindow(10, 250, 300, 320, 100, "PureBasic Window1")
EndProcedure

Procedure fenetre_2()
OpenWindow(11, 250, 300, 320, 100, "PureBasic Window2")
EndProcedure

Procedure fenetre_3()
OpenWindow(12, 250, 300, 320, 100, "PureBasic Window3")
CreateGadgetList(WindowID(12))
CheckBoxGadget(13, 10,  10, 250, 20, "Case à cocher standard")
ComboBoxGadget(14, 10, 40, 130, 60, #PB_ComboBox_Editable):SetGadgetText(14, "Juste 1 exemple")
SpinGadget     (15, 10, 70, 50, 25, 0, 10):SetGadgetState (15, 5) 
SetGadgetText(15, "5")
EndProcedure

  Repeat
  Select WaitWindowEvent()
      Case #PB_Event_CloseWindow 
   Sortie = 1
   
     Case #PB_Event_Menu
        Select EventMenu()
          Case 4 
            Sortie = 1 
              EndSelect
  
     Case #PB_Event_Gadget 
         Select EventGadget() 
            Case 6 : fenetre_1()
            Case 7 : fenetre_2()
            Case 9 : fenetre_3()
               EndSelect

EndSelect
  Until Sortie = 1

Bonne soirée

desolé pour les deux postes mon navigateur deconne

dans ce cas si tu est le dernier a poster, tu a une petite croix qui sert a effacer le dernier message en trop (a droite de "Edite"):D

bien sur si quelqu'un a répondu, cette croix disparaît

Merci Dobro pour l'info je ne me suis jamais rendu compte

PureBasic

Barre de bouton dans une fenêtre gérant plusieurs fenètres

Barre de bouton dans une fenêtre gérant plusieurs fenètres

Thanks pour l'info