如何在菜单中加入小图标

Question

Dim hMenu As Long, hSubMenu As Long
    hMenu = GetMenu(Me.hWnd)
    hSubMenu = GetSubMenu(hMenu, 0)
    SetMenuItemBitmaps hSubMenu, 0, MF_BYPOSITION, MenuBmpList.ListImages(1).Picture, MenuBmpList.ListImages(1).Picture
    SetMenuItemBitmaps hSubMenu, 2, MF_BYPOSITION, MenuBmpList.ListImages(2).Picture, MenuBmpList.ListImages(2).Picture
    SetMenuItemBitmaps hSubMenu, 8, MF_BYPOSITION, MenuBmpList.ListImages

Answer 1

直接用ACTIVEBAR来设计就可以了！

Answer 2

还是用activebar吧，现成的控件干吗不用呢？