home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Game Programming for Teens / VBGPFT.cdr / DirectX8 / dx8vbsdk.exe / samples / multimedia / vbsamples / misc / subclass / modwndproc.bas next >
Encoding:
BASIC Source File  |  2000-09-22  |  1.1 KB  |  28 lines
  1. Attribute VB_Name = "modWndProc"
  2. Option Explicit
  3.  
  4. Public 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
  5. Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
  6.  
  7. Public Const GWL_WNDPROC = -4
  8.  
  9. Public lpPrevWndProc As Long
  10. Private moControl As SubClasser
  11.  
  12. Public Sub Hook(ByVal lHwnd As Long, oCon As SubClasser)
  13.     lpPrevWndProc = SetWindowLong(lHwnd, GWL_WNDPROC, AddressOf WindowProc)
  14.     Set moControl = oCon
  15. End Sub
  16.  
  17. Public Sub UnHook(ByVal lHwnd As Long)
  18.     Dim lngReturnValue As Long
  19.     lngReturnValue = SetWindowLong(lHwnd, GWL_WNDPROC, lpPrevWndProc)
  20. End Sub
  21.  
  22. Function WindowProc(ByVal hw As Long, ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
  23.     moControl.GotMessage uMsg, wParam, lParam
  24.     WindowProc = CallWindowProc(lpPrevWndProc, hw, uMsg, wParam, lParam)
  25. End Function
  26.  
  27.  
  28.