Как привязать Label к бегунку HScroll - VB

Формулировка задачи:

Доброго всем времени суток! Не получается привязать метку к бегунку HScroll.Пробую так

Private Sub HScroll_Change()
Dim K As Single
K = (HScroll.Width) / (HScroll.Max + 1)
Label1.Caption = HScroll.Value
Label1.Left = HScroll.Value * K
End Sub

Вроде работает,но с ошибками,т.е движется синхронно,но Label смещается.Пожалуйста подскажите как правильно сделать.

Решение задачи: «Как привязать Label к бегунку HScroll»

textual
                            Листинг программы 
                        

                            Private Sub HScroll_Change()
Dim K As Single
K = (HScroll.Width - Label1.Width) / HScroll.Max
Label1.Caption = HScroll.Value
Label1.Left = HScroll.Left + HScroll.Value * K
End Sub
                        

Оцени полезность:

12 голосов , оценка 3.917 из 5

Похожие ответы