反回RGB数组的一个函数
Public
Function
ColorRGB(Color
As
Long)
As
Byte()
Const
ByN
As
Integer
=
256
Const
ByN2
As
Long
=
65536
Dim
A(2)
As
Byte
A(0)
=
(Color
Mod
ByN)
A(1)
=
((Color
Mod
ByN2)
\
ByN)
A(2)
=
(Color
\
ByN2)
ColorRGB
=
A
End
Function
例如:
Print
ColorRGB(&H1111FF)(0)
'红色RGB
Print
ColorRGB(&H11FF11)(1)
'绿色RGB
Print
ColorRGB(&HFF1111)(2)
'蓝色RGB
都等于255
变回十六进制更简单
HEX(RGB(1,1,1))
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024