Unter PB hab ich diese Funktion leider noch nicht gefunden, deshalb hab ich sie mit Hilfe zweier Codeschnipsel von Danilo selbstgeschrieben.
Die Funktion muss jedesmal aufgerufen werden, wenn der Inhalt der Textbox verändert wurde (EventType()=#PB_EventType_Change) .
Code: Alles auswählen
Procedure chkLen(gadget.l,Length.l)
Protected CurPos.l
Protected tmpText.s
tmpText=GetGadgetText(gadget)
If Len(tmpText)>Length
SendMessage_(GadgetID(gadget),#EM_GETSEL,@CurPos,@Max)
SetGadgetText(gadget,Left(tmpText,Length))
SendMessage_(GadgetID(gadget),#EM_SETSEL,CurPos,CurPos)
EndIf
EndProcedure