Какой размер у объекта 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
'-----------------------------

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

Новые блоги и статьи Все статьи Все блоги /
Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .	Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL3_image 8Observer8 27.01.2026 Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .	влияние грибов на сукцессию anaschu 26.01.2026 Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .	Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .
Установка Android SDK, NDK, JDK, CMake и т.д. 8Observer8 25.01.2026 Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .	Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf 8Observer8 25.01.2026 Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .	Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly 8Observer8 24.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	моя боль iceja 24.01.2026 Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .

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

	Какой размер у объекта Text Box ? 10.04.2011, 10:59. Показов 4123. Ответов 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