| |
Автоматический просмотр текущего значения элемента VScrollBar с помощью элемента Label |
|
| |
Данный пример при перемещении ползунка
элемента VScrollBar разместит справа от
ползунка небольшое окно, показывающее текущее
значение Value.
Разместите на форме элемент VScrollBar и
элемент Label.
Private Sub Form_Load()
VScroll1.Min = 1
VScroll1.Max = 10
Label1.BackColor = &H80FFFF
Label1.AutoSize = True
End Sub
Private Sub VScroll1_Change()
Label1.Visible = False
End Sub
Private Sub VScroll1_Scroll()
Label1.Caption = VScroll1.Value
Label1.Visible = True
Label1.Left = VScroll1.Left + VScroll1.Width
Label1.Top = (VScroll1.Height - 512) * (VScroll1.Value - VScroll1.Min) / VScroll1.Max +
VScroll1.Top + 256
End Sub
|
|
| |
|
|
|
|