-
Hi there !
I have a little problem with menus, Popupmenus...I don't like the colors of it, so I changed all the colors, except I can't change the colors of the border, I REALLY REALLY want to change the menu borders colors...if you know just the smalest thing about doing this, please help me. !!
-
I think the menu border color is the same as for all 3D objects. Change the dark and light shadows of command buttons.
-
No no !
I don't want to change the color of every menu in the system, just this one menu, my own dynamic menu !
-
Zleepy, how about changing the menu color when your form is loaded and than changing it back after you unload your form?
Code:
'Code from Megatron
Private Declare Function SetSysColors Lib "user32" _
(ByVal nChanges As Long, lpSysColor As Long, lpColorValues _
As Long) As Long
Private Declare Function GetSysColor Lib "user32" (ByVal _
nIndex As Long) As Long
Const COLOR_MENU = 4
Const COLOR_MENUTEXT = 7
Dim prevBackColor
Dim prevForeColor
Private Sub Private Sub Form_Load()
prevBackColor = GetSysColor(COLOR_MENU)
prevForeColor = GetSysColor(COLOR_MENUTEXT)
'Changes the background colour to Blue
SetSysColors 1, COLOR_MENU, RGB(0, 0, 255)
'Changes the Menu-Text colour to Green
SetSysColors 1, COLOR_MENUTEXT, RGB(0, 255, 0)
End Sub
Private Sub Form_Unload(Cancel As Integer)
'Set the colours back to normal
SetSysColors 1, COLOR_MENU, prevBackColor
SetSysColors 1, COLOR_MENUTEXT, prevForeColor
End Sub