Loop to demonstrate all System BackColors?

Slightly unusual request. (It's an experiment to help me solve another thread)

I want a loop which will go through all the possible System colors that can be set as a .BackColor.

For each System Color, add a control to Form1 (any control - command button would probably be the best display-wise)

also- if possible - name the control caption to display the name of the system color (and/or hex value)


I'd write this myself but IDK if it is possible to loop through colors available on Form controls. Is it?

Well, if you consider that each of the 3 RGB components can range from 1 to 255, that would give you 16,581,375 possible colors. Care to proceed

Originally Posted by natefarm

Well, if you consider that each of the 3 RGB components can range from 1 to 255, that would give you 16,581,375 possible colors. Care to proceed

Nope. I'm only after the System colors - there only appears to be about 30 or so in the list... (Create a new form, add a Command Button, properties, .backcolor, choose System, scroll list)

I see what you're after, but couldn't find anything on the internet indicating that VBA has named constants for those colors. It looks like there are only 8-10 different colors, and the rest are redundant or so close that I can't tell the difference. Sorry, but I'm not seeing an automatic way to get what you want.

Originally Posted by natefarm

I see what you're after, but couldn't find anything on the internet indicating that VBA has named constants for those colors

Well it's all new to me but I've found that VBA does have named constants for these colours, I've worked out a few of their names e.g. vbScrollBars = the Scroll Bars color. That one was easy. But some of the other system colors reject this logic.

If I had list of all these named constants then I could place their name strings in an array for looping.

MS had the details http://msdn.microsoft.com/en-us/libr...(v=vs.60).aspx

Then all I had to do was write the code to add the buttons with the backcolors.