Gadget bei WaitWindowEvent mehrfach?!

[Jet1199]

Hallo,
nach dem Programmstart hier ein Ausschnitt aus dem WaitWindow-Bereich:

Repeat
EventID = WaitWindowEvent()
If EventGadgetID()=7
x=RunProgram("write")
EndIf
If EventGadgetID()=8
Quit=1
EndIf
Until Quit=1

Gadget7 ist Button-Gadget. Wird er angeklickt, möchte ich die Eingabefelder auswerten und entsprechend den Eingaben ein externes Programm mit individuellen Parametern starten.
Zum Probieren hab ich einfach mal Wordpad als externes Programm vereinbart.
Zu meinem Schreck wird 'write' zigfach aufgerufen, soll wohl heissen, daß der Klick auf Gadget-7 nach dem Klick nicht aufgehoben wird, sondern weiterhin für den Programmstart sorgt. Ist das normal? Müßte ich direkt an den Anschluß an die RunProgram-Zeile einen Befehl aufrufen, der den Gadget-7-Event beendet?

[FISCHAUGE]

Dir fehlt etwas wichtiges zuerst!

Code: Alles auswählen

If eventID = #PB_EventGadget

Damit sagst du PB was für ein Event kommt!

Und außerdem fehlt ein EndIf bei deinem 8er Button!
EDIT: SORRY HABE ICH ÜBERSEHEN DU HAST JA EINEN!



So sieht es dann z.B. aus!

Code: Alles auswählen

If EventID = #PB_Event_CloseWindow 
    Quit = 1
EndIf

If eventID = #PB_EventGadget

If EventGadgetID()=1
EndIf 

If EventGadgetID()=2
      Quit=1

    EndIf

[Jet1199]

Danke für die schnelle Antwor, auch für den Nachtrag.

Ja, ich bin noch recht weit vorn, bin Umsteiger vom VisualBasic.
Ich muß also den Windows-Event und den Gadget-Event getrennt, also zusätzlich auswerten. Jetzt klappt es, sollte zu den einmaligen Fehlern zählen.
Das Endif war da, es sei denn, man nimmt das event-if mit dazu ... dann hätte es tatsächlich gefehlt.
Danke nochmals für die Hilfe!

[FISCHAUGE]

Jo kein Problem dafür ist ja das forum da
Habe auch am anfang mit den Buttons gekämpft bis ich gemerkt habe das der Event fehlt!

[NicTheQuick]

Dabei stehen doch extra so schöne Beispiele in der Hilfe.