longcolorvaluetorgb.txt

来自「一部分关于VB编程的小技巧」· 文本 代码 · 共 14 行

private type tRGB
   R as byte
   B as byte
   G as byte
end type

Private Function GetRGB(ByVal pCol As Long) As tRGB
    On Error Resume Next
   GetRGB.R = pCol Mod 256
   pCol = pCol \ 256
   GetRGB.G = pCol Mod 256
   pCol = pCol \ 256
   GetRGB.B = pCol Mod 256
End Function