Page 61 - 6735

вибраного елемента
UserForm10.Caption = ComboBox1.Text & " " &
ComboBox1.ListIndex
End Sub

Рисунок 2.14 – Елемент керування ComboBox

Класи ScrollBar і SpinButton – смуга прокручування і лічильник

В прикладі UserForm11 показано використання елементів
керування ScrollBar (смуга прокручування) і SpinButton
(лічильник), які дозволяють користувачу виставити задане значення
їхньої властивості Value шляхом натиску кнопок зі стрілками або
переміщення повзунка (рис. 2.15). Основна їхня подія – Change
(зміна значення).

Private Sub UserForm_Initialize()
ScrollBar1.Orientation = fmOrientationHorizontal
'орієнтація
ScrollBar1.Min = 0 'мінімальне значення
ScrollBar1.Max = 10 'максимальне значення
ScrollBar1.SmallChange = 1 'малий крок зміни значення
ScrollBar1.LargeChange = 2 'великий крок зміни значення
ScrollBar1.Delay = 10 'затримка подій зміни значення
SpinButton1.Min = 0 'мінімальне значення
SpinButton1.Max = 10 'максимальне значення
SpinButton1.SmallChange = 1 'малий крок зміни значення
End Sub

61