How Limit the Keys in several Input Controls, that accept only numbers & period

[ttleser]

I found this thread >> http://www.autoitscript.com/forum/index.ph...eateinput+limit

that explained how to limit the characters typed in one field to just numbers and a decimal point, but what if you've got multiple fields you want to limit it to?

[Authenticity]

You mean multiple line or multiple inputs?

expandcollapse popup

#include <Constants.au3>
#include <WinAPI.au3>
#include <WindowsConstants.au3>

Dim $hGUI = GUICreate('Test', 200, 400)
Dim $Inputs[12], $hInputs[12], $hWndProc[12]
Dim $hFunc = DllCallbackRegister('WndProc', 'long', 'hwnd;uint;wparam;lparam')
Dim $pFunc = DllCallbackGetPtr($hFunc)

For $i = 0 To 11
    $Inputs[$i] = GUICtrlCreateInput('', 0, $i*32+5, 200, 23)
    $hInputs[$i] = GUICtrlGetHandle(-1)
    $hWndProc[$i] = _WinAPI_GetWindowLong($hInputs[$i], $GWL_WNDPROC)
    _WinAPI_SetWindowLong($hInputs[$i], $GWL_WNDPROC, $pFunc)
Next

GUISetState()

Do
    Sleep(20)
Until GUIGetMsg() = -3

GUIDelete()
DllCallbackFree($hFunc)

Func WndProc($hWnd, $iMsg, $iwParam, $ilParam)
    Local $hWindowProc
    
    If $iMsg = $WM_CHAR Then
        If Not StringRegExp(Chr($iwParam), '\.|\d') Then Return 0
    EndIf
    
    For $i = 0 To 11
        $hWindowProc = $hWndProc[$i]
        If $hWnd = $hInputs[$i] Then ExitLoop
    Next
    
    Return _WinAPI_CallWindowProc($hWindowProc, $hWnd, $iMsg, $iwParam, $ilParam)
EndFunc

For multiple inputs.

[GEOSoft]

If the controls are placed consecutivly in the GUI then run them through a for / Next loop

$Frm_Main = GUICreate("Test Window")
$In_1 = GUICtrlCreateInput("", 10, 10, 150, 20)
$In_2 = GUICtrlCreateInput("", 10, 40, 150, 20)
$In_3 = GUICtrlCreateInput("", 10, 70, 150, 20)
$In_4 = GUICtrlCreateInput("", 10, 100, 150, 20)
GUISetState()
While 1
    $Msg = GUIGetMsg()
    For $i = $in_1 To $In_4
        If GUICtrlRead($i) <> "" Then
            $sChr = StringRight(GUICtrlRead($i), 1)
            If NOT StringRegExp($sChr, "\d|\.") Then GUICtrlSetData($i, StringTrimRight(GUICtrlRead($i), 1))
        EndIf
    Next
    Switch $msg
        Case -3
            ExitLoop
        Case Else
    EndSwitch
Wend

Edited March 31, 2009 by GEOSoft