托盘，右键菜单问题~~

右键点击托盘上的图标弹出菜单
当鼠标点击桌面其他位置的时候如何关闭右键弹出的菜单~~

解决方案 »

  1.   

    Private Declare Function SetForegroundWindow Lib "user32" (ByVal hWnd As Long) As LongDim Message As Long
        
        Message = X / Screen.TwipsPerPixelX    '判断鼠标消息,执行不同的功能
        Select Case Message
          Case WM_LBUTTONDOWN
              '点击拖盘
          Case WM_RBUTTONUP
              SetForegroundWindow Me.hWnd '关键是这个函数,加上它之后,弹出菜单就会消失!!
              '按右键弹出菜单
              PopupMenu mnuPopup
        End Select
      

  2.   

    天狼兄我刚采用我的程序试了一下，还是不行
    能否给我发过来个小例子，
    email: [email protected]