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

[fd]

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

[SpaceMan]

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

[SpaceMan]

desolé pour les deux postes mon navigateur deconne

[Backup]

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

[SpaceMan]

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