Question

在VB怎样利用三个水平滚动条，改变一个圆角矩形的填充颜色?

Answer 1

将三个滚动条与三个文本框都定义成控件组 响应以下事件Private Sub HScroll1_Change(Index as integer)
text1(index).Text = HScroll1(index).Value Shape1.FillColor = RGB(Text1.Text, Text2.Text, text3.Text) End Sub

Answer 2

再多整个Timer，
Private Sub Form_Load()
Shape1.FillStyle = 0
End SubPrivate Sub Timer1_Timer()
HScroll1.Max = 255
HScroll2.Max = 255
HScroll3.Max = 255
HScroll1.Min = 0
HScroll1.Min = 0
HScroll1.Min = 0
Text1.Text = HScroll1.Value
Text2.Text = HScroll2.Value
Text3.Text = HScroll3.Value
Shape1.FillColor = RGB(Text1.Text, Text2.Text, Text3.Text)
End Sub

Answer 3

Shape1.FillColor = RGB(Text1.Text, Text2.Text, text3.Text)