50分的简单问题：如何在菜单项前添加图标？

Question

首先建立一个窗体[例：Form28]
用ImageList1加入适当大小的图片再建立一个模块
在声明区声明以下内容
Option Explicit
Public Declare Function GetMenu Lib "user32" (ByVal hWnd As Long) As Long
Public Declare Function GetSubMenu Lib "user32" (ByVal hMenu As Long, ByVal nPos As Long) As Long
Public Declare Function SetMenuItemBitmaps Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long, _
    ByVal hBitmapUnchecked As Long, ByVal hBitmapChecked As Long) As LongPublic Const MF_BYPOSITION = &H400&写一个过程：
Public Function BitmapInMenu(frm As Form)
Dim mHandle As Long, lRet As Long, sHandle As Long, sHandle2 As LongmHandle = GetMenu(frm.hWnd)
sHandle = GetSubMenu(mHandle, 0)'0是主菜单的索引[就是主项]lRet = SetMenuItemBitmaps(sHandle, 0, MF_BYPOSITION, Form28.ImageList1.ListImages(1).Picture, Form28.ImageList1.ListImages(1).Picture)
'其中ListImages(1)中的1表示图片的索引
End Function最后在启动窗体中写下以下的语句即可完成
Private Sub MDIForm_Activate()
s = BitmapInMenu(Form1)
End Sub

Answer 1

到21code.com去看看，下在一个源码就行啦

Answer 2

自绘菜单！
我编的自绘菜单：http://zyl910vb.51.net/vb/gui/DrawMenu-S.htm（有注释！特地为想学自绘菜单的人写的）
http://zyl910vb.51.net/vb/gui/CoolGUI.htm（效果比较好，但没有注释）
http://zyl910vb.51.net/vb/gui/ZXPMenu.htm（XP风格的菜单）右击连接，目标另存为
注意把下载后的*.zip.jpg改名成*.zip

Answer 3

XP阴影菜单风格：
http://expert.csdn.net/Expert/topic/1307/1307525.xml?temp=.7256739

Answer 4

如果以上的地址不能下载
则：http://cocgame.myetang.com/zyl910/gui/drawmenu-s.zip

Answer 5

用SetMenuItemBitmaps加载的“图标”最好是 13*13单色BMP
因为Windows是采用And运算绘制的