Private Sub Form_Load()
Dim i As Integer
For i = 0 To 2
HScroll1(i).Max = 255
HScroll1(i).Min = 0
Next
End SubPrivate Sub HScroll1_Change(Index As Integer)
Text1.BackColor = RGB(HScroll1(0).Value, HScroll1(1).Value, HScroll1(2).Value)
End Sub
HScroll1.Max = 255
HScroll2.Max = 255
HScroll3.Max = 255
HScroll1.Min = 0
HScroll2.Min = 0
HScroll3.Min = 0
End SubPrivate Sub HScroll1_Change()
Text1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
End SubPrivate Sub HScroll2_Change()
End SubPrivate Sub HScroll3_Change()
放上一个Label1控件和一孝余个VScroll1控件组(3个控件)，再拷贝下蚂吵列代码到闷慎侍代码窗口。Private
Sub
Form_Load()
VScroll1(0).Min
=
0
VScroll1(0).Max
255
VScroll1(1).Min
VScroll1(1).Max
VScroll1(2).Min
VScroll1(2).Max
255End
SubPrivate
VScroll1_Change(Index
As
Integer)
Label1.ForeColor
RGB(VScroll1(0).Value,
VScroll1(1).Value,
VScroll1(2).
Value)End
Sub.
水平滚动条是数组吗
研修生出来不能当上检察官，或者没有好的律师行收纳，照样是贫下中农......
在读期间没有工资
这还不简单，在滚动条的change事件和滚族配动裤旦事件中添加兆纯指：
text1(0) = HScroll1.Value '随机应变吧
Me.Picture1.BackColor = RGB(text1(0), text1(1), text1(2))
以上就是土嘎嘎小编大虾米为大家整理的利用滚动条调单个颜色_vb中如何用滚动条制作颜色的变化相关主题介绍,如果您觉得小编更新的文章对您有所帮助，不要忘记讲本站分享给您身边的朋友哦！！