没有高手教我怎么在菜单栏上面加图标吗?

来源：百度知道 编辑：UC知道 时间：2024/06/06 20:50:00
无论是菜单栏还是右键菜单(当然也是一样的),我想加入一点图片进去,放在标题的左边,像别的软件一样,怎么弄的,请详细一点,最好在自己的电脑上面试验一下!
sdsxingyun@yahoo.com.cn请发程序代码至这个邮箱,发完了请声明一下,谢谢!

Private Declare Function GetMenu Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function GetSubMenu Lib "user32" (ByVal hMenu As Long, ByVal nPos As Long) As Long
Private Declare Function SetMenuItemBitmaps Lib "user32" (ByVal hMenu As Long, ByVal nPos As Long, ByVal wFlags As Long, ByVal hBitUnchecked As Long, ByVal hBitChecked As Long) As Long
Const MF_BITMAP = &H400&

Private Sub Form_Load()
Dim hMenu&, hSubMenu&
hMenu = GetMenu(hwnd)
hSubMenu = GetSubMenu(hMenu, 0)
'参数0是指第一个菜单，第二个菜单就写1，依次类推
SetMenuItemBitmaps hSubMenu, 0, MF_BITMAP, Image1.Picture, 0&
'第二个参数指定给谁加图标，0是指菜单中的第一条，第二条就是1
'用一个Image控件加载一个13*13的位图，按F5运行试试吧
End Sub

你的邮箱？发一个简单的程序，你可以参考，在这里说不清楚。

标题栏的每个Item的属性中应该 有设置图片的吧！