您的位置：程序门 -> vb ->

请教如何关闭托盘菜单

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

请教如何关闭托盘菜单[已结贴,结贴人:smoked]

发表于：2007-04-19 10:08:21 楼主

private sub form_mousemove（button as integer, shift as integer, x as single, y as single)
dim lmsg as single
lmsg = x / screen.twipsperpixelx
select case lmsg
case wm_lbuttonup
showwindow me.hwnd, sw_restore
me.show
me.setfocus

case wm_rbuttonup
popupmenu mnumain
end select
end sub

我按以上的方法, 右键单击托盘图标打开了菜单

随后发现一个问题, 如果不点击菜单中的项目, 这菜单就不能自己关闭, 始终显示在那里.

其他的托盘程序, 在菜单打开后, 如果鼠标点击其他空白区域（比如桌面), 这菜单就会自己消失. 不知这是怎么实现的, 请大家指教.

发表于：2007-04-19 10:25:121楼得分:20

case wm_rbuttonup
setforegroundwindow me.hwnd
popupmenu mnumain

发表于：2007-04-19 10:27:442楼得分:20

楼主的程序不完整。但可以肯定的是，在打开托盘菜单之前应该用setforegroundwindow函数将当前窗体设置成前景窗体就可以解决楼主的问题。

发表于：2007-04-19 12:43:483楼得分:10

记得在某个帖子里有个大牛说过,是焦点问题.

顶.

发表于：2007-04-19 13:53:424楼得分:0

解决了, 谢谢大家的指点.

下一篇：又问钩子函数
上一篇：如何按下鼠标键就可获取鼠标当前位置的网页元素的id或者title等属性？

其他资讯

您的位置：程序门 -> vb ->

请教 如何关闭托盘菜单

请教如何关闭托盘菜单