Nur nummerische Eingaben in Inputfeld

  • Vielleicht so?

    [autoit]


    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    #Region ### START Koda GUI section ### Form=
    $hGUI = GUICreate("Test", 615, 440, 192, 124)
    $Input = GUICtrlCreateInput("", 201, 211, 217, 21)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

    [/autoit][autoit][/autoit][autoit]

    GUIRegisterMsg($WM_COMMAND, "_WM_COMMAND")

    [/autoit][autoit][/autoit][autoit]

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    EndSwitch
    WEnd

    [/autoit][autoit][/autoit][autoit]

    Func _WM_COMMAND($hWnd, $Msg, $wParam, $lParam)
    Local $inp, $integer, $chk

    [/autoit][autoit][/autoit][autoit]

    $chk = BitAND($wParam, 0x0000FFFF)
    Switch $chk
    Case $Input
    $inp = GUICtrlRead($Input)
    $integer = StringRegExpReplace($inp, "[^0-9]", "")
    GUICtrlSetData($Input, $integer)
    EndSwitch
    Return "GUI_RUNDEFMSG"
    EndFunc

    [/autoit]

    Gruß,
    UEZ

    Auch am Arsch geht ein Weg vorbei...

    ¯\_(ツ)_/¯