XProfan

Deutsch

Erasmus.Herold

Hallo Leute.

Folgender Code ist innerhalb einer Schleife im Einsatz.

ElseIf Clicked(button_einzelteilverfolgung%)

ausgewaehlte_position& = GetCurSel(listbox_epcs&)

if (ausgewaehlte_position& < 0)

    @Messagebox("Es wurde keine Position aus der Liste gewählt !!!"+@chr$(13)+@chr$(13)+"Eine Einzelteilverfolgung ist so nicht möglich.", "Sicherheitshinweis",288)

else

    'XML_speichern

endif

endif

Wird nun der Button "button_einzelteilverfolgung" geklickt, kommt ein Hinweis, wenn aus der Listbox "listbox_epcs" keine Position ausgewählt wurde. Das ist so okay.
Aber nach einem Klick auf "okay" kommt das Hinweisfenster erneut und erneut und ...
Wie kann ich dem Button sagen: bleib ruhig und melde dich erst wieder, wenn ich wirklich draufklicke (wie gesagt, dieser Code-Auszug läuft durch eine Schleife / waitinput geht nicht, weil ich beizu Daten auslese)

Viel Text, hoffentlich verständlich.
Gruß und Dank
Erasmus

27.06.2019 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

H.Brill

Was für einen Wait-Befehl nutzt du denn in deiner Schleife ?
Das Klick-Event muß ja irgendwie verarbeitet werden.

Wenn du GetMessage verwendest, wird wohl das Clicked()
nicht zurück gesetzt. Das ist nur bei den Wait-Befehlen so.

Du kannst dir aber behelfen, wenn du statt Clicked einfach
GetFocus nimmst.

Kompilieren Markieren Separieren

Declare Handle btn1, btn2, liste, Long ende
ende = 0
Window 600,400
btn1 = Create("Button", %HWnd, "Test", 10, 10, 60, 25)
btn2 = Create("Button", %HWnd, "Ende", 10, 50, 60, 25)
Set("FastMode", 1)

WhileNot ende

    GetMessage

    If GetFocus(btn1)

        MessageBox("", "Info", 0)

    ElseIf GetFocus(btn2)

        ende = 1

    EndIf

EndWhile

PS: um Daten auszulesen könntest du auch einen Timer benutzen.
Da funktioniert so ab 200 Millisekunden auch WaitInput normal.

Benutze XPROFAN X3 + FREEPROFAN
Wir sind die XProfaner.
Sie werden von uns assimiliert.
Widerstand ist zwecklos!
Wir werden alle ihre Funktionen und Algorithmen den unseren hinzufügen.

Was die Borg können, können wir schon lange.

27.06.2019 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Erasmus.Herold

GetFocus, anstatt Clicked - perfekt.

Macht genau, was es soll