Расположение контролов на форме

[Sirik]

Допустим есть контрол (любой, например Text1 с индексом 0)

Такой функцией я добавляю ещё 40 элементов:

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

    Load Text1(I)
    Text1(I).Visible = True
    Text1(I).Top = Text1(I - 1).Top + Text1(I - 1).Height + 100

Естественно что все контролы не помещяются на форме

Теперь вопрос, как организовать прокручивание контролов на форме используя VScroll ?

[Ramzes]

Приметивно но работает

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

Private Sub Form_Load()
HS.Value = Command1.Top
End Sub

Private Sub HS_Change()
Command1.Top = HS.Value
End Sub


[Sirik]

Я понимаю что таким методом, но какие Min и Max задать надо?

У меня стречаются случаи (кол. котролов) 36, 72, 18

[Ramzes]

Методом "НАУЧНОГО ТЫКА" выбрать нужные параметры

[Sirik]

Я так и сделал!
Думал, что есть другой способ

[Igor_123]

Методом "НАУЧНОГО ТЫКА"

Есть ещё "справочник СТЕЛЯ"

[Ramzes]

Методом "НАУЧНОГО ТЫКА"

Есть ещё "справочник СТЕЛЯ"

Что это за справочник такой

[Igor_123]

Это когда сидя за столом, в поисках нужного значения, подымаешь голову вверх и видишь справочник СТЕЛЯ(потолок по украински)

[Ramzes]

Я как то сразу и не допер
Хотя сам украинец

Я сначала подумал " Кто такой этот Стель"

[Cryonyx]

А я бы сделал так:

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

Private Sub VScroll1_Scroll()
Dim I as Integer
for i=0 to text1.ubound
  text1(i).top=text1(i).top-vscroll1.value
next i
End Sub


По этому коду всё это дело будет подниматься вверх. А чтобы задать Max, делай так:

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

    Load Text1(I)
    Text1(I).Visible = True
    Text1(I).Top = Text1(I - 1).Top + Text1(I - 1).Height + 100
VScroll1.Max=text1(text1.ubound).top+text1(text1.ubound).height


По идее, должно работать

[Konst_One]

господа не страдайте фигней
проще вставить эти контролы на picturebox2, который находится в picturebox1 и двигать его относительно 1 с помощью скролла

вот что-то вроде этого:
http://vbnet.mvps.org/code/forms/scrollviewport.htm