判断鼠标移出窗体

来源:原创 点击数:7954 　 | 收藏 | 复制

时　间:2009-12-05 08:58:32
作　者:t小雨 ID：4598 城市：柳州
摘　要:判断鼠标移出窗体
正　文:

用标签或图像作为按钮时，可在鼠标移动时改变标签或图像的外观。
通常在鼠标移到标签或图像上面时改变改变标签或图像的外观，在鼠标移到窗体上时恢复外观。
但经常遇到，标签或图像在窗体边缘时，就不会发生窗体的鼠标移动事件，标签或图像不能恢复外观。
解决办法是用两个API函数 SetCapture 和 ReleaseCapture ，声明和说明如下：

Private Declare Function SetCapture Lib "user32" (ByVal hwnd As Long) As Long
'将鼠标捕获设置到指定的窗口。在鼠标按钮按下的时候，这个窗口会为当前应用程序或整个系统接收所有鼠标输入
'返回值'Long，之前拥有鼠标捕获的窗口的句柄'参数 'hwnd Long，要接收所有鼠标输入的窗口的句柄
Private Declare Function ReleaseCapture Lib "user32" () As Long
'为当前的应用程序释放鼠标捕获 '返回值'Long，TRUE（非零）成功，零失败
'使用举例：
Private Sub Label0_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
' 鼠标移动到标签时设置标签背景色为红色
Me.Label0.BackColor = 255
' 将鼠标捕获设置到当前窗口，这样即使鼠标移出窗体范围，窗体仍可捕获鼠标
SetCapture Me.hwnd
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
' 鼠标移动到窗体时恢复标签背景色为白色
Me.Label0.BackColor = 16777215
' 恢复标签的背景色后应释放鼠标捕获
ReleaseCapture
End Sub
Private Sub 主体_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
' 同上
Me.Label0.BackColor = 16777215
ReleaseCapture
End Sub