怎样给VB菜单加背景？使做出的菜单不再是单调的灰色！哪位高手指点迷津？

Question

http://go6.163.com/910grtd/vb/wdzp/CoolGUI.htm

Answer 1

http://www.dapha.net/soure/form/XP%20(or%20.NET)%20menu%20with%20sh
XP下拉菜单(影子效果)

Answer 2

把我的那个程序Frm1的MeHook_MenuInitSet中的内容替换成这样看看
    Dim I As Long
    
    'Set MeHook.MeMBarStyle.BgMap = Pic1
    'Set MeHook.MeMBarStyle.SelBgMap = Pic2
    'Set MeHook.MeMPopStyle.TitleBgMap = Pic3
    'Set MeHook.MeMPopStyle.IcoRectBgMap = Pic4
    'Set MeHook.MeMPopStyle.TextBgMap = Pic5
    'Set MeHook.MeMPopStyle.TextSelBgMap = Pic6
    'MeHook.MeMBarStyle.BgSMode = False
    'MeHook.MeMBarStyle.SelBgSMode = False
    'MeHook.MeMPopStyle.TitleBgSMode = False
    'MeHook.MeMPopStyle.IcoRectBgSMode = False
    MeHook.MeMPopStyle.TextBgSMode = False
    'MeHook.MeMPopStyle.TextSelBgSMode = False
    'MeHook.MeMPopStyle.TextBgMapAlign = True
    
    'MeHook.MeMBarStyle.DrawLineB = False
    'MeHook.MeMBarStyle.IcoWidth = 16
    'MeHook.MeMBarStyle.TextSelC = &HCC00&
    
    'MeHook.MeMPopStyle.TitleWidth = -1
    'MeHook.MeMPopStyle.TitleFont.Italic = True
    'MeHook.MeMPopStyle.TitleFont.Height = 16
    'MeHook.MeMPopStyle.TitleWidth = 24
    'MeHook.MeMPopStyle.IcoWidth = 32
    'MeHook.MeMPopStyle.IcoHeight = 32
    'MeHook.MeMPopStyle.IcoRectSelect = 1
    'MeHook.MeMPopStyle.IcoRectUnSel3D = True
    'MeHook.MeMPopStyle.IcoRectIcoPop = True
    'MeHook.MeMPopStyle.TextSelectEn = True
    'MeHook.MeMPopStyle.TextSelect = False
    'MeHook.MeMPopStyle.TextLineBStyle = &H2FF9999
    
    'Debug.Print MeHook.MeZMS("ZM_Bar").Enabled
    
    MeHook.MeMPopStyle.IcoRectBgC = &HFFCCFF
    MeHook.MeMPopStyle.IcoRectSelect = 1
    MeHook.MeMPopStyle.TextSelBgC = &HFF6666
    MeHook.MeMPopStyle.TextLineBStyle = &H1CC0000
    
    Set MeHook.ImgListMenuIco = ImgListMenu
    MeHook.MeZMS("ZM_File\New").IcoIndex = 1
    MeHook.MeZMS("ZM_File\Open").IcoIndex = 2
    MeHook.MeZMS("ZM_File\Save").IcoIndex = 3
    MeHook.MeZMS("ZM_File\Quit").IcoIndex = 4
    MeHook.MeZMS("ZM_Edit\Undo").IcoIndex = 5
    MeHook.MeZMS("ZM_Edit\Cut").IcoIndex = 6
    MeHook.MeZMS("ZM_Edit\Copy").IcoIndex = 7
    MeHook.MeZMS("ZM_Edit\Paste").IcoIndex = 8
    MeHook.MeZMS("ZM_Edit\Del").IcoIndex = 9
    MeHook.MeZMS("ZM_Help\HelpFile").IcoIndex = 10
    MeHook.MeZMS("ZM_Help\About").IcoIndex = 11
    
    MeHook.MeZMS("ZM_File\New\Text").Radio = True
    MeHook.MeZMS("ZM_File\New\Bin").Radio = True
    
    MeHook.MeZMS("ZM_Set\PopInfo\SelIco\Alway").Radio = True
    MeHook.MeZMS("ZM_Set\PopInfo\SelIco\Auto").Radio = True
    MeHook.MeZMS("ZM_Set\PopInfo\SelIco\Never").Radio = True
    
    For I = 0 To 3
        MeHook.MeZMS("ZM_Set\PopInfo\DrawLineB\" & I).Radio = True
    Next I
    

Answer 3

可以看看 我那个程序里的ClsMBarStyle与ClsMPopStyle中的注释，有菜单的属性

Answer 4

贴出来算了！
ClsMBarStyle：'菜单栏属性
'HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH
Public LeftStep As Long        '未用
Private IcoHe As Long          '菜单栏高度
Private IcoWi As Long          '菜单栏图标宽度
Public DeactivateC As Long     '非活动文字颜色
Public Font As ClsFont         '文字字体
Public TextC As Long           '文字颜色
Public SelFont As ClsFont      '选择时文字字体
Public TextSelC As Long        '选择时文字颜色
Public BgC As Long             '菜单栏背景色
Public BgMap As PictureBox     '菜单栏背景图片
Public BgSMode As Boolean      '菜单栏背景图片是否伸缩
Public SelBgC As Long          '菜单栏选择时背景色
Public SelBgMap As PictureBox  '菜单栏选择时背景图片
Public SelBgSMode As Boolean   '菜单栏选择时背景图片是否伸缩
Public DrawLineB As Boolean    '是否画选择边框
Public DrawTextChar As Boolean '选中是画字符
Private TextMaxWi As Long      '文字区宽度ClsMPopStyle：'弹出菜单风格
'HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH
Private TitleWi As Long           '标题宽
Public TitleIcon As Long          '标题图标
Public TitleStr As String         '标题字符
Public TitleFont As ClsFont       '标题字体
Public TitleTextC As Long         '标题颜色
Public TitleBgC As Long           '标题栏背景色
Public TitleBgMap As PictureBox   '标题栏背景图片
Public TitleBgSMode As Boolean    '标题栏背景图片是否伸缩
'------------------------------------------------
Private IcoWi As Long             '图标宽
Private IcoHe As Long             '图标高
Public IcoRectSelect As Long      '是否选中图标区：>0.一定；=0.自动；<0.永不。
Public IcoRectUnSel3D As Boolean  '非选中时是否画3D边框
Public IcoRectCheckBg As Boolean  '是否画选中时的网格背景
Public IcoRectIcoPop As Boolean   '图标是否弹起
Public IcoRectBgC As Long         '图标区背景色
Public IcoRectBgMap As PictureBox '图标区背景图片
Public IcoRectBgSMode As Boolean  '图标区背景图片是否伸缩
'------------------------------------------------
Public TextSelect As Boolean      '是否画选中时的填充矩形
Public TextLineBStyle As Long     '选中时矩形框的样式，高8位为样式：
                                       '   0：不画
                                       '   1：平面线框，低24位为颜色
                                       '   2：凹线框
                                       '   3：凸线框
                                       '其它：不画
Public TextPop As Boolean         '是否文本弹起
Public TextFont As ClsFont        '文本字体
Public TextC As Long              '文本颜色
Public TextSelFont As ClsFont     '文本选中时的字体
Public TextSelC As Long           '文本选中时的颜色
Public TextBgC As Long            '文字区背景色
Public TextBgMap As PictureBox    '文字区背景图片
Public TextBgSMode As Boolean     '文字区背景图片是否伸缩
Public TextBgMapAlign As Boolean  '是否对齐(0,0)
Public TextSelBgC As Long         '文字区选择时背景色
Public TextSelBgMap As PictureBox '文字区选择时背景图片
Public TextSelBgSMode As Boolean  '文字区选择时背景图片是否伸缩
Public TextSelectEn As Boolean    '是否选中禁用项目
'------------------------------------------------
Public MenuLevel As Long          '菜单下级应用级别，<=0为下层所有
Public DrawTextChar As Boolean '选中是画字符
Private TextMaxWi As Long      '文字区宽度

Answer 5

zyl910(910：分儿，我来了！) 非常感谢，分数都送给你了！

Answer 6

这篇贴子还没有结账啊！给分方法：http://www.csdn.net/help/over.asp