Eingabe in Edit Control überwachen mit _WM_Command

hipfzwirgel

Hallo an die Spezialisten,

ich habe eben die Funktion _WM_Command zur überwchung des EDIT Controls $idCode erstellt.

Code

[tt]Func _WM_COMMAND($hWnd, $iMsg, $wParam, $lParam)
    #forceref $hWnd, $iMsg
    Local $hWndFrom, $iIDFrom, $iCode
    $hWndFrom = $lParam
    $iIDFrom = _WinAPI_LoWord($wParam)
    $iCode = _WinAPI_HiWord($wParam)

    Switch $iIDFrom
        Case $idCode ; Edit HW-Sacn

            Switch $iCode
                Case $EN_UPDATE

                    $sEditTxt = GUICtrlRead($idCode)
                    Local $iPosition = StringInStr($sEditTxt, "S/N:")
                    Sleep(2000)

                    If $iPosition > 0 Then

                        GUICtrlSetState($Button1, $GUI_ENABLE)

                    EndIf

            EndSwitch
    EndSwitch
EndFunc   ;==>_WM_COMMAND[/tt]

Alles anzeigen

Dazu habe ich eine Verständnisfrage: Wodurch wird Case $EN_UPdate ausgelöst

Hintergrund:
Wenn ich in das Edit den String S/N: manuell eingebe und die Entertaste drücke wird der Anweisungsblock im Case ausgeführt.
Scanne ich einen String mit einem 2D-Scanner aus einem QR-Code in dem ebenfalls S/N: vorkommt wird der Anweisungsblock nicht ausgeführt,
obwohl der Scanner IMMER am Ende eines Scans ein "Enter" mit sendet...

**BugFix**

Versuch mal:

AutoIt

                Case $EN_CHANGE  ; Sent when the user has taken an action that may have altered text in an edit control
                    If StringRegExp(ControlGetText($hWnd, '', $iIDFrom), '.*(\r\n)+\Z') Then ; last Input = @CRLF
                        ; 'Zeilenumbruch (ENTER)'
                    Else
                        ; 'Inhalt Edit geändert'
                    EndIf

hipfzwirgel

Hallo Bugfix,

danke für den Anreiz.

Ich habe es getestet. Offenbar sendet mein Scanner tatsächlich CRLF denn dein Vorschlag funktioniert perfekt.

Frage mich nun aber was der unterschied zwischen @CRLF und der Entertaste ist
Sollte schlussendlich doch der gleiche Key-Code sein...

**BugFix**

Auslöser ist sehr wahrscheinlich ein PAINT-Event, müsste man mal mitloggen welches bei Änderung Inhalt und welches bei Empfang ENTER ausgelöst wird.

hipfzwirgel

Hallo Bugfix,

mir ist zum zumute...

Offenbar funzt das doch nicht richtig . Jetzt reagiert die FUNC schon auf den ersten Zeilenumbruch:

Der Inhalt des QR-Codes sieht so aus:

DeviceName @CRLF
Label: Leihstellung @CRLF
UUID: 1234... @CRLF
S/N: 98765432 CRLF vom Scanner

Vielleicht würde es gehen wenn man die Sequenz ' .*(\r\n + \Z' um den String S/N: ergänzt, sodaß er quasi nur das CRLF der letzten Zeile auswertet...
'S/N: *(\r\n + \Z' geht jedenfalls nicht...

hipfzwirgel

Hallo,

Problem gelöst:

mit der Zeile

Code

If StringRegExp(ControlGetText($hWnd, '', $iIDFrom), 'S/N: .*' & @CRLF) Then ; last Input = @CRLF

wird nur die letzte Zeile ausgewertet...

Danke und schönes WE an Bugfix für die Idee

hipfzwirgel 17. Februar 2022 um 15:06