textbox maxlenght

Hi !

How to limit the number of characters into a textbox ?

Thanks !

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

Thanks !