Seite 1 von 1
RunProgram????
Verfasst: 04.05.2007 14:15
von 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!
Verfasst: 04.05.2007 14:31
von coder
Du musst ja auch erst vorher prüfen ob es überhaupt ein Gadget_Event ist!
Verfasst: 04.05.2007 14:34
von 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
