PureBoard

Verfasst: **01.08.2005 16:30**

Hallo,

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

Denke

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

Verfasst: **01.08.2005 16:32**

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

Verfasst: **01.08.2005 16:37**

yepp

dankeschön

Verfasst: **01.08.2005 16:39**

PureBoard

Fenster nach Schleifendurchlauf schliessen

Fenster nach Schleifendurchlauf schliessen