textbox maxlenght
BlitzPlus Forums/BlitzPlus Programming/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 ! |