MouseDown、MouseUp、MouseMove。VB 似乎提供了很好的 Mouse 事件。但好象还缺少什么！对！还差
MouseExit（鼠标移出）事件。在 VB 中，我们要捕捉 MouseExit 事件，必须用 API 函数：
Private
Declare Function SetCapture Lib "user32" (ByVal hWnd As Long) As Long
Private
Declare Function ReleaseCapture Lib "user32" () As Long
然后，我们可以在控件（以
Picture1 为例）的 MouseMove 事件上加上以下代码：
Dim MouseExit As Boolean
MouseOver
= (0 $#@60;= X) And (X $#@60;="Picture1.Width)" And (0 $#@60;="Y)" And (Y
$#@60;="Picture1.Height)$#@60;Br"$#@62; If MouseExit
Then
........
SetCapture
Picture1.hWnd
Else
........
ReleaseCapture
End If
文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!
