显示在托盘中的程序，右击后弹出菜单，但我若不想选任何菜单项，而点其他地方的话，菜单不会消失，

要怎么处理呀？？

解决方案 »

  1.   

    如果你已经隐藏了主窗体的话就这样吧,在你弹出菜单代码的前面加上这两:
    frmMain.Show
    frmMain.Left = -5000
      

  2.   

    Declare Function SetForegroundWindow Lib "user32" (ByVal hWnd As Long) As Long
    '在弹出菜单前使用 SetForegroundWindow 把主窗口设到前台 这样 你点击别的地方 主窗口会失去 焦点 当然菜单也会自动消失了
    '使用方法：
     call SetForegroundWindow(form1.hwnd)
      

  3.   

    Case WM_RBUTTONUP '鼠标在图标上右击时弹出菜单
          SetForegroundWindow Me.hwnd
            Me.PopupMenu mnuTray
    加一句 SetForegroundWindow Me.hwnd
      

  4.   

    窗体隐藏的话，当然菜单不会消失。在菜单出现之前用SetForegroundWindow设定了当前窗口就好了。