VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 捕捉 MouseExit 事件
发表评论(0)作者:不详, 平台:VB6.0+Win98, 阅读:8790, 日期:2001-06-21
捕捉 MouseExit 事件
天涯风铃

--------------------------------------------------------------------------------

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