Подскажите пожалуйста! Какой размер у объекта Text Box ?

[OMEGUS]

Заполняю объект Text1.Text циклом через какое-то время... цикл продолжается а объект перестает заполняться данными...

Заполняю строками по 30 символов примерно какждая, примерно на 270 строке он останавливается на середине строки.

Подскажите пожалуйста какой по умлчанию размер у этого объекта и где и как его можно изменить ?

Сасибо..........

[GSerg]

32767 символов.

На виндах 2000 и выше можно засовывать и больше, но там обрезание производит сам VB, и нужно юзать не проперть text, а setwindowtext.

[OMEGUS]

Сапсибо... а пример не можешь привести....

[GSerg]

Private Declare Function SetWindowText Lib "user32.dll" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As Long

sub dsf
setwindowtext text1.hwnd, string$(100000,"A")
end sub

[OMEGUS]

Спасибо...
Но тогда определенно мой TextBox не заполняется таким количеством символов. максимум 8000 тысяч но не 32767...

Может кто-то подскажет из за чего TextBox не может далее заполняться ???

Заполнение я произвожу вот так...

If P = 1 Then Text4 = Text4 + " pkey" & C
If P = 1 Then Text4 = Text4 + Chr(13) + Chr(10)
If P = 1 Then Text4.Refresh
Text4.SelStart = Len(Text4.Text)

[alibek]

Чему равно свойство .MultiLine? Если не True, то тогда максимум - 2048 символов.

[OMEGUS]

MultiLine = True ...........

[alibek]

Тогда 32767.
Советую использовать ListBox для вывода. Или, если нужна возможность выделения и копирования текста, RichTextBox.

[OMEGUS]

to GSerg

Спсибо за пример реализовать получилось но заполнять дальше Text Box не получается...

В чем же дело кто-нибудь сталкивался с таким ???

[OMEGUS]

подсчитал по внимательнее сколько символов у меня записывается в Text Box около 3200 с копейками....

Буду думать дальше