XProfan

English

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

06/27/19 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

H.Brill

take off a Wait-commands uses thou in your Loop ?
the Click-Event must Yes somehow processing go.

If you GetMessage verwendest, becomes well the Clicked()
not reset. this is only whom Wait-command so.

You can you but behelfen, if You instead of Clicked simply
GetFocus take.

Compile Mark Separation

Declare lever btn1, btn2, list, Long end
end = 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 end

    GetMessage

    If GetFocus(btn1)

        MessageBox("", "Info", 0)

    ElseIf GetFocus(btn2)

        end = 1

    EndIf

EndWhile

PS: circa data auszulesen could you too a Timer using.
there functions so ex 200 Millisekunden too 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.

06/27/19 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Erasmus.Herold

GetFocus, anstatt Clicked - perfekt.

Macht genau, was es soll