Question

VB程序设计

8. 利用VB的标准函数RGB改变图5标签中字体颜色，语法格式如下：
RGB(红,绿,蓝)三个参数取值范围为0~255
设置三个滚动条：hsbR,hsbG,hsbB代表红、绿、蓝三种颜色。

Answer 1

添加3个HScrollBar控件，分别改名为hsbR、hsbG、hsbB
将hsbR、hsbG、hsbB三个控件的max属性全都设为255

滚动条实现label1控件背景色改变的代码如下：

Private Sub hsbB_Change()
Label1.BackColor = RGB(hsbR.Value, hsbG.Value, hsbB.Value)
End Sub

Private Sub hsbG_Change()
Label1.BackColor = RGB(hsbR.Value, hsbG.Value, hsbB.Value)
End Sub

Private Sub hsbR_Change()
Label1.BackColor = RGB(hsbR.Value, hsbG.Value, hsbB.Value)
End Sub