WS_HSCROLL

[GLEB]

Пытаюся установить textbox-у горизонтальную полосу прокрутки во время выполнения.

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

Dim cs As Long
cs = GetWindowLong(Text1.hwnd, GWL_STYLE)
Call SetWindowLong(Text1.hwnd, GWL_STYLE, cs Or WS_HSCROLL)

После обновления окна программы горизонтальная полоса появляется, но перенос по словам попрежнему остается. (бегунок не появляется).

ES_MULTILINE - тоже не работает, хотя последуюший вызов GetWindowLong показывает, что новый стиль установлен.

[GSerg]

Раз.

Эти стили нельзя устанавливать после создания окна, GLEB.


tag_warning

[GLEB]

GSerg
Непонял почему тему перекинули, вопрос что-ли слишком простенький.
Ну тогда скажите мне, как делает блокнот, когда выбыраешь "перенос по словам"? Там полосы покрутки добавляются и убираются во время выполнения?

[GSerg]

Правильно понял, перечитай ссылку ещё раз...

Блокнот убивает одно окно и создаёт другое.

[GLEB]

GSerg
Ясно, спасибо.

[neic]

А Text1.MultiLine = True и Text1.ScrollBars = 2 кто-то отменял?

[GSerg]

neic оправдывает своё звание снова и снова, но при этом оно ему не нравится... Ничё не понимаю

[neic]

neic оправдывает своё звание снова и снова, но при этом оно ему не нравится... Ничё не понимаю

Я не правильно понял первый пост! Перепрочитал всё понял, почему я не то написал.