Трабла со скроллингом

[AnarCky]

Во время юзания VScrollBar`а написал вот такой код, и теперь элементы плавно двигаются, а не дергаются на самый верх. Но как вернуть их обратно, при движении ползунка вверх. Помогите пожалуйста!

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


    Private Sub vb_Scroll(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles vb.Scroll
        lbPV.Top = lbPV.Location.Y - vb.Value
        lbO.Top = lbO.Location.Y - vb.Value
        txtPV.Top = txtPV.Location.Y - vb.Value
        txtO.Top = txtO.Location.Y - vb.Value
    End Sub


[gaidar]

Неграмотная функция - любое движение будет уводить вниз! Нужно запомнить тогда уж исходные значения в переменны и "двигать" их.

Dim lbPVY = lbPV.Location.Y
...
lbPV.Top = lbPVY - vb.Value

Правда решение странное само по себе, не лучше ли использовать контейнер, поддерживающий скроллинг внутри себя, либо сделать обход всех элементов в массиве, чтобы не писать код отдельно для всех элементов?

[AnarCky]

Что значит

использовать контейнер, поддерживающий скроллинг внутри себя

В смысле для него не надо создавать скроллинг отдельно? Поясни пожалуйста.

[gaidar]

Ну взять элемент управления, поддерживающий скроллинг внутри себя. Я видел примеры на www.pscode.com с открытым исходным кодом. Сейчас, к сожалению, не могу поискать. Но, думаю, Google тебе поможет