TextBox

[master35]

Нужно программно поместить в TextBox большой объем текста.
Text1.Text = "...тут идет большой текст..."
Когда текст вводишь, такое впечатление что он ограничен определенным количеством знаков. Как решить эту проблемму?

[GM]

Он вообще то и ограничен 65535 символами, если нужно больше юзай RichTextBox.

[alibek]

Помоему даже 32767. А если не включен Multiline, то даже 2048.
В NT-системах в него можно загнать до двух Гб.

[tyomitch]

Подтверждаю, что 32Кб.

[A.A.Z.]

Именно поэтому в 9х Блокнот при открытии больших файлов переносит их в WordPad.

[GM]

Незнаю я для проверки я сделал так(Win XP):

Код: Выделить всё

Private Sub Form_Load()
text
Dim s As String
s = String(128000, "A")
MsgBox ("Len(s) = " & Len(s))
Text1.Text = s
MsgBox ("Len(text1.text) = " & Len(Text1.Text))
End Sub


Результат был:
1.128000
2.65535

[GM]

Незнаю я для проверки я сделал так(Win XP):
text1.multiline = true

Код: Выделить всё

Private Sub Form_Load()

Dim s As String
s = String(128000, "A")
MsgBox ("Len(s) = " & Len(s))
Text1.Text = s
MsgBox ("Len(text1.text) = " & Len(Text1.Text))
End Sub


Результат был:
1.128000
2.65535

[tyomitch]

А теперь то же самое проверь на Win98

[Ennor]

2 GM: Фишка в том, что блокнот в NT - это не тот же самый блокнот, что в мастдае. В блокноте NT можно открыть хоть метровый файл, правда, есть большая вероятность BSOD словить По крайней мере, открытие 500-метрового файла в блокноте NT4 приводило именно к этому, в конечном итоге. Но не в этом суть. Суть в том, что текстбокс VB абсолютно идентичен именно мастдайному блокноту со всем из этого вытекающим. Зачем? - очень просто: вспомните, в каком году вышла шестая студия...

Так что только RTB, причем без вариантов, если, конечно, никто не собирается свой собсный TextBox писать с нуля целиком на апях, и (о ужас!), возможно, даже через CreateWindowEx()...

[tyomitch]

А я думаю, что через EM_SETHANDLE текстовый буфер таки можно расширить... Сейчас проверю.

[tyomitch]

Точно, всё даже без EM_SETHANDLE работает.
Нужно просто устанавливать текст через SetWindowText: в Property Let VB.TextBox::Text текст искуственно обрезается до 64Кб.

Вот этот код работает:

Код: Выделить всё

Option Explicit
Private Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hWnd As Long, ByVal lpString As String) As Long

Private Sub Form_Load()
SetWindowText Text1.hWnd, Space(2000000)
Debug.Print Len(Text1.Text)
End Sub


[tyomitch]

Суть в том, что текстбокс VB абсолютно идентичен именно мастдайному блокноту со всем из этого вытекающим.

Так что абсолютность оказалась весьма относительной - и в стандартный текстбокс можно впихнуть несколько метров текста...

[GSerg]

Тёмыч, ты это точно на 98 проверил? А то это несколько расходится с тем, что написано в MSDN

[tyomitch]

Только на Win2000
Потому что Ennor утверждал, что и там есть ограничение.

А в Win98-то никаких сомнений нет, что 32Кб - максимум...

[Ennor]

Только на Win2000
Потому что Ennor утверждал, что и там есть ограничение.
...

Это где я такое утверждал? Нет, я, может, и безумец, но не идиот, все-таки . Есть ли такое ограничение в NT - точно не знаю, но сам видел, как валится NT4 Workstation при открытии дампа оракловой базы в блокноте. Полчаса зависона, и свободен. Так что, даже если де-юре ограничения нет (4 Гб не считаем, это у всех), то на практике оно вполне может быть. Причем скорее всего плавающим, например, зависящим от длины рамы в машине, или еще от чего...

[tyomitch]

Ты утверждал, что VB.TextBox не способен содержать больше 32Кб даже на Win2000.
Утверждал?

[Ennor]

Насчет абсолютности, я, возможно, и погорячился, но в принципе - да. А ты попробуй применить SetWindowText() к мастдайному блокноту - не удивлюсь, если сработает .

[tyomitch]

А ты попробуй применить SetWindowText() к мастдайному блокноту - не удивлюсь, если сработает .

Ладно, ночью пойду под Win98 в игрушку резаться - заодно проверю

[tyomitch]

Вот, проверил. 32Кб максимум, как и ожидалось.

[Ennor]

Что ж, значит, в мастдае блокнот действительно такой кривой сам по себе, а VB.TextBox просто под него закамуфлирован. Непонятно, правда, зачем, но, как известно, пути Microsoft неизвестны никому, в том числе и дяде Билли...

[Andrew Sherd]

Когда-то давно в одной книжке еще по VB5 был примерчик как загрузить в блокнот больше 32 кб....там просто текст в массив разбивался на блоки по 32 и при скролинге дописывался в блокнот, а первые удалялись....гемморно, но чем не вариант?

[SHURUP]

Когда-то давно в одной книжке еще по VB5 был примерчик как загрузить в блокнот больше 32 кб....там просто текст в массив разбивался на блоки по 32 и при скролинге дописывался в блокнот, а первые удалялись....гемморно, но чем не вариант?

Ага! Что-то похожее читал! А что там с выделением и копированием творилось - даже вспомнить страшно!