öffnet unendlich viele fenster

[BginnR]

hi, ich habe mir einen kleinen code zusammengebaselt, wenn ich dort auf einen button drücke, sollte eigentl. ein programm geöffnet werden, es öffnet sich auch, blos es hört nicht mehr auf das programm zu öffnen.
Hier der code:

Code: Alles auswählen

OpenWindow(0,0,0,1280,713,"My Programm", #PB_Window_Maximize | #PB_Window_SystemMenu |#PB_Window_MinimizeGadget |#PB_Window_MaximizeGadget | #PB_Window_SizeGadget)
SetWindowColor(0,009900)
CreateGadgetList(WindowID(0))
ButtonGadget(1,50,50,100,20,"game1")
ButtonGadget(2,50,100,100,20,"Game2")

Repeat 
  Event = WaitWindowEvent() 
 
      
          Select EventGadget() 
            Case 1 
              RunProgram("F:/Big/dates/PureBasic/Browser/browser.exe")  
            Case 2 
              RunProgram("F:/Big/dates/PureBasic/Browser/browser.exe")  
            
          EndSelect 
ForEver

Kann mir vielleicht jemand helfen??

[Kaeru Gaman]

benutze bitte Code-Tags!

also, deinen Code in die Tags [code][/code] einschließen, indem du den Button benutzt auf dem "Code" steht.

[BginnR]

oh tut mir leid

[ts-soft]

Code: Alles auswählen

OpenWindow(0,0,0,1280,713,"My Programm", #PB_Window_Maximize | #PB_Window_SystemMenu |#PB_Window_MinimizeGadget |#PB_Window_MaximizeGadget | #PB_Window_SizeGadget)
SetWindowColor(0,009900)
CreateGadgetList(WindowID(0))
ButtonGadget(1,50,50,100,20,"game1")
ButtonGadget(2,50,100,100,20,"Game2")

Repeat

  Event = WaitWindowEvent()

  If Event = #PB_Event_Gadget
    Select EventGadget()
      Case 1
        RunProgram("F:/Big/dates/PureBasic/Browser/browser.exe")
      Case 2
        RunProgram("F:/Big/dates/PureBasic/Browser/browser.exe")

    EndSelect
  EndIf
Until Event =#PB_Event_CloseWindow

[STARGÅTE]

um den Code mal zu kommentieren:

du musst erst Prüfen ob es ein Ereignis auf einem Gadget gab :
If Event = #PB_Event_Gadget
Und dann darfst du wenn es eins gabs, prüfen welches es war ...