VScrollbar hScrollbar
함흥처사
2014.02.05 08:09:59
*: Public Class Form1
Sub colorbox()
Dim yassir As Color
yassir = Color.FromArgb(redbar.Value, greenbar.Value, bluebar.Value)
panel.BackColor = yassir
End Sub
Private Sub redbar_Scroll(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles redbar.Scroll
If e.Type = ScrollEventType.EndScroll Then colorbox()
redbox.Text = redbar.Value
End Sub
Private Sub greenbar_Scroll(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles greenbar.Scroll
If e.Type = ScrollEventType.EndScroll Then colorbox()
greenbox.Text = greenbar.Value
End Sub
Private Sub bluebar_Scroll(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles bluebar.Scroll
If e.Type = ScrollEventType.EndScroll Then colorbox()
bluebox.Text = bluebar.Value
End Sub
End Class