说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

如何判断鼠标离开了一个窗口的显示区

编辑:说三道四文库 发布时间:2018-05-23 09:18
HTML文档下载 WORD文档下载 PDF文档下载
如题,谢谢各位!
private Declare Function SetCapture Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function ReleaseCapture Lib "user32" () As Long

Private Sub Command1_MouseMove(Button As Integer, _
  Shift As Integer, X As Single, Y As Single)
  '可以标示mouse in and exit
  With Command1
  SetCapture .hwnd

    If Not ((X < 0) Or (Y < 0) Or _
      (X > .Width) Or (Y > .Height)) Then

      If .Caption <> "outside" Then
        .Caption = "outside"
      End If
    Else
      .Caption = "inside"
       ReleaseCapture
    End If
  End With
End Sub
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘