天啊，谁能帮帮我啊。我想用VB实现24位真彩色转换为256。老板交的任务。急啊！！

来源：百度知道 编辑：UC知道 时间：2024/06/10 08:45:57
我已经实现了24位真彩色转换为256灰度色了。但转换为256色好像是需要设置调色版吧。高手们帮帮我啊。谢谢了！必重分感谢！

...1楼纯属瞎掰，但是具体怎么做，我也不知道

HScroll1.Min = 0
HScroll1.Max = 255
HScroll1.LargeChange = 20
HScroll1.SmallChange = 1 '滚动条1

HScroll2.Min = 0
HScroll2.Max = 255
HScroll2.LargeChange = 20
HScroll2.SmallChange = 1 '滚动条2

HScroll3.Min = 0
HScroll3.Max = 255
HScroll3.LargeChange = 20
HScroll3.SmallChange = 1 '滚动条3
End Sub

Private Sub HScroll1_Change()
Label1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value) '显示调色板标签的颜色
Label2.Caption = HScroll1.Value '显示第一个滚动条的颜色
End Sub

Private Sub HScroll2_Change()
Label1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value) '显示调色板标签的颜色
Label3.Caption = HScroll2.Value '显示第二个滚动条的颜色
End Sub

Private Sub HScroll3_Change()
Label1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value) '显示调色板标签的颜色
Label4.Caption = HScroll3.Value '显示第三