Конференция VBStreets

Создаю контрол

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

CONTROL ADD TEXTBOX, hDlg, %IDC_TEXTBOX1, TXT, 5, 5, 180, 44, _
                       %WS_CHILD OR %WS_VSCROLL OR %ES_MULTILINE OR %ES_WANTRETURN, _
                       %WS_EX_CLIENTEDGE

Ни где не нашёл, что есть ограничение на длину текста в нём.
Думал что как и в обычном EDITTEXT должно быть 32кб.
Может быть это у меня что-то не так? (PB9,PB10-Windows2000).
Хотя в стандартный блокнот вставляется и набирается гораздо больший текст.

Проблему решил, установив другое ограничение:
CONTROL SEND hDlg, %ID_TEXT, %EM_SetLimitText, 0,0

ещё:
iResult& = SendMessage(hEdit, %EM_SetLimitText, 10,0) 'FFFF=64K FFFFF=1M FFFFFFFF = 4G

А можно както так выровнять (сдвинуть) текст по вертикали? %EM_SETRECT не могу заставить работать (multiline)... А если single-line контрол?

В TEXTBOX нет ограничений как в vb6 сколько влезет в String столько и отобразит.

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

Control Add TextBox, hDlg, %IDC_TEXTBOX1, "TextBox1", 12, 8, 280, 144, %ES_MULTILINE or %ES_AUTOVSCROLL or %WS_VSCROLL , %WS_EX_STATICEDGE
CONTROL SET TEXT hDlg, %IDC_TEXTBOX1, txt

Kroos писал(а):А можно както так выровнять (сдвинуть) текст по вертикали? %EM_SETRECT не могу заставить работать (multiline)... А если single-line контрол?

Ты хоть сам понял что спрашиваешь?

Убери STATICEDGE и увидишь что текст "прилипнет" к левому верхнему углу контрола.

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

CONTROL ADD TEXTBOX,  hDlg, %IDC_TEXTBOX1, "TextBox1", 42, 31,251, 17, %WS_CHILD OR %WS_VISIBLE

Выровнять нужно текст по центру вертикально. Центрировать по вертикали другими словами. В зависимости от высоты контрола. Что тут непонятного? Вот что нарыл более-менее _http://forums.codeguru.com/showthread.php?347838-Vertical-Align-Text-in-Edit-Box-Possible