longcolorvaluetorgb.txt

一部分关于VB编程的小技巧

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