如何添加图标到MDI窗体的菜单,是否可以?

siyunying 2002-09-27 08:50:05
给普通窗体我已会。但MDI不成功。

一个例子如下
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 nPosition As Long, ByVal wFlags As Long, _
ByVal hBitmapUnchecked As Long, ByVal hBitmapChecked As Long) As Long

Const MF_BYPOSITION = &H400&

Private Sub Form_Load()
Dim mHandle As Long, lRet As Long, sHandle As Long, sHandle2 As Long
mHandle = GetMenu(hwnd)
sHandle = GetSubMenu(mHandle, 0)
lRet = SetMenuItemBitmaps(sHandle, 0, MF_BYPOSITION, imOpen.Picture, imOpen.Picture)
lRet = SetMenuItemBitmaps(sHandle, 1, MF_BYPOSITION, imSave.Picture, imSave.Picture)
lRet = SetMenuItemBitmaps(sHandle, 3, MF_BYPOSITION, imPrint.Picture, imPrint.Picture)
lRet = SetMenuItemBitmaps(sHandle, 4, MF_BYPOSITION, imPrintSetup.Picture, imPrintSetup.Picture)
sHandle = GetSubMenu(mHandle, 1)
sHandle2 = GetSubMenu(sHandle, 0)
lRet = SetMenuItemBitmaps(sHandle2, 0, MF_BYPOSITION, imCopy.Picture, imCopy.Picture)
End Sub
...全文
93 4 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
ZouMorn 2002-09-27
  • 打赏
  • 举报
回复
of cause you can.
By Morn
superzwb 2002-09-27
  • 打赏
  • 举报
回复
建议用activebar的控件
czj2000 2002-09-27
  • 打赏
  • 举报
回复
你到其他一些下载vb的网站去找一下,这方面的程序还是比较多的,我也下载过一个,不过让我给丢了,搜索一下很多的
zyl910 2002-09-27
  • 打赏
  • 举报
回复
http://www.21code.com/codebase/?pos=down&id=1370

源码类型: 菜单处理
上传时间: 2001-03-15
下载次数: 75
源码大小: 29 KB

源码简介:
又一个COOLMENU,这个实例的特色是可以将checkbox、optionbox般到菜单里来


--------------------------------------------------------------------
把它的启动窗体设为那个MDI窗体就可以看见效果了

7,785

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧