Question

关于VB托盘菜单的问题

在使用PopupMenu弹出托盘菜单后，若想鼠标单击windows桌面以后（即该托盘程序不再有焦点）就自动隐藏该菜单（像QQ的托盘菜单一样），该怎样写代码？（VB6.0）望指教。

Answer 1

'先在模块里添加API
Public Declare Function SetForegroundWindow Lib "user32" Alias "SetForegroundWindow" (ByVal hwnd As Long) As Long
'这只是为了菜单消失而加的API，托盘图标的API自己加。

'在弹出菜单的语句前加上
SetForegroundWindow frmMenu.hwnd
'frmMenu是你的菜单所在的窗体。