| |
Как изменить цвет фона при изменении значения элемента ScrollBar |
|
| |
Создайте новый проект, добавьте на форму 2
элемента PictureBox и 3 элемента HScrollBar. Изменяя
значения элементов HScrollBar (кликая на стрелочках,
перемещая бегунок или кликая на полосе между
бегунком и правой/левой стрелкой) вы можете
наблюдать, как меняется цвет элементов PictureBox.
Заметьте, событие Change применяется к элементу
PictureBox1, а событие Scroll - к элементу PictureBox2. Таким
образом видна разница между событиями. Более
подробно о событиях элемента HScrollBar можно прочитать здесь.
Описание функции RGB читайте
здесь.
Private Sub HScroll1_Change()
Colors
Picture2.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
End Sub
Private Sub HScroll1_Scroll()
Colors
Picture1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
End Sub
Private Sub HScroll2_Change()
Colors
Picture2.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
End Sub
Private Sub HScroll2_Scroll()
Colors
Picture1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
End Sub
Private Sub HScroll3_Change()
Colors
Picture2.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
End Sub
Private Sub HScroll3_Scroll()
Colors
Picture1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
End Sub
Public Sub Colors()
Me.Caption = "Красный=" & HScroll1.Value & ";
Зеленый=" & HScroll2.Value & "; Синий=" &
HScroll3.Value
End Sub
|
|
| |
|
|
|
|