请教 如何关闭托盘菜单
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


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

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

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


[解决办法]
Case WM_RBUTTONUP
SetForegroundWindow Me.hwnd
PopupMenu mnuMain


[解决办法]
楼主的程序不完整。但可以肯定的是，在打开托盘菜单之前应该用SetForegroundWindow函数将当前窗体设置成前景窗体就可以解决楼主的问题。
[解决办法]
记得在某个帖子里有个大牛说过,是焦点问题.

顶.