Какой размер у объекта Text Box ?

@OMEGUS · Регистрация: 30.03.2011

Студворк — интернет-сервис помощи студентам

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

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

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

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

@Serge Gavrilov · 11.04.2011, 23:21

2VladConn
Странно .... :-)
А как же полученные мной 64kb для TextBox.Text (MultiLine = False)?
Может сами проверите?

VB6

@Alexey Spirin · 11.04.2011, 23:53

гы)
специально проверить решил)
что при Multiline=false, что при Multiline=True резуьтат один - 65535.

@VladConn · 12.04.2011, 00:09

Vsem privet.

Tak govorit moy VB6 help. Eto ne otsebyatina. Special'no ot microsofta pripas.

Mozhet kak nibud' sam i proveryu.

vlad

12.04.2011, 00:12

This is OS-dependent result

@Alexey Spirin · 12.04.2011, 00:16

2VladConn: согласен полностью, в MSDN именно так и прописано, но, как известно, VB далеко не всегда работает так, как там описано))

@VladConn · 12.04.2011, 00:35

Vot nashel, no ne proveryal. Yakobi' mozhno zasunut' dazhe 70000 bukovok takim manerom:

Visual Basic
1
2
3
4
5
6
7
8
9
10
Private Declare Function SendMessage Lib 'user32' _
    Alias 'SendMessageA' (ByVal hwnd As Long, ByVal wMsg As Long, _
    ByVal wParam As Long, lParam As Any) As Long
Private Const WM_SETTEXT = &HC
 
Private Sub Form_Load()
    Dim s As String
    s = String(70000, '@')
    SendMessage text1.hwnd, WM_SETTEXT, 0&, ByVal s
End Sub

vlad

@Alexey Spirin · 12.04.2011, 00:48

гы) как ни странно, но на самом деле можно)
Более того, после ввода данных таким образом можно еще и продолжить в нем писать... и длина увеличивается.....
Возможно, на самом деле все дело в версии ОС...
Т.к., к примеру, в W98 блокнот не мог открыть файл более 32 КБ или 64.. не помню..
А ХРый блокнот открывает любые...

@OMEGUS · 12.04.2011, 11:15 **[ТС]**

!!!!
????
!!!!

Ну и грузанули :-)

Спасибо

@Дмитри5 · 13.04.2011, 11:08

Привет всем.
Вспомнил я, что и мне пришлось натупить на эти 'грабли'.
Все дело в этом For i = 1 To 20000
В VB5 - почему-то он до конца не докручивается.
Поэтому и в VB6 я его использую только при малых циклах :

)

ПРОВЕРЬТЕ ТАКОЙ ЦИКЛ:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Dim k
   k=20000
zikl:
' далее по автору
For f= 1 to 20
 
If ExcSheet.Cells(i, stolb(f)) = '' Then Text4 = Text4 + ' Пустое значение в строке ' & i & ' в столбце ' & Stolbname(f)
If ExcSheet.Cells(i, stolb(f)) = '' Then Text4 = Text4 + Chr(13) + Chr(10)
If ExcSheet.Cells(i, stolb(f)) = '' Then Text4.Refresh
Text4.SelStart = Len(Text4.Text)
 
Next f
 
 if k > 0 then Goto zikl:
 
Msgbox 'k = ' & k
'-----------------------------

Что получите нам подскажите. Тогда пойдем вместе дальше!

Новые блоги и статьи Все статьи Все блоги /
FPS контроллер с анимированными Y-Bot и 3D-звуком miniaudio (Box3D, Recast, BehaviorTree.CPP, ozz-animation, ImGui, OpenGL и SDL3) 8Observer8 18.10.2026 Содержание блога \| English Version Полное мультиплатформенное руководство по стартовому проекту с FPS-контроллером игрока, анимированными роботами Y-Bot с 4-слойным блендингом, 3D-физикой Box3D,. . .	Локальный http сервер Argus19 17.10.2026 Локальный http сервер На работе, на двух локальных компьютерах круглосуточно работают программы опроса приборов с записью в книги Excel,которые раз в сутки записываются на сервер компании. Т. к. . . .	Копировать Windows на новый диск на UEFI damix 17.10.2026 https:/ / uriesk. wordpress. com/ 2016/ 11/ 01/ move-window-10-to-ssd-on-a-uefi-dualboot-system-with-basic-linux-tools/ TL DR Вставляем диск, а старый подключаем через переходник, грузимся с лайва. . .	ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .
Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .

@OMEGUS 1 / 1 / 0 Регистрация: 30.03.2011 Сообщений: 29

	Какой размер у объекта Text Box ? 10.04.2011, 10:59. Показов 4464. Ответов 28 Метки нет (Все метки) Заполняю объект Text1.Text циклом через какое-то время... цикл продолжается а объект перестает заполняться данными... Заполняю строками по 30 символов примерно какждая, примерно на 270 строке он останавливается на середине строки. Подскажите пожалуйста какой по умлчанию размер у этого объекта и где и как его можно изменить ? Сасибо.......... 0

@Serge Gavrilov 3 / 3 / 0 Регистрация: 18.01.2009 Сообщений: 140
	11.04.2011, 23:21
	2VladConn Странно .... :-) А как же полученные мной 64kb для TextBox.Text (MultiLine = False)? Может сами проверите? VB6 0

@Alexey Spirin 2 / 2 / 1 Регистрация: 18.10.2007 Сообщений: 1,748
	11.04.2011, 23:53
	гы) специально проверить решил) что при Multiline=false, что при Multiline=True резуьтат один - 65535. 0

@VladConn 6 / 6 / 3 Регистрация: 17.10.2007 Сообщений: 1,119
	12.04.2011, 00:09
	Vsem privet. Tak govorit moy VB6 help. Eto ne otsebyatina. Special'no ot microsofta pripas. Mozhet kak nibud' sam i proveryu. vlad 0

@Alexey Spirin 2 / 2 / 1 Регистрация: 18.10.2007 Сообщений: 1,748
	12.04.2011, 00:16
	2VladConn: согласен полностью, в MSDN именно так и прописано, но, как известно, VB далеко не всегда работает так, как там описано)) 0

@Alexey Spirin 2 / 2 / 1 Регистрация: 18.10.2007 Сообщений: 1,748
	12.04.2011, 00:48
	гы) как ни странно, но на самом деле можно) Более того, после ввода данных таким образом можно еще и продолжить в нем писать... и длина увеличивается..... Возможно, на самом деле все дело в версии ОС... Т.к., к примеру, в W98 блокнот не мог открыть файл более 32 КБ или 64.. не помню.. А ХРый блокнот открывает любые... 0

@OMEGUS 1 / 1 / 0 Регистрация: 30.03.2011 Сообщений: 29
	12.04.2011, 11:15 [ТС]
	!!!! ???? !!!! Ну и грузанули :-) Спасибо 0