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

basey 2001-11-26 11:24:30
关于菜单中显示图形的问题, 我发了Email给你,很奇怪!

还有其他高手能给答复吗, 请给Email地址.
...全文
73 5 打赏 收藏 举报
写回复
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
basey 2001-11-26
  • 打赏
  • 举报
回复
好像是耶, 意思是32*32的也可以了? 那就没问题了??
fishzone 2001-11-26
  • 打赏
  • 举报
回复
图片一定要bmp格式的。你看你第二个是bmp,显示出来了,第一个是ico,所以不能显示。
basey 2001-11-26
  • 打赏
  • 举报
回复
很简单的例子,阿愚说很小的位图(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
uguess 2001-11-26
  • 打赏
  • 举报
回复

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

basey 2001-11-26
  • 打赏
  • 举报
回复
我给分你了,谢谢你,我改用SetMenuItemBitmaps,不用SetMenuItemInfo了.
相关推荐
发帖
VB基础类

7681

社区成员

VB 基础类
社区管理员
  • VB基础类社区
加入社区
帖子事件
创建了帖子
2001-11-26 11:24
社区公告
暂无公告