Question

在vb编程中，如何更改菜单栏及菜单的颜色？

Answer 1

Private Const MIM_BACKGROUND = &H2
Private Const MIM_APPLYTOSUBMENUS = &H80000000

Private Type MENUINFO
cbSize As Long
fMask As Long
dwStyle As Long
cyMax As Long
hbrBack As Long
dwContextHelpID As Long
dwMenuData As Long
End Type

Private Declare Function GetMenuInfo _
Lib "user32" (ByVal hMenu As Long, _
mi As MENUINFO) As Long
Private Declare Function SetMenuInfo _
Lib "user32" (ByVal hMenu As Long, _
mi As MENUINFO) As Long
Private Declare Function GetMenu Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function CreateSolidBrush Lib "gdi32" (ByVal crColor As Long) As Long

Private Sub Form_Load()
Dim MyMenu As MENUINFO
MyMenu.cbSize = Len(MyMenu)
MyMenu.fMask = MIM_BACKGROUND Or MIM_APPLYTOSUBMENUS
MyMenu.hbrBack = CreateSolidBrush(vbRed)
SetMenuInfo GetMenu(Me.hwnd), MyMenu
End Sub
补充：事先在你的窗体里要先添加一个菜单才行。这个代码是让菜单变成红色，你可以任意设定。