请高手做Visual Basic 问题

来源：百度知道 编辑：UC知道 时间：2024/05/16 20:40:11
(1) 设计一个调色板应用程序，使用三个滚动条作为三种基本颜色的输入工具，合成的颜色显示在右边的颜色区（一个标签框），用合成的颜色设置其背景色（BackColor属性）。当完成调色以后，用"设置前景颜色"或"设置背景颜色"按钮设置一文本框的前景和背景颜色。

Private Sub Command1_Click()
Text1.ForeColor = Label1.BackColor
End Sub

Private Sub Form_Load()
Dim i As Long
For i = 0 To 2
HScroll1(i).Max = 255
Next
End Sub

Private Sub HScroll1_Change(Index As Integer)
Label1.BackColor = RGB(HScroll1(0).Value, HScroll1(1).Value, HScroll1(2).Value) 'HScroll1(0)为红色,HScroll1(1)为绿色,HScroll1(2)为蓝色
End Sub

滚动条为控件数组