UC知道VB 调色板
来源：百度知道 编辑：UC知道 时间：2024/05/16 14:00:20
Private Sub HScroll_Change(Index As Integer)
Label(Index).Caption = HScroll(Index).Value
Picture1.BackColor = RGB(HScroll(0).Value, HScroll(1).Value, HScroll(2).Value)
End Sub
怎么刚才我编了这个调色板的代码,没办法看到红色,绿色,蓝色的呢??
还有不能看到变化从现在起0~~255????
Label(Index).Caption = HScroll(Index).Value
Picture1.BackColor = RGB(HScroll(0).Value, HScroll(1).Value, HScroll(2).Value)
End Sub
怎么刚才我编了这个调色板的代码,没办法看到红色,绿色,蓝色的呢??
还有不能看到变化从现在起0~~255????
估计是由于你没有设hscroll控件数组元素的max和min值，把它们三个的max都设成255 min设成0
红色就是
HScroll(0).Value,=255那两个是0
绿色就是
HScroll(1).Value＝255其它两个是0
蓝色是
HScroll(2).Value＝255其它两个是0
你试试
我试了下你的代码，很正常啊。
如果要从现在起，那么你的HScroll的值要预先设定好。