VB调色板,HScroll1,RGB的应用实例,利用三个滑块(拖动条)来分别调整RGB三基色,本源码可学习一下滑块的使用、颜色的渲染等。当用户改变拖动条的时候,会改变对应事件处理程序,每一个事件程序分别代表了对RGB分量的调节,如下:
Private Sub HScroll1_Change()
Label2.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
Label7.Caption = HScroll1.Value
End Sub
Private Sub HScroll2_Change()
Label2.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
Label8.Caption = HScroll1.Value
End Sub
Private Sub HScroll3_Change()
Label2.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
Label8.Caption = HScroll1.Value
End Sub
请下载本源码查看更多代码。
1