VB 颜色值十六进制与RGB之间怎样转换?

发布网友发布时间：2022-05-02 00:23

共1个回答

热心网友时间：2022-04-19 00:12

反回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))

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com