Question

vb托盘程序问题

Private Sub MDIForm_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
Me.Visible = Not Me.Visible
Case WM_RBUTTONUP
PopupMenu TrayMenu
End Select
End Sub

这样能在托盘图标使用左右键菜单。
但我在窗口移动鼠标也会触发这个事件，怎么让他只能在托盘触发，在窗口不触发

Answer 1

你加一个全局的判断条件就行了，例如叫做Flag。
最小化到托盘的过程中加一句：Flag=False
从托盘区恢复的过程加一句：Flag=True
把上面的代码改成：
Private Sub MDIForm_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
if flag=false then
Dim lMsg As Single
lMsg = X / Screen.TwipsPerPixelX
Select Case lMsg
Case WM_LBUTTONUP
Me.Visible = Not Me.Visible
Case WM_RBUTTONUP
PopupMenu TrayMenu
End Select
end if
End Sub

Answer 2

这个MouseMove属于窗体的，无法改变。