textbox maxlenght

BlitzPlus Forums/BlitzPlus Programming/textbox maxlenght

hub(Posted 2003) [#1]
Hi !

How to limit the number of characters into a textbox ?

Thanks !


Snarty(Posted 2003) [#2]
My way is: (Call these when the event happens)
Function LimitText(TextField,Limit)

	GText$=TextFieldText(TextField)
	If Len(GText)>Limit
		SetGadgetText TextField,Left(Limit)
	EndIf 

End Function


Another one you might like...

Function NumericLock(Gadget)

	GText$=TextFieldText(Gadget)
	For T=1 To Len(GText)
		ACheck=Asc(Mid(GText,t,1))
		If (ACheck>47 And ACheck<58) Or (T=1 And ACheck=45)
			NText$=NText$+Mid(GText,t,1)
		EndIf
	Next
	SetGadgetText Gadget,NText$

End Function



hub(Posted 2003) [#3]
Thanks !