自己編程模擬MouseEnter,MouseExit事件

領測軟件測試網 很多第三方的控件都提供的 MouseEnter 和 MouseExit 事件來補充 MouseMove 事件的不足（MouseMove 事件不能有效的捕獲鼠標是否已在控件外），但是這些控件或要注冊，或集合了其他實際沒有什么作用控件，另外在程序中加入太多的控件也會影響程序的性能，利用 Windows 的 API 函數，我們可以在 MouseMove 中模擬 MouseEnter 和 MouseExit，雖然我提供的源代碼中沒有真正的這兩個事件，但的確提供了這兩個事件所具備的功能。好了！讓我們實現吧。

首先加載一個模塊，在模塊中聲明以下兩個 API 函數：

Public Declare Function SetCapture Lib "user32" _
(ByVal hwnd As Long) As Long
Public Declare Function ReleaseCapture Lib "user32" () As Long

SetCapture 的功能是：設置鼠標捕獲指定的窗口（Windows 每個控件都是一個窗口。比如桌面上顯示的圖標就是一個窗口，其實是兩個，另一個顯示描述這個圖標的文本），系統將收到這個窗口所有的鼠標移動或擊按的所有信息。

ReleaseCapture 的功能是：取消捕獲鼠標信息。

Windows 系統就是一個消息系統，系統一直在等待用戶的消息，并加一相應，但處理完一個消息后，系統有處以下一輪的等待。消息傳遞是 Windows 的核心。

讓我們在 Form1 中放置一個按鈕或其他控件，但此控件必須具有窗口句柄（hWnd），比如 VB 提供的 Image 控件是一個次圖形控件，沒有窗口句柄，而 Picture，Command Button 等控件就有窗口句柄，我們就拿 Command Button 來作示范，在 Form1 上放置一個 Command Button，在 Command1_MouseMove()事件內加入以下代碼：

Private Sub Command1_MouseMove(Button As Integer, _
Shift As Integer, X As Single, Y As Single)
With Command1

'當鼠標在越出控件外
If Not ((X < 0) Or (Y < 0) Or _
(X > .Width) Or (Y > .Height)) Then

'鼠標指針在按鈕外時，讓其他控件也收到標事件
ReleaseCapture

'為了不讓 MouseMove 事件反復觸發
If .Caption <> "outside" Then
.Caption = "outside"
End If

'鼠標指針在按鈕上，捕獲他但鼠標移出是我們將收到鼠標事件
SetCapture .hwnd

Else
.Caption = "inside"
End If
End With
End Sub 

文章來源于領測軟件測試網 http://www.kjueaiud.com/