Public Function GETRGB(lngColor As Long) As String
Dim strR As String
Dim strG As String
Dim strB As String
strR = CStr(lngColor Mod 256)
strG = CStr(lngColor / 256 Mod 256)
strB = CStr(lngColor / 256 / 256)
GETRGB = "" & strR & "," & strG & "," & strB & ""
Dim strR As String
Dim strG As String
Dim strB As String
strR = CStr(lngColor Mod 256)
strG = CStr(lngColor / 256 Mod 256)
strB = CStr(lngColor / 256 / 256)
GETRGB = "" & strR & "," & strG & "," & strB & ""
End Function
然后调用GETRGB就可以了
扫一扫
1万+
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
