vb怎么用滚动条改变字体颜色

就三个滚动条，来改变字体的颜色。这怎么弄啊？请教高手

2025-02-28 15:41:29

推荐回答（3个）

回答1：

放上一个Label1控件和一个HScroll1控件组(3个控件)，再拷贝下列代码到代码窗口。
Private Sub Form_Load()
Dim i%
For i = 0 To 2
HScroll1(i).Min = 0
HScroll1(i).Max = 255
HScroll1(i).Value = 0
Next
End Sub

Private Sub HScroll1_Change(Index As Integer)
Label1.BackColor = RGB(HScroll1(0).Value, HScroll1(1).Value, HScroll1(2).Value)
End Sub

回答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 = 255End SubPrivate Sub VScroll1_Change(Index As Integer)
Label1.ForeColor = RGB(VScroll1(0).Value, VScroll1(1).Value, VScroll1(2).
Value)End Sub.

回答3：

创建3个滚动条数组HScroll1(0),HScroll1(1),HScroll1(2)
Private Sub Form_Load()
HScroll1(0).Max = 255
HScroll1(1).Max = 255
HScroll1(2).Max = 255
HScroll1(0).Min = 0
HScroll1(1).Min = 0
HScroll1(2).Min = 0
End Sub

Private Sub HScroll1_Change(Index As Integer)
Form1.BackColor = RGB(HScroll1(0).Value, HScroll1(1).Value, HScroll1(2).Value)
End Sub