Ich benötige wieder einmal Eure Hilfe:
Wie kann ich in einem Inputfeld rein nummerische Eingaben "erzwingen"???
Vielen Dank im voraus
Ich benötige wieder einmal Eure Hilfe:
Wie kann ich in einem Inputfeld rein nummerische Eingaben "erzwingen"???
Vielen Dank im voraus
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 ###
GUIRegisterMsg($WM_COMMAND, "_WM_COMMAND")
[/autoit][autoit][/autoit][autoit]While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
Func _WM_COMMAND($hWnd, $Msg, $wParam, $lParam)
Local $inp, $integer, $chk
$chk = BitAND($wParam, 0x0000FFFF)
Switch $chk
Case $Input
$inp = GUICtrlRead($Input)
$integer = StringRegExpReplace($inp, "[^0-9]", "")
GUICtrlSetData($Input, $integer)
EndSwitch
Return "GUI_RUNDEFMSG"
EndFunc
Gruß,
UEZ
Oder einfach dem Input Feld den Style $ES_NUMBER geben.
Vielen Dank für die Hilfe.....funktieren beide perfekt.