Question

VB鼠标离开窗体时就启动某个代码

Answer 1

　　’申明API函数——
　　Private Declare Function SetCapture Lib "user32" (ByVal hWnd As Long) As Long
　　Private Declare Function ReleaseCapture Lib "user32" () As Long

　　Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
　　Dim MouseLeave As Boolean
　　MouseLeave = (0 <= X) And (X <= Me.Width) And (0 <= Y) And (Y <=Me.Height)
　　If MouseLeave Then
me.caption="Inside"

　　SetCapture me.hWnd
　　Else
　　me.caption = "Outside"
　　ReleaseCapture
　　End If
　　End Sub
　　

追问

请问有没有更好的，类似这样的，这个是在内的
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)

End Sub

追答

你如果是VB6.0的话是没有MOUSELEAVE这个事件的，上面的方法是我以前编程时搜索了N久才收集到的方法，该方法可以解决MOUSELEAVE的问题，只要有HWND都可以使用。

如果是VB.NET，那么里面直接就有MOUSELEAVE这个事件

追问

可是我是要窗体外执行代码的，只要鼠标到外就执行就可以了，不用在内也执行，而且我要写的代码也有很多

追答

那最简单了，你搞个timer，然后建个模块写入：

'--------获得鼠标坐标
Type POINTAPI
X As Long
Y As Long
End Type
Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Public MouseXY As POINTAPI

之后在timer中写入

GetCursorPos (MouseXY)
MouseXY.X=MouseXY.X*15
MouseXY.Y=MouseXY.Y*15
if not( MouseXY.X>me.left and MouseXY.Xme.top and MouseXY.Y<me.top + me.height) then '如果鼠标不在窗口内
'代码
end if

缺点：即使程序没有交点也会执行。。。你需要判断程序是否有焦点

追问

没有用，如果可能的话最好是内外都执行

追答

'你添加一个timer1，已调试成功！

Option Explicit
Private Type POINTAPI
X As Long
Y As Long
End Type
Private MouseXY As POINTAPI
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long

Private Sub Form_Load()
Timer1.Interval = 100 '每100毫秒执行判断一次鼠标位置，同时执行代码（print）一次
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
GetCursorPos MouseXY
MouseXY.X = MouseXY.X * 15
MouseXY.Y = MouseXY.Y * 15
If MouseXY.X > Me.Left And MouseXY.X < Me.Left + Me.Width And MouseXY.Y > Me.Top And MouseXY.Y < Me.Top + Me.Height Then '如果鼠标在窗口内
    Me.Caption = "在窗体内"
    Print "在窗体内"
Else
    Me.Caption = "在窗体外"
    Print "在窗体外"
End If
End Sub

Answer 2

Private Declare Function SetCapture Lib "user32" (ByVal hWnd As Long) As Long
Private Declare Function ReleaseCapture Lib "user32" () As Long

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If X >= 0 And X <= Me.Width And Y >= 0 And Y <= Me.Height Then
SetCapture Me.hWnd
Else
ReleaseCapture
'这里放入你在鼠标移出窗体后要执行的代码
End If
End Sub

追问

有没有窗体内和窗体外都执行一样代码的代码？

追答

Private Declare Function SetCapture Lib "user32" (ByVal hWnd As Long) As Long
Private Declare Function ReleaseCapture Lib "user32" () As Long

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If X >= 0 And X = 0 And Y <= Me.Height Then
SetCapture Me.hWnd
Else
ReleaseCapture
End If
'这里放入你要执行的代码
End Sub

追问

写上这个代码后我自己原本的代码都不能用了（移动到窗体内的代码，完全没有反应）