VB 鼠标移到窗口边缘时不会出现双向前头

Ineverleft

1. '------------下面是模块代码---------------------------------------
   
2. 
   
3. Option Explicit
   
4. 
   
5. Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
   
6. Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
   
7. Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
   
8. 
   
9. Public Const GWL_WNDPROC = (-4)
   
10. Public Const WM_ENDSESSION = &H16
    
11. Public Const WM_QUERYENDSESSION = &H11
    
12. 
    
13. Public preWinProc As Long
    
14. 
    
15. Public Function Wndproc(ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
    
16.     Wndproc = CallWindowProc(preWinProc, hwnd, Msg, wParam, lParam)
    
17.     If (Msg = 132) Then
    
18.         Select Case Wndproc
    
19.             Case 10, 11, 12, 13, 14, 15, 16, 17:
    
20.             Wndproc = 0
    
21.             Exit Function
    
22.         End Select
    
23.     End If
    
24. End Function
    
25. 
    
26. 
    
27. '------------下面是窗体代码---------------------------------------
    
28. Option Explicit
    
29. 
    
30. Private Sub Form_Load()
    
31.     Dim ret As Long
    
32.     '记录原来的Window Procedure的位址
    
33.     preWinProc = GetWindowLong(Me.hwnd, GWL_WNDPROC)
    
34.     '设定form的window Procedure到wndproc
    
35.     ret = SetWindowLong(Me.hwnd, GWL_WNDPROC, AddressOf Wndproc)
    
36. End Sub
    
37. 
    
38. Private Sub Form_Unload2(Cancel As Integer)
    
39.     Dim ret As Long
    
40.     '取消Message的截取，而使之又只送往原来的Window Procedure
    
41.     ret = SetWindowLong(Me.hwnd, GWL_WNDPROC, preWinProc)
    
42. End Sub

复制代码