要实现菜单图菜功能,下面有什么不对.

Question

Dim mHandle As Long, lret As Long, sHandle As Long, shandle2 As Long
    
    mHandle = GetMenu(hwnd)
    sHandle = GetSubMenu(mHandle, 0)
    
 
    iret = SetMenuItemBitmaps(sHandle, 0, MF_BYPOSITION, ImageList1.ListImages(4).Picture, ImageList1.ListImages(4).Picture)
    iret = SetMenuItemBitmaps(sHandle, 1, MF_BYPOSITION, ImageList1.ListImages(4).Picture, ImageList1.ListImages(4).Picture)
我想按照http://www.chinabyte.net/20011026/202284_3.shtml的方式做个图形菜单,可是图形就是不显示出来.是什么原因.

Answer 1

建议不要用这些api来实现图标菜单,建议使用activebar控件来实现.效果超级棒

Answer 2

程序是没问题的
看看你的 MF_BYPOSITION的值写了么？Private Const MF_BYPOSITION = &H400&

Answer 3

位图的大小必须与菜单复选符号的正确大小相符，这个正确大小可以由GetMenuCheckMarkDimensions函数获得

Answer 4

我的位图大小是在imagelist中是16*16的。
下面的值也没错。
Private Const MF_BYPOSITION = &H400&各位大侠。估计可能是什么问题。

Answer 5

GetMenuCheckMarkDimensions如何使用.
怎么取得高字与低字.
位图如何根据它来设置大小呀.急,