0
点赞
收藏
分享

微信扫一扫

SetCapture的基本应用示例


怎么样可以捕获到鼠标进入和离开窗体呢?

这里要用到两个Api,即SetCapture和ReleaseCapture.

新建一个工程,将下面代码贴入代码区.按F5运行即可.

Option Explicit
Private Declare Function SetCapture Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function ReleaseCapture Lib "user32" () As LongPrivate Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
With Form1
If Not ((X < 0) Or (Y < 0) Or (X > .Width) Or (Y > .Height)) Then
ReleaseCapture
If .Caption <> "进来了" Then
.Caption = "进来了"
End If
SetCapture .hwnd
Else
.Caption = "离开了"
End If
End With
End Sub

现在把鼠标移动到窗体内外试试看.

                                                                               --- 程序:唐细刚

举报

相关推荐

0 条评论