Bonjour MetalOS,
Tu peux utiliser sans souci IceDesign pour créer une application, logiciel avec plusieurs fenêtre.
Pour cela, pour chaque fenêtre, renomme le nom de la fenêtre: #Window_0 en par exemple: #MainWindow, #SecondWindow...
Dans les paramètres, tu peux utiliser "Add Window Name to Variable/Constante Name", utile ensuite pour voir en un clin d'œil dans quelle fenêtre le Gadget est utilisé.
Toujours dans les paramètres, tu peux utiliser "Include the EventLoop" pour la fenêtre principale et décocher l'option pour les autres fenêtres , il sera plus facile ensuite.
N'oublie pas d'utiliser le paramètre "Save the Code As" qu'en tu crées une nouvelle fenêtre. Tu peux ensuite remettre l'option sur "Save and Open in a New Tab".
Sur un logiciel multi fenêtre, il peut être bien de cocher les options "Bind All Gadget Events" et "Bind Events in an Include File". Ainsi les événements peuvent être écrit dans un fichier source séparé, pour une meilleur organisation, structure, il sera plus facile à gérer dans les projets importants.
Ensuite, il faut que tu les assembles entre eux, avec XIncludeFile et quelques petites modifs, voir l'exemple ci-dessous, les modifs sont entre les balises ; AJOUTS et ; FIN AJOUTS
Exemple:
Maindow.pb:
Code : Tout sélectionner
EnableExplicit
;- Enumerations
Enumeration Window
#MainWindow
EndEnumeration
Enumeration Gadgets
#Btn_Second_Window
EndEnumeration
; AJOUTS
XIncludeFile "SecondWindow.pb"
; FIN AJOUTS
;- Declare
Declare Open_MainWindow(X = 0, Y = 0, Width = 640, Height = 480)
Procedure Open_MainWindow(X = 0, Y = 0, Width = 640, Height = 480)
If OpenWindow(#MainWindow, X, Y, Width, Height, "MainWindow", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
ButtonGadget(#Btn_Second_Window, 150, 160, 330, 110, "Second Window")
EndIf
EndProcedure
;- Main Program
Open_MainWindow()
;- Event Loop
Repeat
Select WaitWindowEvent()
Case #PB_Event_CloseWindow
Break
;-> Event Gadget
Case #PB_Event_Gadget
Select EventGadget()
Case #Btn_Second_Window ; Second Window
MessageRequester("Information", "Button Name : #Btn_Second_Window" +#CRLF$+#CRLF$+ "Text : " + GetGadgetText(EventGadget()))
; AJOUTS
Open_SecondWindow()
CloseWindow(#MainWindow)
Case #Btn_First_Window ; Second Window
MessageRequester("Information", "Button Name : #Btn_First_Window" +#CRLF$+#CRLF$+ "Text : " + GetGadgetText(EventGadget()))
Open_MainWindow()
CloseWindow(#SecondWindow)
; FIN AJOUTS
EndSelect
EndSelect
ForEver
SecondWindow.pb:
Code : Tout sélectionner
EnableExplicit
;- Enumerations
Enumeration Window
#SecondWindow
EndEnumeration
Enumeration Gadgets
#Btn_First_Window
EndEnumeration
;- Declare
Declare Open_SecondWindow(X = 0, Y = 0, Width = 640, Height = 480)
Procedure Open_SecondWindow(X = 0, Y = 0, Width = 640, Height = 480)
If OpenWindow(#SecondWindow, X, Y, Width, Height, "SecondWindow", #PB_Window_ScreenCentered)
ButtonGadget(#Btn_First_Window, 150, 160, 330, 110, "First Window")
EndIf
EndProcedure
; AJOUTS: CODE A UTILISER DANS LA FENETRE PRINCIPAL, LE SUPPRIMER ICI. POUR L'EXAMPLE IL EST MIS EN COMMENTAIRE.
; Main Program
;Open_SecondWindow()
;
;Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
; FIN AJOUTS
A reproduire sur un petit exemple, avant d'attaquer un plus gros projet
Chris
. T'inquiète pas je ne suis pas chiant sur les demandes 
