如何让Form的Mouse leave事件仅在鼠标离开窗体及ControlBox后触发

问题原因 #

Form.MouseLeave 事件仅监听窗体客户区的鼠标离开动作，标题栏、ControlBox（最小化/最大化/关闭按钮区域）属于非客户区，鼠标从客户区移到这些区域时会误触发离开事件。

实现方案 #

推荐使用定时器检测鼠标位置的方案，逻辑简单、兼容性好：

• 拖拽一个Timer控件到你的Form窗体设计界面，设置属性：
  • Enabled：True
  • Interval：100（单位毫秒，数值越小灵敏度越高，可按需调整）
• 替换原有MouseLeave事件的逻辑，添加如下代码：

' 标记鼠标是否已离开窗体，避免重复触发事件
Private _isMouseOutside As Boolean = False

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    ' 获取包含非客户区的窗体完整边界（包含标题栏、ControlBox、窗体边框）
    Dim formFullBounds As Rectangle = Me.Bounds
    ' 获取当前鼠标的屏幕坐标
    Dim currentMousePos As Point = Cursor.Position
    
    Dim nowOutside As Boolean = Not formFullBounds.Contains(currentMousePos)
    ' 仅在鼠标刚离开的瞬间触发一次逻辑
    If nowOutside AndAlso Not _isMouseOutside Then
        MsgBox("Im outside of form")
        _isMouseOutside = True
    ' 鼠标回到窗体时重置状态
    ElseIf Not nowOutside AndAlso _isMouseOutside Then
        _isMouseOutside = False
    End If
End Sub

内容的提问来源于stack exchange，提问作者LabRat