edit box max length

[madmorgan]

Hello All,

i want to have a edit box that a user can input text but i also want to to show him how much text space he has left.

so the edit box will have a max text lenght of 1000 but i want the count down to show on the screen as well.

hop you lot know what i want some knows how to do it please help thanks for your time.

[Minikori]

Hello All,

i want to have a edit box that a user can input text but i also want to to show him how much text space he has left.

so the edit box will have a max text lenght of 1000 but i want the count down to show on the screen as well.

hop you lot know what i want some knows how to do it please help thanks for your time.

Well, I spent about a minute in the help file and found GUICtrlSetLimit() and StringLen()

[madmorgan]

how can i output the remaining length thats left

[madmorgan]

ok i have a go with those two functions i gan get the maths to work but i want the maths to show on screen but also i want to keep counting down as exted is enterd or up when text is removed. here is what i got.

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

$math = 0

#Region ### START Koda GUI section ### Form=
$Form1_1 = GUICreate("Form1", 626, 444, 192, 124)
$Edit1 = GUICtrlCreateEdit("", 72, 24, 385, 361)
GUICtrlSetData(-1, "")
$Button1 = GUICtrlCreateButton("Button1", 520, 168, 75, 25)
$Label1 = GUICtrlCreateLabel("Text Space Left", 520, 248, 36, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###


While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        case $Button1
            $read = GUICtrlRead($Edit1)
            $max = 1000
            $len = StringLen($read)
            ;maths
            $maths = $max - $len
            MsgBox(0,"",$maths)
            GUICtrlSetData($Label1, $maths, 1)



    EndSwitch
WEnd

i cant get it to output the information and i want to keep updating when new text is enteded or removed.

[GodlessSinner]

expandcollapse popup

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

$math = 0
Global $btn = "shown", $temp =""
#Region ### START Koda GUI section ### Form=
$Form1_1 = GUICreate("Form1", 626, 444, 192, 124)
$Edit1 = GUICtrlCreateEdit("", 72, 24, 385, 361)
GUICtrlSetLimit(-1, 1000)
GUICtrlSetData(-1, "")
$Button2 = GUICtrlCreateButton("Button1", 520, 168, 75, 25)
$Label1 = GUICtrlCreateLabel("1000", 520, 248, 36, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###


While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        case $Button2
            $read = GUICtrlRead($Edit1)
            $max = 1000
            $len = StringLen($read)
            ;maths
            $maths = $max - $len
            MsgBox(0,"",$maths)
            GUICtrlSetData($Label1, $maths, 1)
        EndSwitch

        $entered = GUICtrlRead($Edit1)
        If $entered <> "" And GUICtrlRead($Edit1)<> $temp Then
            $temp = GUICtrlRead($Edit1)
            GUICtrlSetData($Label1, 1000- StringLen($temp))
            EndIf

if $entered <> "" And $btn <> "shown" Then
    GUICtrlSetState($Button2, $GUI_ENABLE)
    $btn = "shown"
ElseIf $entered = "" And $btn <> "hidden" Then
    GUICtrlSetState($Button2, $GUI_DISABLE)
    GUICtrlSetData($Label1, "1000")
    $btn = "hidden"
EndIf



WEnd

Edited February 8, 2010 by Godless

[madmorgan]

wow that works better than i thought it would thanks