Question

vb中怎么让控制条控制一个text的背景颜色

Answer 1

Private Sub Form_Load()
HScroll1.Max = 32700
HScroll1.Min = 0
HScroll1.LargeChange = 100
HScroll1.SmallChange = 10

End Sub

Private Sub HScroll1_Change()
Text1.BackColor = "&H" & Hex(HScroll1.Value)
End Sub

大体如此，细节自己去玩吧。

追问

那再问一下 让三个控制条分别控制text的背景是红蓝绿呢？ 谢谢了

追答

Private Sub Form_Load()
HScroll1.Max = 255
HScroll1.Min = 0
HScroll1.LargeChange = 10
HScroll1.SmallChange = 1
HScroll2.Max = 255
HScroll2.Min = 0
HScroll2.LargeChange = 10
HScroll2.SmallChange = 1
HScroll3.Max = 255
HScroll3.Min = 0
HScroll3.LargeChange = 10
HScroll3.SmallChange = 1

End Sub

Private Sub HScroll1_Change()
Text1.BackColor = RGB(HScroll1, HScroll2, HScroll3)
End Sub

Private Sub HScroll2_Change()
Text1.BackColor = RGB(HScroll1, HScroll2, HScroll3)

End Sub

Private Sub HScroll3_Change()
Text1.BackColor = RGB(HScroll1, HScroll2, HScroll3)

End Sub