做一个改变窗体背景颜色的代码，拖动滚动条的同时，颜色跟着变化，并在后面加一个标签，显示当前颜色值（即此值随着背景颜色的变化而变化）
我写了一些代码，但是拖动三个滚动条的时候，都是由黑色到红色，请问怎么改，谢谢了！！
Private Sub Form_Load()
Form1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
HScroll1.Max = 255 And HScroll1.Min = 0
HScroll2.Max = 255 And HScroll1.Min = 0
HScroll3.Max = 255 And HScroll3.Min = 0
End Sub
Private Sub HScroll1_Change()
Form1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
Form1.BackColor = HScroll1.Value
End Sub
Private Sub HScroll2_Change()
Form1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
Form1.BackColor = HScroll2.Value
End Sub
Private Sub HScroll3_Change()
Form1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
Form1.BackColor = HScroll3.Value
End Sub
|
