Seite 1 von 1

Gadget bei WaitWindowEvent mehrfach?!

Verfasst: 05.04.2005 22:34
von 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?

Verfasst: 05.04.2005 22:47
von 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!

:allright:

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

THX

Verfasst: 05.04.2005 22:57
von 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! :allright:

Verfasst: 05.04.2005 23:03
von FISCHAUGE
Jo kein Problem dafür ist ja das forum da :lol:
Habe auch am anfang mit den Buttons gekämpft bis ich gemerkt habe das der Event fehlt! :roll:

Verfasst: 06.04.2005 11:42
von NicTheQuick
Dabei stehen doch extra so schöne Beispiele in der Hilfe. :roll: