[VB]可以实现onMouseOut和onMouseOver的类

e个守望者

1. Public Event MouseIN(X As Long, Y As Long)
   
2. Public Event MouseOUT(X As Long, Y As Long)
   
3. Public Event MouseEnter()
   
4. Public Event MouseLeave()
   
5. 
   
6. Private IsMouseIn As Boolean
   
7. Private mvarTheControl As Object
   
8. 
   
9. Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
   
10. Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
    
11. 
    
12. Private Type POINTAPI
    
13.         X As Long
    
14.         Y As Long
    
15. End Type
    
16. 
    
17. Private Type RECT
    
18.         Left As Long
    
19.         Top As Long
    
20.         Right As Long
    
21.         Bottom As Long
    
22. End Type
    
23. 
    
24. Public Sub CheckMouse()
    
25. Dim controlRect As RECT, pt As POINTAPI
    
26. GetWindowRect mvarTheControl.hwnd, controlRect
    
27. GetCursorPos pt
    
28. If pt.X >= controlRect.Left And pt.X <= controlRect.Right And pt.Y >= controlRect.Top And pt.Y <= controlRect.Bottom Then
    
29.     RaiseEvent MouseIN(pt.X, pt.Y)
    
30.     If IsMouseIn <> True Then
    
31.         IsMouseIn = True
    
32.         RaiseEvent MouseEnter
    
33.     End If
    
34. Else
    
35.     RaiseEvent MouseOUT(pt.X, pt.Y)
    
36.     If IsMouseIn <> False Then
    
37.         IsMouseIn = False
    
38.         RaiseEvent MouseLeave
    
39.     End If
    
40. End If
    
41. End Sub
    
42. 
    
43. Public Property Set TheControl(ByVal vData As Object)
    
44. 
    
45.     Set mvarTheControl = vData
    
46.    
    
47. End Property
    
48. 
    
49. 
    
50. Public Property Get TheControl() As Object
    
51.    
    
52.     Set TheControl = mvarTheControl
    
53. 
    
54. End Property

复制代码

cqlyzz

好东西，我先保存了，