如何用滚动条改变字体颜色的VB程序代码？

2025-04-27 11:01:30

推荐回答（2个）

回答1：

http://www0.ccidnet.com/school/software//2003/05/12/134_8726.html
LZ看这里绝对够详细的，

回答2：

放上一个Label1控件和一个VScroll1控件组(3个控件)，再拷贝下列代码到代码窗口。

Private Sub Form_Load()
VScroll1(0).Min = 0
VScroll1(0).Max = 255
VScroll1(1).Min = 0
VScroll1(1).Max = 255
VScroll1(2).Min = 0
VScroll1(2).Max = 255
End Sub

Private Sub VScroll1_Change(Index As Integer)
Label1.ForeColor = RGB(VScroll1(0).Value, VScroll1(1).Value, VScroll1(2).Value)
End Sub