Question

vb中用三个滚动条来渐变文本框中的背景颜色。

题：用三个滚动条分别代表（红、绿、兰）。一起来调整文本框中的颜色（可以渐变） 文本框:text1
滚动条：hscorll1:红色 hscorll2:绿色 hscorll3:兰色
书上是这样写的：
private sub hscorll1_change()
text1.BackColor = RGB(HsbRed.Value, HsbGreen.Value, HsbBlue.Value)
End Sub

Private Sub HScroll1_Scroll()
text1.BackColor = RGB(HsbRed.Value, HsbGreen.Value, HsbBlue.Value)
End Sub
text2和text3都照上面的写
可是运行之后出错，请帮忙修改一下。
"""""""""""""""""text2""和""text3""""""都照上面的写 。
这句话是错的,应该是""hscroll2""和""hscroll3 还有滚动条是(hscroll) 上面都写错了.不好意思.
本人初学VB,却到这里卡住了.哪位帮帮忙,先谢了...

Answer 1

改成:
private sub hscorll1_change()
text1.BackColor = RGB(hscorll1.Value, hscorll2.Value, hscorll3.Value)
End Sub

Private Sub HScroll1_Scroll()
text1.BackColor = RGB(hscorll1.Value, hscorll2.Value, hscorll3.Value)
End Sub

要不把hscorll1的name属性改为:HsbRed,hscorll2的name属性改为:HsbGreen,hscorll3的name属性改为:HsbBlue