RGB颜色的转换 .

andysky

MsgBox RGB(20, 50, 20) '等于1323540
如果反过来，颜色值为1323540,如何分别计算其R G B的值？

alzeng

Blue  =int(1323540/65536)
Green  =int(mod(1323540,65536)/256)
Red  =mod(1323540,256)

热浪2006

Private Sub CommandButton1_Click()
   Dim R, G, B, C
   R = 20
   G = 50
   B = 20
   C = RGB(R, G, B)
   MsgBox C
   B = C \ 65536
   G = (C - B * 65536) \ 256
   R = C - B * 65536 - G * 256
   MsgBox R & "," & G & "," & B
End Sub

[ 本帖最后由 热浪2006 于 2009-3-16 10:14 编辑 ]

alzeng

百度一下：

stanleypan

Public Function ColortoRGB(color As Long)

Dim R, G, B As Byte
R = color And 255
G = (color \ 256) And 255
B = (color \ 65536) And 255
ColortoRGB = R & "," & G & "," & B
End Function

Zamyi

RGB(R,G,B)=R+256*G+256*256*B)

ldy

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
Sub test()
    Dim b(2) As Byte
    c = RGB(45, 65, 253)
    CopyMemory b(0), CLng(c), 8
    MsgBox b(0) & "," & b(1) & "," & b(2)
End Sub

andysky

原帖由 Zamyi 于 2009-3-16 11:15 发表
RGB(R,G,B)=R+256*G+256*256*B)

谢谢 原是是这样计算的