如何修改VB里的菜单的背景颜色阿++++++++++++

Question

如标题，怎么样修改vb菜单编辑器色生成的菜单背景色。

Answer 1

不能，只有用户自画的MENU才可以，很麻烦。

Answer 2

[名称]           修改菜单颜色[语言种类]       Visual Basic[类别一]         VBAPI[类别二]         界面[类别三]         各种技巧[数据来源]       dapha.net[来源时间]2002-10-24
[保存时间]       2002-10-24[关键字一]       菜单[关键字二]       颜色[关键字三]       修改[文件列表]       空[内容简介]       空[心得体会]       空[源代码内容]看惯的常用的菜单颜色，是不是想换换口味呢？请看如下代码
Private Enum MENUINFO_STYLES
    MNS_NOCHECK = &H80000000
    MNS_MODELESS = &H40000000
    MNS_DRAGDROP = &H20000000
    MNS_AUTODISMISS = &H10000000
    MNS_NOTIFYBYPOS = &H8000000
    MNS_CHECKORBMP = &H4000000
End EnumPrivate Enum MENUINFO_MASKS
    MIM_MAXHEIGHT = &H1
    MIM_BACKGROUND = &H2
    MIM_HELPID = &H4
    MIM_MENUDATA = &H8
    MIM_STYLE = &H10
    MIM_APPLYTOSUBMENUS = &H80000000
End EnumPrivate Type MENUINFO
    cbSize As Long
    fMask As MENUINFO_MASKS
    dwStyle As MENUINFO_STYLES
    cyMax As Long
    hbrBack As Long
    dwContextHelpID As Long
    dwMenuData As Long
End TypePrivate 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 LongPrivate 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
     以上代码保存于： SourceCode Explorer(源代码数据库)
           复制时间： 2005-09-07 14:02:11
           软件版本： 1.0.880
           软件作者： Shawls
             E-Mail： [email protected]
                 QQ： 9181729

Answer 3

[名称]           修改菜单颜色[语言种类]       Visual Basic[类别一]         VBAPI[类别二]         界面[类别三]         各种技巧[数据来源]       dapha.net[来源时间]       2002-10-24
[保存时间]       2002-10-24[关键字一]       菜单[关键字二]       颜色[关键字三]       修改[文件列表]       空[内容简介]       空[心得体会]       空[源代码内容]看惯的常用的菜单颜色，是不是想换换口味呢？请看如下代码
Private Enum MENUINFO_STYLES
    MNS_NOCHECK = &H80000000
    MNS_MODELESS = &H40000000
    MNS_DRAGDROP = &H20000000
    MNS_AUTODISMISS = &H10000000
    MNS_NOTIFYBYPOS = &H8000000
    MNS_CHECKORBMP = &H4000000
End EnumPrivate Enum MENUINFO_MASKS
    MIM_MAXHEIGHT = &H1
    MIM_BACKGROUND = &H2
    MIM_HELPID = &H4
    MIM_MENUDATA = &H8
    MIM_STYLE = &H10
    MIM_APPLYTOSUBMENUS = &H80000000
End EnumPrivate Type MENUINFO
    cbSize As Long
    fMask As MENUINFO_MASKS
    dwStyle As MENUINFO_STYLES
    cyMax As Long
    hbrBack As Long
    dwContextHelpID As Long
    dwMenuData As Long
End TypePrivate 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 LongPrivate 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
     以上代码保存于： SourceCode Explorer(源代码数据库)
           复制时间： 2005-09-07 14:03:56
           软件版本： 1.0.880
           软件作者： Shawls
             E-Mail： [email protected]
                 QQ： 9181729

Answer 4

[名称]           修改菜单颜色[语言种类]       Visual Basic[类别一]         VBAPI[类别二]         界面[类别三]         各种技巧[数据来源]       dapha.net[来源时间]       2002-10-24[保存时间]       2002-10-24[关键字一]       菜单[关键字二]       颜色[关键字三]       修改[文件列表]       空[内容简介]       空[心得体会]       空[源代码内容]看惯的常用的菜单颜色，是不是想换换口味呢？请看如下代码
Private Enum MENUINFO_STYLES
    MNS_NOCHECK = &H80000000
    MNS_MODELESS = &H40000000
    MNS_DRAGDROP = &H20000000
    MNS_AUTODISMISS = &H10000000
    MNS_NOTIFYBYPOS = &H8000000
    MNS_CHECKORBMP = &H4000000
End EnumPrivate Enum MENUINFO_MASKS
    MIM_MAXHEIGHT = &H1
    MIM_BACKGROUND = &H2
    MIM_HELPID = &H4
    MIM_MENUDATA = &H8
    MIM_STYLE = &H10
    MIM_APPLYTOSUBMENUS = &H80000000
End EnumPrivate Type MENUINFO
    cbSize As Long
    fMask As MENUINFO_MASKS
    dwStyle As MENUINFO_STYLES
    cyMax As Long
    hbrBack As Long
    dwContextHelpID As Long
    dwMenuData As Long
End TypePrivate 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 LongPrivate 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
     以上代码保存于： SourceCode Explorer(源代码数据库)
           复制时间： 2005-09-07 14:06:03
           软件版本： 1.0.880
           软件作者： Shawls
             E-Mail： [email protected]
                 QQ： 9181729