PureBoard

Verfasst: **25.02.2009 16:28**

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??

Verfasst: **25.02.2009 16:30**

benutze bitte Code-Tags!

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

Verfasst: **25.02.2009 16:33**

oh tut mir leid

Verfasst: **25.02.2009 16:33**

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

Verfasst: **25.02.2009 16:42**

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 ...

PureBoard

öffnet unendlich viele fenster

öffnet unendlich viele fenster