Установка property let Multiline TextBox в OCX контроле

[ФАНТОМНЫЙ ЮЗЕР]

Подскажите, пожалуйста, как при помощи API-функций установить режим многострочного/однострочного текста, а также ScrollBar.

Спасибо.

[tyomitch]

Афаик невозможно - это возможно задать только при создании окна.

[Ennor]

Ну почему же нельзя - можно, конечно:

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

EM_MULTILINE

И вообще, все, что можно выставить через CreateWindowEx, впоследствии прекрасно меняется через SetWindowLong

[tyomitch]

Ennor, во-первых, ES_MULTILINE
Во-вторых, так написал Аппельман; правда, я уже и не знаю, верить ему или нет.
А в третьих, ты сам-то пробовал? Вот этот код -

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

Option Explicit
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Const ES_MULTILINE = &H4&
Private Const GWL_STYLE = (-16)

Private Sub Form_DblClick()
SetWindowLong Text1.hWnd, GWL_STYLE, GetWindowLong(Text1.hWnd, GWL_STYLE) Or ES_MULTILINE
End Sub


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

[SHURUP]

Если не жалко текстбоксов, сделай два (один - multiline, другой - нет) и указатель на активный. Неактивный - unvisible.

Я так делал, и по-моему в notepad.exe та же история с .ScrolBar

[Ennor]

Насчет ES_... - это да, маханул. Почему-то взбрело, что это должно быть оконное сообщение .

Я сталкивался со случаями, когда однократный вызов SetWindowLong() не отрабатывал как надо. Либо помогал повторный вызов тут же, по месту употребления, либо приходилось внимательнее ковырять флаги, либо сделать рефреш, либо Hide/Show, либо еще какую-нить чушь в этом духе. Как правило, помогало Конкретно этот пример я конечно не пробовал, но скорее всего это сделать можно. Попробую на досуге...

[tyomitch]

Если не жалко текстбоксов, сделай два (один - multiline, другой - нет) и указатель на активный. Неактивный - unvisible.

Я так делал, и по-моему в notepad.exe та же история с .ScrolBar

Именно так - в notepad.exe два текстбокса. Авторитетно подтверждаю

[Ennor]

Именно так - в notepad.exe два текстбокса. Авторитетно подтверждаю

Сам писал?

[alibek]

Скорее всего проверял шпионом
Но честно говоря, усомнюсь. Всего делов-то, удалить окно и создать новое -- это проще, чем создавать два текстбокса.

[Ennor]

Только что проверил - именно так там и делается. Старое грохается, новое создается... По крайней мере в ХР.

[SHURUP]

Только что проверил - именно так там и делается. Старое грохается, новое создается... По крайней мере в ХР.

Вот так она и решается (проблема oal), выбрал те свойства, какие надо, рухнул старое, создал новое.

[tyomitch]

Только что проверил - именно так там и делается. Старое грохается, новое создается... По крайней мере в ХР.

Упс, точно
А я шпионом посмотрел - хэндл меняется при клике на "Word Wrap", и подумал - видать, два окна...

[ФАНТОМНЫЙ ЮЗЕР]

Спасибо всем, я нашел исходник текстового контроля на сайте vbAccelerator.

Всем огромное спасибо, Андрей.