???????如何把系统的颜色转换成为RGB颜色?

Question

比如有个picbox，把其背景颜色分离成红，绿，篮：
Red = picbox.BackColor Mod 256
Green = ((picbox.BackColor And &HFF00FF00) / 256&)
Blue = (picbox.BackColor And &HFF0000) / (256& * 256&)
这样就好了，呵呵！

Answer 1

Public Declare Function OleTranslateColor Lib "oleaut32.dll" (ByVal lOleColor As Long, ByVal lHPalette As Long, lColorRef As Long) As LongPublic Function VBColor2RGB(ByVal VBColor As Long, Optional ByVal hPal As Long = 0) As Long
    If OleTranslateColor(VBColor, hPal, VBColor2RGB) Then VBColor2RGB = VBColor
End Function