求 用滚动条 编写3源色的代码

来源：百度知道 编辑：UC知道 时间：2024/05/26 07:01:12

画面控件：
HScroll1，这是控件数组0，1，2
Label1，这是控件数组0，1，2
Text1
Command1
Command2

代码：
Private Sub Command1_Click()
Me.Text1.BackColor = RGB(Me.HScroll1(0).Value, Me.HScroll1(1).Value, Me.HScroll1(2).Value)
End Sub

Private Sub Command2_Click()
Me.Text1.ForeColor = RGB(Me.HScroll1(0).Value, Me.HScroll1(1).Value, Me.HScroll1(2).Value)
End Sub

Private Sub HScroll1_Scroll(Index As Integer)
Me.Label1(Index).Caption = Me.HScroll1(Index).Value
Me.BackColor = RGB(Me.HScroll1(0).Value, Me.HScroll1(1).Value, Me.HScroll1(2).Value)
End Sub