UC知道关于颜色对话框的问题，请高人指点下
来源：百度知道 编辑：UC知道 时间：2024/06/30 16:21:37
该程序是将颜色对话框返回的颜色转换为RGB。但是我对RGB算法不理解。
Private Sub Command1_Click()
Dim a As Long
commondialong1.showcolor
a = commondialong1.Color
R = a \ (256& * 256) ’为什么这么算，原理是什么？谢谢
G = a \ 256 - R * 256‘这个也是
B = a Mod 256 ’这个也是
Print R, G, B
End Sub
Private Sub Command1_Click()
Dim a As Long
commondialong1.showcolor
a = commondialong1.Color
R = a \ (256& * 256) ’为什么这么算，原理是什么？谢谢
G = a \ 256 - R * 256‘这个也是
B = a Mod 256 ’这个也是
Print R, G, B
End Sub
RGB的原理就是利用红绿蓝三种基色按不同的比例混和而成的新颜色，其中的比例是用数值表示。如RGB（234，100,0），数值的范围就是从0到255。
R G B 红 绿 蓝 三元色
其取值范围0-255 组成一个颜色就是这三元色相乘所得出的值~
Dim a As Long
CommonDialog1.showcolor
a = CommonDialog1.Color
R = a Mod 256
G = (a \ 256) Mod 256
b = a \ 65536
Print R, G, b
这样才是正确的~你的算法不对~