Unterprogramm beendet Hauptprogramm
Verfasst: 08.12.2006 17:40
Hallo zusammen,
bin etwas aus der Übung mit PB gekommen (
war nie wirklich drinne...)!
Mein Problem: ich habe ein Programm, in dem ich ein neues öffne. Möchte ich das neue beenden, so wird leider auch das erste beendet.
Was muß ich abändern, damit mein erstets Programm weiterhin läuft?
Gruß vom Netzer
bin etwas aus der Übung mit PB gekommen (
war nie wirklich drinne...)!Mein Problem: ich habe ein Programm, in dem ich ein neues öffne. Möchte ich das neue beenden, so wird leider auch das erste beendet.
Code: Alles auswählen
; test.pb
IncludeFile "anderedatei.pb"
If OpenWindow(0,0,0,170,120,"Hauptprogramm", #PB_Window_SystemMenu|#PB_Window_ScreenCentered)
If CreateGadgetList(WindowID(0))
ButtonGadget(2, 20, 70, 60, 20, "Test")
EndIf
Repeat
EventID = WaitWindowEvent()
If EventID = #PB_Event_CloseWindow
Quit = 1
EndIf
If EventID = #PB_Event_Gadget
Select EventGadget()
Case 2 ; Test gedrückt
test()
EndSelect
EndIf
Until Quit = 1
EndIfCode: Alles auswählen
; anderedatei.pb
Procedure test()
If OpenWindow(1,0,0,170,120,"Nebenprogramm", #PB_Window_SystemMenu|#PB_Window_ScreenCentered)
If CreateGadgetList(WindowID(1))
ButtonGadget(3, 20, 70, 60, 20, "Beenden")
EndIf
Repeat
EventID = WaitWindowEvent()
If EventID = #PB_Event_CloseWindow
Quit = 2
EndIf
If EventID = #PB_Event_Gadget
Select EventGadget()
Case 3 ; Nebenprogramm beenden
Quit = 2
EndSelect
EndIf
Until Quit = 2
EndIf
EndProcedure
Gruß vom Netzer
