Fenster nach Schleifendurchlauf schliessen

[HoDam]

Hallo,

wie kann nachdem eine Schleife durchlaufen ist, dieses Fenster schliessen.

Denke

Code: Alles auswählen

While NextDatabaseRow()
           OpenWindow(200,200,200,300,100,#PB_Window_WindowCentered,"DEMO-PMSMALLEFB") 
            CreateGadgetList(WindowID())  
            ;Debug WindowID()
            StringGadget(150, y+100, 50, 20, 20, "") 
            TextGadget(151, y+45, 10, 200, 20, "Demoversion von DEMO-PMSMALLEFB", #PB_Text_Center) 
            TextGadget(152, y+85, 53, 10, 20, "in", #PB_Text_Center) 
            TextGadget(153, y+120, 53, 100, 20, "sec. geht es weiter", #PB_Text_Center) 
            For i=1 To 6
              a$=Str(6-i) 
              SetGadgetText(150,a$) 
              While WindowEvent():Wend ; updaten 
              Delay (1200)
            Next
            AddGadgetItem(#Listview_0,0,GetDatabaseString(0))
           
          Wend
          

[Green Snake]

CloseWindow(#Window)
meinst du das?

Code: Alles auswählen

While NextDatabaseRow() 
           OpenWindow(200,200,200,300,100,#PB_Window_WindowCentered,"DEMO-PMSMALLEFB") 
            CreateGadgetList(WindowID())  
            ;Debug WindowID() 
            StringGadget(150, y+100, 50, 20, 20, "") 
            TextGadget(151, y+45, 10, 200, 20, "Demoversion von DEMO-PMSMALLEFB", #PB_Text_Center) 
            TextGadget(152, y+85, 53, 10, 20, "in", #PB_Text_Center) 
            TextGadget(153, y+120, 53, 100, 20, "sec. geht es weiter", #PB_Text_Center) 
            For i=1 To 6 
              a$=Str(6-i) 
              SetGadgetText(150,a$) 
              While WindowEvent():Wend ; updaten 
              Delay (1200) 
            Next 
            AddGadgetItem(#Listview_0,0,GetDatabaseString(0)) 

            CloseWindow(200) 

          Wend 

[HoDam]

yepp

dankeschön

[Green Snake]

np