
Coversion of System Colors to true colors
I haven't tried this, but a routine like this using the API call to GetSysColor should work.
Sub SysColorToRGB(ByVal SysColor as OLE_COLOR, R as Long, G as Long, B as Long)
Dim RGBColor as OLE_COLOR
RGBColor = GetSysColor(SysColor And &HFF)
R = RGBColor And 255
G = (RGBColor And 65280) / 256
B = (RGBColor And 16711680) / 65536
End Sub
:Here's a simple one:
:
:How do I convert VB's System Colors (vbWindowBackground, vbButtonFace) to
:their RGB values? I know I read the solution somewhere, but I forgot.
:
:Thanks in advanced,
:
:Eric J. Bryant
:Software Developer
:I/B/E/S
:
: