Function SetLimitTextEditor(ByVal gadget As Long, ByVal Limit As Integer=0) As Integer
Устанавливает предел вводимых от пользователя символов в EditorGadget. Эта функция не ограничивает возможность программного ввода.
gadget - номер гаджета
Limit - кол-во возможно-вводимых символов
Windows
#Include "window9.bi"
Dim As integer event
OpenWindow("1",300,10,500,500)
EditorGadget(1,10,10,300,300, "")
SetLimitTextEditor(1,20)
Do
event=WaitEvent()
If event=EventClose Then End
Loop
Created with the Personal Edition of HelpNDoc: Full featured Kindle eBooks generator