Private Sub Form_Load()
HScroll1(0).Min = 0
HScroll1(1).Min = 0
End Sub
Private Sub HScroll1_Change(Index As Integer)
VScroll1(0).Min = 0
VScroll1(1).Min = 0
Value)End Sub.
Dim i%
HScroll1(i).Min = 0
HScroll1(i).Value = 0
Next
Sub
Form_Load()
VScroll1(0).Min
=
0
VScroll1(0).Max
VScroll1(1).Min
VScroll1(1).Max
SubPrivate
VScroll1_Change(Index
As
Integer)
Label1.ForeColor
RGB(VScroll1(0).Value,
VScroll1(1).Value,
Value)End
Sub.
以上就是土嘎嘎小编大虾米为大家整理的相关主题介绍,如果您觉得小编更新的文章只要能对粉丝们有用,就是我们最大的鼓励和动力,不要忘记讲本站分享给您身边的朋友哦!!