Как на форме можно зделать VScrollBar?

[Max!]

Например на форуме справа есть скрол и если хочешь просматреть темы которые находятся ниже ты скролиш вниз , а когда вверх скролиш вверх , вот и я хочу примерно сделать в своей проге! Помогите!!! Pleas!

[moderator]

Поточнее вопрос можно?

[Max!]

Ну дапустим на форме я разместил кнопки и другие формы упровления
уменьшил форму до нужных размеров , естественно что не все формы упровления вместились , и для этого мне нужно зделать скрол что бы прокрутить вниз или вверх что бы увидеть невместившиеся формы упровления! Тьфу! Ну типерь понятние?

[mad_Max]

запихай все контролы в какой-нибудь контрол-контейнер (PictureBox, Frame) и сделай его такого размера, чтобы их всех было видно в нем. Потом уменьши форму до нужных размеров, вставь VScrollBar и сделай так, чтобы при скроллинге перемещался контейнер - он потянет за собой все содержащиеся в нем элементы, например:

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

Private Sub Form_Load()
VScroll1.Min = 0
VScroll1.Max = Me.ScaleHeight - Frame1.Height
End Sub
Private Sub VScroll1_Scroll()
Frame1.Move 0, VScroll1.Value
End Sub

здесь VScroll1 - VScrollBar, а Frame1 - контейнер (в данном случае Frame)

[Max!]

Огромное тебе спасибо за помощь, С благодарностью , MAX!

[Max!]

У меня возникла еще одна проблема , как ты говорил mad_Max я разместил на форму Frame1 и засунул туда все формы упровления ,
затем я уменьшил форму до нужных размеров разместил скрол ,
в форму вписал такои код:

Private Sub Form_Load()
VScroll1.Min = 0
VScroll1.Max = Me.ScaleHeight - Frame1.Height

А в скрол:

Private Sub VScroll1_Scroll()
Frame1.Move 0, VScroll1.Value

Откомпелировал прогу нажал на скрол что бы он прокрутил и вот бац
он половина форм упровления вообще убрал вверх и их некак не видно если даже обратно прокрутить скрол , а другую часть форм упровления оставил кусками от первои части и их не прокручивает!
Вчем проблема помогите?!

[RayShade]

Ну и правильно Потому что если разобраться в коде, то именно это он и сделает



Я ж писал уже, как это надо организовывать

Не надо никаких доп. контейнеров. Просто при проектировани создаем форму, например высотой в 50000 твипов. На ней все размещаем.

Потом сжимаем форму в дизайнере до нужного нам размера.

И в обработке скролинга пишем



for each ctl in form.controls

ctl.top = ctl.top + vscroll.value * (50000 / form.scaleheight ) ' задаем отношение изначальнойго "холста" и того, что мы сейчас фактически видим.

next ctl



и все.