Default button backcolour

[ae_jester]

Hi,

I have a control array of buttons which are have the default button colour as a backcolor.

When the user scrolls over the buttons I'm changing the backcolours to something else, and what to change it back to the default colour afterwards.

Is there a vb constant for the default button colour?

[crptcblade]

Private Declare Function GetSysColor Lib "user32" (ByVal nIndex As Long) As Long
 
Private Const COLOR_BTNFACE = 15
 
Private Sub Command1_Click()
    Command1.BackColor = GetSysColor(COLOR_BTNFACE)
End Sub

[ae_jester]

I just found this. Will it work the same or is it the wrong constant. It seems to work though.

cmdButton(Index).BackColor = vbButtonFace

[crptcblade]

Hmmm...never knew that. It should work just the same.

[MartinLiss]

Yes, it will work. I do things like that all the time. (There are built in values for all(?) the system and pallet colors like vbButtonFace, vbButtonShadow, vbInactiveCaptionText, etc.)