Openwindow 2.Fenster!

[FISCHAUGE]

Hi,

Also ich habe da ein kleines Problem,

Ich habe ein Fenster Nr.1 auf diesem befindet sich ein Menü mit einem Item Fenster 2 Öffnen. Fenster 2 Öffnet sich und Fenster 1 ist im Hintergrund! Nachdem ich Fenster 2 wieder schließe und zu Fenster 1 zurückkehre, und dasselbe nocheinmal machen will öffnet er das Fenster 2 nicht mehr!

Kann mir da jemmand helfen thx..

[Batze]

Ohne Code nicht.

[FISCHAUGE]

bitte sehr sry hatte ich komplett vergessen lol

Code: Alles auswählen

If OpenWindow(0,200,200,800,600,#PB_Window_SystemMenu,"...")


If CreateMenu(0, WindowID())
  MenuTitle("Datei")
  MenuItem(1,"Fenster öffnen")
EndIf

Repeat
  EventID = WaitWindowEvent()

  If EventID = #PB_Event_CloseWindow 
    Quit = 1
  EndIf

If EventID = #PB_EventMenu

If EventMenuID()=1
If OpenWindow(1,200,200,800,600,#PB_Window_SystemMenu,"...")
 
Repeat
  EventID = WaitWindowEvent()
If EventID = #PB_Event_CloseWindow 
  Quit = 2
EndIf 


Until Quit = 2
CloseWindow(1)
UseWindow(0)
EndIf
EndIf
EndIf

 EndIf
 EndIf
Until Quit=1

EndIf
End

[Batze]

Bitte, Quit ist bei dir immer 2

Code: Alles auswählen

If OpenWindow(0,200,200,800,600,#PB_Window_SystemMenu,"...")


If CreateMenu(0, WindowID())
  MenuTitle("Datei")
  MenuItem(1,"Fenster öffnen")
EndIf

Repeat
  EventID = WaitWindowEvent()

  If EventID = #PB_Event_CloseWindow
    Quit = 1
  EndIf

If EventID = #PB_EventMenu

If EventMenuID()=1
If OpenWindow(1,200,200,800,600,#PB_Window_SystemMenu,"...")
Quit = 0 ; Sonst ist die Schleife immer zu Ende
Repeat
  EventID = WaitWindowEvent()
If EventID = #PB_Event_CloseWindow
  Quit = 2
EndIf


Until Quit = 2
CloseWindow(1)
UseWindow(0)
EndIf
EndIf
EndIf

 EndIf
 EndIf
Until Quit=1

EndIf
End 

[FISCHAUGE]

habe ich leider nicht bemerkt!

Vielen dank!!

[PAMKKKKK]

Vielleicht kannst du mit meinem beispiel was anfangen.
http://forums.purebasic.com/german/view ... 4898#54898

[zigapeda]

und damit es übersichtlicher wird nimmst du die Repeat : Until schleife des 2. fensters, schneidest sie aus, fügst sie oberhald des anderen codes ein, änderst das Until ... in ein ForEver und das quit = 2 in ein Break und schreibst schließlich ein Procedure offnezweitesfenster() und ein EndProcedure über bzw. unter das Repeat bzw. ForEver und fügst den procedurenamen da ein wo du die repeat : Until schleife ausgeschnitten hast: (achja und das if openwindow auch noch mit in die procedure)

Code: Alles auswählen

Procedure offnezweitesfenster()
  If OpenWindow(1,200,200,800,600,#PB_Window_SystemMenu,"...")
    Repeat
      EventID = WaitWindowEvent()
      If EventID = #PB_Event_CloseWindow
        Break
      EndIf
    ForEver
    CloseWindow(1)
    UseWindow(0)
  EndIf
EndProcedure

If OpenWindow(0,200,200,800,600,#PB_Window_SystemMenu,"...")
  If CreateMenu(0, WindowID())
    MenuTitle("Datei")
    MenuItem(1,"Fenster öffnen")
  EndIf
  Repeat
    EventID = WaitWindowEvent()
    If EventID = #PB_Event_CloseWindow
      Quit = 1
    EndIf
    If EventID = #PB_EventMenu
      If EventMenuID()=1
        offnezweitesfenster()
      EndIf
    EndIf
  Until Quit=1
EndIf

End 

[Batze]

Also wenn, dann mach am besten nur eine Ereignisschleife und arbeite mit EventWindowID().
Dann kann man das andere auch noch weiterbenutzen.

[ts-soft]

Also wenn, dann mach am besten nur eine Ereignisschleife und arbeite mit EventWindowID().
Dann kann man das andere auch noch weiterbenutzen.

Für modale Dialogfenster ist das Beispiel von zigapeda aber besser geeignet, ansonsten haste Recht

[Batze]

Bei Zigapeda kann man das Fenster aber auch schließen indem man das im Hintergrund schließt.