Question

我用vb写了一个窗体用作托盘图标的右键菜单，怎样能够使鼠标在其他上面点一下，菜单就消失

Answer 1

Public Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long
Dim result As Long
result = SetForegroundWindow(FrmMain.hwnd) '右键菜单弹出，不选择菜单则关闭
FrmMain.PopupMenu FrmMain.mnuTray

Answer 2

弹出菜单后，鼠标在别的窗体上点击，菜单就自动消失，不用代码的

Answer 3

你这个问题很专业 到网上搜一下 吧