прокрутка формы

[iolaus]

у меня на форме должно быть 45 textboxов идущих вниз, это собственно за раз не влезает... а как сделать ЛУЧШЕ что бы это все скролировать????

у меня еть только идея поставить скролбар и менять координаты всех textboxов... но это как-то голимо:(

подскажите кто чего знает!!!!!!!

[tyomitch]

Добавь к окну стиль WS_VSCROLL.

[iolaus]

а я правильно делаю????

Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Public Declare Function UpdateWindow Lib "user32" (ByVal hwnd As Long) As Long
Public Const WS_VSCROLL = &H200000
Public Const GWL_STYLE = (-16)


SetWindowLong Me.hwnd, GWL_STYLE, WS_VSCROLL

только получается какой-то расколбас!!!!

[iolaus]

попробовал так:

dwStyles = GetWindowLong(Picture1.hwnd, GWL_STYLE)
dwStyles = dwStyles And WS_VSCROLL
SetWindowLong Picture1.hwnd, GWL_STYLE, dwStyles

та же проблема Picture1 просто не виден

[tyomitch]

Вместо And ставь Or.

[iolaus]

сделал так:
dwStyles = GetWindowLong(Picture1.hwnd, GWL_STYLE)
dwStyles = dwStyles Or WS_VSCROLL
SetWindowLong Picture1.hwnd, GWL_STYLE, dwStyles

И ничего!!! скролы не появились и прокручивать ни чего нельзя....

Я что-то не догоняю

А собственно скролы вообще должны появиться или нет???

[Andrey Fedorov]

у меня на форме должно быть 45 textboxов идущих вниз, это собственно за раз не влезает... а как сделать ЛУЧШЕ что бы это все скролировать????

А не проще ли взять обычный Grid????

[iolaus]

А не проще ли взять обычный Grid????

А реально!!!! спасибо!!!

Но вопрос со скролом открыт... Почему не получается???

[Andrey Fedorov]

Но вопрос со скролом открыт... Почему не получается???

Да честно говоря не охота разбираться...

Когда мне надо было скролить на форме PictureBox я просто использовал приложенный класс. Если разберешься с его свойствами (оно не столь сложно) то можешь его использовать чтобы скролить объект на котором лежат твои контролы... Но в твоем случае оно и не нужно...

[tyomitch]

Но вопрос со скролом открыт... Почему не получается???

Для формы - работает, я только что проверил.
Для пикчербокса - не работает.

[AjaxVS]

>>у меня еть только идея поставить скролбар и менять координаты всех textboxов... но это как-то голимо

А я бы сразу сделал массив этих текстбоксов, и немного усовершенствовал бы эту идею... и ничего галимого...

[Andrey Fedorov]

А я бы сразу сделал массив этих текстбоксов, и немного усовершенствовал бы эту идею... и ничего галимого...

Мозахисты... Я же давал класс, в нем есть ссылка на сайт, на этом сайте примитивно находится пример. Как раз на эту тему (только в нем TextBox-ов штук 50, а не 40):

http://www.vbaccelerator.com/home/VB/Code/Libraries/Subclassing/Adding_Scroll_Bars_To_Forms__PictureBoxes_and_UserControls/VB5_Scroll_Bars_Demonstration.asp

[iolaus]

tyomitch
я попробовал для формы...
получается, но только скрол появляется когда пытаешся изменить размер окна

почемуто ни
Me.Refresh
ни
UpdateWindow (Me.hwnd)
не помогает и потом скрол ведь не работает.... а как им потом управлять???

[Тимофей]

Посмотрите мой пример.

[Kovu]

,не помогает и потом скрол ведь не работает.... а как им потом управлять???

Видел где-то свойство WS_AutoScroll не помню где , но ведь есть же

[tyomitch]

,не помогает и потом скрол ведь не работает.... а как им потом управлять???

Видел где-то свойство WS_AutoScroll не помню где , но ведь есть же

Нету такого.

WS_VSCROLL

When this style is enabled, Windows places a vertical scroll bar along the right side of the window. Windows does not automatically scroll the window. For a window to allow vertical scrolling, the window procedure for the window must process the WM_VSCROLL messages, and the window must be created with the WS_VSCROLL style.