home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Game Programming for Teens / VBGPFT.cdr / DirectX8 / dx8vbsdk.exe / samples / multimedia / vbsamples / misc / subclass / subclasser.ctl < prev    next >
Encoding:
Text File  |  2000-09-22  |  1.2 KB  |  44 lines
  1. VERSION 5.00
  2. Begin VB.UserControl SubClasser 
  3.    CanGetFocus     =   0   'False
  4.    ClientHeight    =   495
  5.    ClientLeft      =   0
  6.    ClientTop       =   0
  7.    ClientWidth     =   510
  8.    HasDC           =   0   'False
  9.    InvisibleAtRuntime=   -1  'True
  10.    Picture         =   "SubClasser.ctx":0000
  11.    ScaleHeight     =   495
  12.    ScaleWidth      =   510
  13.    ToolboxBitmap   =   "SubClasser.ctx":0442
  14. End
  15. Attribute VB_Name = "SubClasser"
  16. Attribute VB_GlobalNameSpace = False
  17. Attribute VB_Creatable = True
  18. Attribute VB_PredeclaredId = False
  19. Attribute VB_Exposed = True
  20. Option Explicit
  21. Private mlHwnd As Long
  22. Private mfNeedUnhook As Boolean
  23.  
  24. Public Event WindowsMessage(ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam As Long)
  25.  
  26. Public Sub Hook(ByVal hWnd As Long)
  27.     mlHwnd = hWnd
  28.     modWndProc.Hook mlHwnd, Me
  29.     mfNeedUnhook = True
  30. End Sub
  31.  
  32. Public Sub UnHook()
  33.     modWndProc.UnHook mlHwnd
  34.     mfNeedUnhook = False
  35. End Sub
  36.  
  37. Friend Sub GotMessage(ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam As Long)
  38.     RaiseEvent WindowsMessage(uMsg, wParam, lParam)
  39. End Sub
  40.  
  41. Private Sub UserControl_Terminate()
  42.     If mfNeedUnhook Then UnHook
  43. End Sub
  44.