To: fishzone(阿愚)及其他高手(uguess及Amoon等)

[basey]

关于菜单中显示图形的问题, 我发了Email给你,很奇怪!

还有其他高手能给答复吗, 请给Email地址.

[basey]

我给分你了,谢谢你,我改用SetMenuItemBitmaps,不用SetMenuItemInfo了.

[uguess]

有什么问题，就写在这吧，还可以“集思广益”么！

[basey]

很简单的例子,阿愚说很小的位图(13*15)才能用SetMenuItemBitmaps()来显示, 我把两个位图改成32*32的,开始不行,后来能显示一个, 各位试一试,或提供较好的其它办法.

'menu bitmap 给菜单加位图
Private 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 Long
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 Const MF_BYCOMMAND = &H0&
Private Const MF_BYPOSITION = &H400&

Private Sub Form_Load()

Dim lngMenuHwnd As Long
lngMenuHwnd = GetMenu(Me.hWnd)
Dim lngSubMenuHwnd As Long
lngSubMenuHwnd = GetSubMenu(lngMenuHwnd, 0)

SetMenuItemBitmaps lngSubMenuHwnd, 0, MF_BYPOSITION, ImageList1.ListImages(1).Picture.Handle, 0
SetMenuItemBitmaps lngSubMenuHwnd, 1, MF_BYPOSITION, ImageList1.ListImages(2).Picture.Handle, 0


End Sub

[fishzone]

图片一定要bmp格式的。你看你第二个是bmp,显示出来了,第一个是ico，所以不能显示。

[basey]

好像是耶, 意思是32*32的也可以了? 那就没问题了??