Question

vb用滚动条数组制作一个调色板程序

Answer 1

1个Picture1控件，作为取色盘；
1个VScroll1控件组，VScroll1(0)，VScroll1(1)，VScroll1(2)，分别调节颜色：红、绿、蓝。
分别设置属性：Max=255，Min=0，其它采用默认值。
另加一个文本框Text1,作为改变颜色用的实验控件。
用法：滚动VScroll1，改变RGB，随之改变取色盘里的颜色。
用鼠标双击Picture1控件，鼠标获得盘里的颜色。
用鼠标单击Text1，Text1的背景色改为Picture1控件里的颜色。

代码如下：
复制就可用，具体自己去理解，有困难，继续交流。
Option Explicit
Private R As Integer
Private G As Integer
Private B As Integer
Private ThisColor As Long

Private Sub Form_Load()
Picture1.BackColor = RGB(0, 0, 0)
ThisColor = &H0&
End Sub

Private Sub Picture1_DblClick()
ThisColor = Picture1.BackColor
End Sub

Private Sub Text1_Click()
Text1.BackColor = ThisColor
End Sub

Private Sub VScroll1_Change(Index As Integer)
Select Case Index
Case 0
R = VScroll1(Index).Value
Case 1
G = VScroll1(Index).Value
Case 2
B = VScroll1(Index).Value
End Select

Picture1.BackColor = RGB(R, G, B)
End Sub