Question

vb 右键托盘菜单无法取消

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 '左键事件
'MsgBox "请用鼠标右键点击图标!", vbInformation, "实时播音专家"
'单击左键，显示窗体
If Pass = "" And User = "" Then
ShowWindow Me.hwnd, SW_RESTORE
Shell_NotifyIcon NIM_DELETE, tray '程序关闭时触发，删除任务栏图标
Else
Form5.Show
End If
Case WM_RBUTTONUP '右键事件
PopupMenu yjcd '显示菜单
End Select
End Sub
我是用vb制作托盘那个代码弄托盘右键菜单的，但是菜单虽然显示出来了，点桌面的时候竟然不消失，一直在那里显示着（除非选择其中一个），怎么办
xjcs@vip.qq.com

Answer 1

我一般是另做一个小窗口，成菜单的样子。还可以更美观。收到单击托盘事件时候写一个GetCursorPos获取鼠标位置，然后Show窗口在适当位置。再勾取鼠标单击事件……蛮麻烦的，不过要是熟悉也还好。

我有相关源码，但也很复杂。

偷懒一点的办法就是加一个名叫“取消”的菜单项，什么代码也不写，单击一下就消失了。
VB引用的一些API的确执行很奇怪……

Answer 2

我有一个托盘的控件，你需要的话可以发过去，给个邮箱，30分钟内hi我有效，呵呵