想实现鼠标焦点在程序窗口范围之外时,该程序结束.

[dbbdggdbbdgg]

想实现鼠标焦点在程序窗口范围之外时,该程序结束.
程序中:
Private Sub Form_Deactivate()
end
End Sub
或
Private Sub Form_LostFocus()
end
End Sub
但是不灵, 它只是缩到任务栏上了,why?

[Janven]

行才怪，要用消息处理的。在程序窗口之外的鼠标键盘行为是不会触发窗体事件的，用API吧，参考函数GetCapture，GetCursorPos。

[Un1]

原因是VB Form的LostFocus和Deactive只能在本程序内发生，一个简单的解决办法是增加一个几百毫秒的定时器，加入程序：
Private Declare Function GetActiveWindow Lib "user32" () As Long

Private Sub Timer1_Timer()
If GetActiveWindow() <> hWnd Then End
End Sub

[solomon]

Timer.Interval = 50
sub Timer1_OnTimer()
GetCursorPos x, y ;This is API
if x < scalex(Left, vbTwips, vbPixels) or x > .... ; 判断是否在Form外
end
endif
end sub