一个vb编的程序！通过滚动条控制文本框颜色的改变

Posted 2023-03-21

设计一个程序：文本框中的背景色采用RGB配色方案中的颜色，由三个滚动条上的Value值决定，前景色与背景色反相，分别通过255减滚动条的Value值得到。可以使用Change和Scroll事件联合实现变色效果。每个滚动条对应的事件过程中，所作的操作相同，因此可以通过滚动条控件数组方式，使程序更加简单。注意滚动条的Max和Min属性分别赋初值255和0。

参考技术A Private Sub HsbBlue_Change()
Text3.BackColor = RGB(HsbRed.Value, HsbGreen.Value, HsbBlue.Value)
End Sub

Private Sub HsbGreen_Change()
Text2.BackColor = RGB(HsbRed.Value, HsbGreen.Value, HsbBlue.Value)
End Sub

Private Sub HsbRed_Scroll()
Text1.BackColor = RGB(HsbRed.Value, HsbGreen.Value, HsbBlue.Value)
End Sub 参考技术B 自己写吧, 网上有参考程序.

不会就多看点书