> 在系统菜单上添加自定义菜单项
在系统菜单上添加自定义菜单项
作者：马鞍山钢铁总公司职工大学 王加龙
---- 本文题目所说的系统菜单不是指应用程序系统的菜单，而是指当用户用鼠标左键单击应用程序窗体左上角的图标时弹出的菜单。同样，当用户用鼠标右键单击应用程序窗体的标题栏，或系统任务栏中的应用程序标题时，弹出的也是这个菜单。系统菜单与应用程序菜单不一样，系统菜单不受应用程序控制，它是由Windows系统直接控制的。因此，在系统菜单上添加自定义菜单项，就显得比较困难。以下便是本人利用VB实现在系统菜单上添加自定义菜单项的方法。
---- 首先需要知道一点是系统菜单的工作过程。当我们单击系统菜单中某一项时，应用程序窗口会收到一条WM_SYSCOMMAND消息，该消息包含了系统菜单中所单击那一项的标识符ID。此时，应用程序窗口的默认窗口函数会根据WM_SYSCOMMAND消息以及菜单标识符ID执行相应的操作，完成菜单命令。如果我们能拦截到达窗口的WM_SYSCOMMAND消息，并且识别出菜单的标识符ID，我们就能够在系统菜单上添加自己的菜单项，并且执行指定的动作。下面的例子就是在系统菜单上添加一条分隔符和&关于…&菜单项。
---- 启动Visual Basic，新建标准EXE工程，在工程中添加一标准模块，名称可以是默认的。在标准模块的声明部分加入下列代码：
'菜单API函数声明
Public Declare Function GetSystemMenu Lib &user32&
(ByVal hwnd As Long, ByVal bRevert As Long) As Long
Public Declare Function AppendMenu Lib &user32& Alias
&AppendMenuA& (ByVal hMenu As Long, ByVal wFlags As Long,
ByVal wIDNewItem As Long, ByVal lpNewItem As Any) As Long
'菜单API函数常数声明
Public Const MF_BYCOMMAND = &H0&
Public Const MF_SEPARATOR = &H800&
Public Const MF_STRING = &H0&
'有关窗口函数的API函数声明
Public Declare Function SetWindowLong Lib
&user32& Alias &SetWindowLongA& (ByVal hwnd
As Long, ByVal nIndex As Long, ByVal
dwNewLong As Long) As Long
Public Declare Function CallWindowProc Lib &user32&
Alias &CallWindowProcA& (ByVal lpPrevWndFunc
As Long, ByVal hwnd As Long, ByVal Msg As Long,
ByVal wParam As Long, ByVal lParam As Long) As Long
Public Declare Function DefWindowProc Lib
&user32& Alias &DefWindowProcA& (ByVal
hwnd As Long, ByVal wMsg As Long,
ByVal wParam As Long, ByVal lParam As Long) As Long
Public Const GWL_WNDPROC = (-4)
Public Const WM_NCLBUTTONDOWN = &HA1
Public Const WM_NCRBUTTONDOWN = &HA4
Public Const WM_USER = &H400
Public Const WM_SYSCOMMAND = &H112
Public Const HTSYSMENU = 3
Public Const HTCAPTION = 2
'自定义菜单项的标识号偏移量
Public Const IDM_SEPARATOR = 1
Public Const IDM_MYABOUT = 2
Dim sHwnd As Long
Dim OldProc As Long
接着可向标准模块添加下面两个过程：
Public Sub AddMenu(frm As Form)
'置换窗口函数过程
sHwnd = frm.hwnd
OldProc = SetWindowLong(frm.hwnd,
GWL_WNDPROC, AddressOf AddCallBack)
Public Sub Release()
'释放自定义窗口函数过程
SetWindowLong sHwnd, GWL_WNDPROC, OldProc
最后向标准模块中添加一自定义窗口函数过程：
Public Function AddCallBack(ByVal hwnd As Long,
ByVal wMsg As Long, ByVal wParam As Long,
ByVal lParam As Long) As Long
Select Case wMsg
Case WM_SYSCOMMAND '系统消息
Select Case wParam '测试
Case WM_USER + IDM_MYABOUT '
&关于...&菜单项
'此处可加入用户需要自己处理
&关于…&菜单项的代码
MsgBox &单击了添加的菜单条目&, vbOKOnly
Case Else '其它菜单项交换系统处理
AddCallBack = DefWindowProc(hwnd,
wMsg, wParam, lParam)
End Select
Exit Function
AddCallBack = CallWindowProc(OldProc,
hwnd, wMsg, wParam, lParam)
End Select
End Function
关闭标准模块的代码窗口，
打开窗体的代码窗口，
在Form_Load()过程中加入下列代码：
'加载自定义窗口过程
AddMenu Me
'获得系统菜单的句柄
Dim hMenu As Long
hMenu = GetSystemMenu(Me.hwnd, 0)
'在系统菜单中添加自定义2条菜单项
AppendMenu hMenu, MF_SEPARATOR
Or MF_BYCOMMAND,
IDM_SEPARATOR, vbNullString
AppendMenu hMenu, MF_BYCOMMAND
Or MF_STRING,
WM_USER + IDM_MYABOUT, &关于...&
&关于…&菜单项
在Form_Unload过程中加入下列代码：
Release '释放自定义窗口过程
---- 到此，代码的输入工作完成，接下来的是进行测试。单击启动按钮或按F5，启动工程，用鼠标单击窗体左上角的图标弹出系统菜单，看看是否如愿。千万要注意的一点是，在结束工程时，一定要用窗体右上角的关闭按钮或者系统菜单中的关闭菜单项，否则的话，会造成Visual Basic系统崩溃，出现非法操作的错误，所以在测试工程前，最好对工程进行保存。
---- 以上程序在Windows95，Visual Basic6.0环境下调试通过。&
本文地址 ：
------分隔线----------------------------503: Service Unavailable
503: Service Unavailable
访问太频繁了，服务器要炸。&#微信公众号操作指南#[操作篇]如何添加“自定义菜单”？&答：经销商朋友，当我们点开某些微信公众号的时候，常会发现底部有导航信息，这些导航经过自己设置后，可以添加图文、外链等信息，十分方便快捷。具体的设置方法如下：&&登录微信公众平台，点击[自定义菜单]按钮，在页面的右边可以看到预览区域和设置区域两部分，点击左边的预览区域，选中想要添加的菜单，然后在右方的设置区域进行设置，设置的内容可以是文字、图片、图文、语音、外链等，设置完成后保存即可（如下图）。&&&注：自定义菜单最多只能设置3个，每一个菜单最多设置5个子菜单。设置完成后，粉丝在第二天就可以看到菜单内容，如果经销商想立即通过手机查看设置内容，可以取消关注后，再重新关注就可以看了（如下图）。&&&&&&【昆百优购】微信公众平台，期待您的关注！您可以搜索我们的微信号添加我们或者直接扫描我们的二维码~&我们的微信号是&&&&&&& wkunbuy&我们的二维码在下面哦：-------------------------------------&昆百优购(gh_b)　
　文章为作者独立观点，不代表微头条立场
的最新文章
进入2016年以来，由于受经济下行影响，整个家电行业陷入了长期的缓慢增长期，虽然彩电、冰箱、洗衣机行业保持
LG宣布，在印度推出首款附带驱蚊功能的电视机，保证消费者不受蚊子叮咬的同时，也能免除蚊香的毒害。 据LG在最新公布的2015/16年度报告完整版中，创维数码公布一封《执行主席的信》，公司董事局执行主席林卫平女士在
全球彩电市场持续低迷、全球智能手机市场高速增长不再，显示制造厂商都将未来业务的新增长目光投向汽车、医疗、受国内宏观经济新常态的影响，冰箱市场进入了缓慢增长的横盘调整期，在去年经历了一场寒冬之后，2016年的冰 #微信公众号操作指南#[运营篇]我们为什么要选择微信公众平台？ 答：微信的广告语：“再小的个体也有品牌”！ #微信公众号操作指南#[运营篇]我们为什么要选择微信公众平台？ 答：微信的广告语：“再小的个体也有品牌”！ #微信公众号操作指南#[运营篇]我们为什么要选择微信公众平台？ 答：微信的广告语：“再小的个体也有品牌”！在中医看来，湿气似乎称得上是“万恶之邪”。它不仅无处不在，并且杀伤范围最大，会诱发多种难以摆脱的慢性病……因
在业界素有“营销之王”誉称的奥克斯空调，从联动《变形金刚4》、《速度与激情7》展开娱乐营销，到搭载《中国 #微信公众号操作指南#[操作篇]如何对菜单进行统计分析？ 答：经销商朋友，在微信后台可以看到[菜单分析] #微信公众号操作指南#[操作篇]如何对图文信息进行统计分析？ 答：经销商朋友，在微信后台可以看到[图文分析#微信公众号操作指南#[操作篇]如何对用户进行统计分析？ 答：经销商朋友，在微信后台可以看到[用户统计]企业和产品的媒体化趋势十分明显，利用好这种趋势则十分有利于品牌的建立。 过去的中国品牌做得并不成功，当我们面#微信公众号操作指南#[操作篇]如何对素材进行管理？ 答：经销商朋友，[素材管理]这个功能可以对公众号所涉作为中国冰箱行业的“五朵金花”之一，美菱冰箱不仅是数十年历史的老品牌，也是新时代的龙头企业。2014年，面对导读数据显示，今年一季报，家电行业实现营业总收入1823亿元，同比下降0.35%；净利润135亿元，同比增长#微信公众号操作指南#[操作篇]如何添加“自定义菜单”？ 答：经销商朋友，当我们点开某些微信公众号的时候，01class培养土要求土壤疏松透气、排水良好，但有一定保水能力，呈中性或微酸性。高地性球类（月世界属、月华#微信公众号操作指南#[操作篇]怎样通过设置“关键词”实现自动回复？ 答：经销商朋友，还有一种比较方便且精
在热闹的彩电市场背后，制造商们的日子并不轻松。近日，奥维云网发布数据显示，2016年第一季度，彩电市场零#微信公众号操作指南#[操作篇]被关注后，怎么样自动回复粉丝？ 答：经销商朋友，当有粉丝在微信公众号里给您 #微信公众号操作指南#[操作篇]被关注后，怎么样自动回复粉丝？ 答：经销商朋友，有没有发现很多微信公众号，
继空净新国标正式实施之后，燃气热水器行业也将迎来新国标的实施。新国标GB/《家用燃气研发能力是高科技企业的基石，是企业持续发展的原动力。而研发投入则反映了企业对科技创新的重视程度，也是衡量
在热闹的彩电市场背后，制造商们的日子并不轻松。近日，奥维云网发布数据显示，2016年第一季度，彩电市场零
在发布智能服务新战略全面转型后，四川长虹交出了一份靓丽的成绩单。近日，四川长虹发布2016年一季报称，报
歪脖接电话 很多时候由于工作关系等，可能要一边接听电话，一边手上还有其他事情。如果一个人长时间经常性地歪近日，老板电器总经理任富佳于2015年度业绩说明会上表示，由于高端豪宅的项目周期较长，前几年帝泽陷入亏损
青岛海尔购买GE家电又获重大进展。3月31日，公司临时股东大会以99%的通过率，高票审议通过了关于签署《日，2016年春季客户恳谈会暨昆百优购推荐会（保山专场）在保山市官房大酒店5楼会议厅成功举行，标志着……“说实话，去年市场不太好，销售确实比较难，今年可能会好点，因为有奥运会嘛，有个赛事刺激消费，4K电视我们电饭煲的发明缩减了很多家庭花费在煮饭上的时间，可以说，现代家庭煮饭普遍都使用电饭锅了。尽管，电饭煲几乎是
线下售后增强
互联网品牌入正轨 历时两个月，互联网品牌电视的售后调查项目步入尾声，从用户还是厂商的反馈在家电领域，健康环境电器日益成为民众关心的热点，也成为各大商家的抢食之地。最热闹非“空气净化器”莫属。
3月30日，《HDR显示技术认证规范》正式发布。据了解，HDR电视需要显示设备、输入信号、动态范围和峰值你以为只有游戏有外挂？接下来人生也要开挂了！
松下的AWN-03搬砖神器松下最近发布了一款“搬砖神器”A日召开的“2016年春季客户恳谈会暨昆百优购推介会”上，昆百大集团副总裁段蟒先生...
家电在生活当中是缺一不可的，也是生活必备品。家电业在很早就说过有补贴的新闻，我不说大家也应该都知道了吧。国家统计局日前公布的数据显示，2015年，我国彩电总产量达14475.7万台，同比增长2.5%，其中液晶
2015年，智能电视销量在持续上升，而互联网机顶盒却在持续下滑。据奥维云网数据，2015年彩电零售量为4
随着科技技术的不断发展，人们对于科学探索就从未止步。当有人提问你，是觉得生活在什么时期的人更快乐的时候，
2015年家电行业蹒跚中前进。根据国家统计局的数据,月,我国家用电力器具制造行业收入1gh_b昆百优购电商平台目前是一个B2b2c模式的平台，通过整合昆百大的渠道资源，为经销商开展电子商务提供平台及所需服务，从筹备、装修、培训、营销全方位提供专业支持。经销商还可在平台上开设自己的店铺，可销售自己的特色商品，还可以自主制定销售价格。热门文章最新文章gh_b昆百优购电商平台目前是一个B2b2c模式的平台，通过整合昆百大的渠道资源，为经销商开展电子商务提供平台及所需服务，从筹备、装修、培训、营销全方位提供专业支持。经销商还可在平台上开设自己的店铺，可销售自己的特色商品，还可以自主制定销售价格。