如何在菜单栏最左边加上一图标?(八百里加急文书)

Jackile 2003-09-27 02:14:29
说明见下面的链接:
http://expert.csdn.net/Expert/topic/2293/2293037.xml?temp=.1007807
...全文
37 18 打赏 收藏 转发到动态 举报
写回复
用AI写文章
18 条回复
切换为时间正序
请发表友善的回复…
发表回复
Jackile 2003-10-06
  • 打赏
  • 举报
回复
太不讲礼貌了,再这样,删掉回复!
wwle 2003-10-06
  • 打赏
  • 举报
回复
qu si ba !
hehe !
wo ye lai xue xue !
Jackile 2003-10-06
  • 打赏
  • 举报
回复
好像没有啊,给个链接好吗?
守城小轩 2003-10-06
  • 打赏
  • 举报
回复
用袁飞的.net控件就可以
Jackile 2003-10-06
  • 打赏
  • 举报
回复
大家帮忙啊!
Jackile 2003-09-28
  • 打赏
  • 举报
回复
我的邮箱是sjb_113@sina.com,我怎么没有收到啊?
lndlwwh830 2003-09-28
  • 打赏
  • 举报
回复
我已经收到,我已经发给你了
Jackile 2003-09-27
  • 打赏
  • 举报
回复
已经给你发了信了,给我看看,拜托了!
lndlwwh830 2003-09-27
  • 打赏
  • 举报
回复
需要api ,不过我有一个控件是已经做好的 菜单,他是下实现了 xp 的截面,
你要的话发eml:lndlwwh830@163.com
Jackile 2003-09-27
  • 打赏
  • 举报
回复
再次感谢cuizm(射天狼) :
不过问题还没结束,有个疑问:
wFlags Long,常数MF_BYCOMMAND或MF_BYPOSITION,取决于nPosition参数
你两者都没选,而是MF_Bitmap,居然也能实现???为什么呢????
射天狼 2003-09-27
  • 打赏
  • 举报
回复
那就在顶级菜单上加图标了`~~
T2 2003-09-27
  • 打赏
  • 举报
回复
还有一个问题就是如何定义那个图标右键下拉菜单项
T2 2003-09-27
  • 打赏
  • 举报
回复
楼上说的对是子菜单图表但是如果不是MDI窗体的话该如何做?这个我很想知道
射天狼 2003-09-27
  • 打赏
  • 举报
回复
那不是菜单的图标,是多文档主窗口里面子窗口的图标~~
你右以定义一个MDI窗口,再加一个子窗口和菜单试一下!!
射天狼 2003-09-27
  • 打赏
  • 举报
回复
&HFF&是WINDOWS的常量,本来就有~~
Jackile 2003-09-27
  • 打赏
  • 举报
回复
cuizm(射天狼) ,首先非常感谢你的回答,不过我希望你再看一下我提供的链接谢谢!虽然你的回答不是我要的,但我还是看了,有个疑问:
wFlags Long,常数MF_BYCOMMAND或MF_BYPOSITION,取决于nPosition参数
你两者都没选,而是MF_Bitmap,居然也能实现,Const MF_Bitmap = &HFF&句中,我就更不晓得了,&HFF&是什么意思啊,是你定义的呢,还是本来就有这个常量值呢?
希望这位大哥能耐心地告诉我,我将不甚感激!!!
wingchi 2003-09-27
  • 打赏
  • 举报
回复
建议使用yfdotnetmenu控件 一行代码都不用写
给我信箱 我给你发一个
射天狼 2003-09-27
  • 打赏
  • 举报
回复
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_Bitmap = &HFF&


Private Sub Form_Load()
mHandle = GetMenu(hwnd)
sHandle = GetSubMenu(mHandle, 0)

lRet = SetMenuItemBitmaps(sHandle, 2, MF_Bitmap, imgopen.Picture, imgopen.Picture)
lRet = SetMenuItemBitmaps(sHandle, 3, MF_Bitmap, imgsave.Picture, imgsave.Picture)
lRet = SetMenuItemBitmaps(sHandle, 4, MF_Bitmap, imgprint.Picture, imgprint.Picture)
lRet = SetMenuItemBitmaps(sHandle, 5, MF_Bitmap, imgprintsetup.Picture, imgprintsetup.Picture)
End Sub

7,789

社区成员

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

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