RunProgram????

[Gn00bi]

Code: Alles auswählen

If OpenWindow(0, 0, 0, 222, 70, "RunProgram", #PB_Window_SystemMenu | #PB_Window_ScreenCentered) And CreateGadgetList(WindowID(0))
ButtonGadget(1, 10, 10, 200, 20, "Button1")
ButtonGadget(2, 10, 40, 200, 20, "Button2")

Repeat

Select EventGadget()
Case 1
DisableGadget(2,1)
RunProgram("Prog.exe")
EndSelect

Until WaitWindowEvent() = #PB_Event_CloseWindow

EndIf  

immer wenn ich das starte und dann auf button 1 drück satrtet sich das programm so oft, dass ich mühe hab es zuzubeommen!
plz help!

[coder]

Du musst ja auch erst vorher prüfen ob es überhaupt ein Gadget_Event ist!

[STARGÅTE]

der Code ist richtig, aber nur weil du den Button "nur" ein mal anklickst wird EventGadget() nicht wieder 0, sondern behält den Wert 1 solange bis wieder was passiert.

also:

Code: Alles auswählen

If OpenWindow(0, 0, 0, 222, 70, "RunProgram", #PB_Window_SystemMenu | #PB_Window_ScreenCentered) And CreateGadgetList(WindowID(0)) 
ButtonGadget(1, 10, 10, 200, 20, "Button1") 
ButtonGadget(2, 10, 40, 200, 20, "Button2") 

Repeat 

Event = WaitWindowEvent()

Select Event
 Case #PB_EventGadget 
  Select EventGadget() 
   Case 1 
    DisableGadget(2,1)  
    RunProgram("Prog.exe") 
  EndSelect
EndSelect 

Until Event = #PB_Event_CloseWindow 

EndIf  

Du überprüfst also erst ob das Event ein Gadget-Event war und nur dann testest du welche