home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 4_2005-2006.ISO / data / Zips / Ownerdrawn1937991062005.psc / clsTracking.cls < prev    next >
Text File  |  2005-09-29  |  918b  |  43 lines
  1. VERSION 1.0 CLASS
  2. BEGIN
  3.   MultiUse = -1  'True
  4.   Persistable = 0  'NotPersistable
  5.   DataBindingBehavior = 0  'vbNone
  6.   DataSourceBehavior  = 0  'vbNone
  7.   MTSTransactionMode  = 0  'NotAnMTSObject
  8. END
  9. Attribute VB_Name = "clsTracking"
  10. Attribute VB_GlobalNameSpace = False
  11. Attribute VB_Creatable = True
  12. Attribute VB_PredeclaredId = False
  13. Attribute VB_Exposed = False
  14. Option Explicit
  15.  
  16. Public hwnd As Long
  17. Public ScrollHwnd As Long
  18. Public TextHwnd As Long
  19. Public prevProc As Long
  20. Public prevProcScroll As Long
  21. Public prevProcText As Long
  22.  
  23. Public Event MouseLeave()
  24. Public Event ScrollUp()
  25. Public Event ScrollDown()
  26. Public Event cLostFocus()
  27.  
  28. Public Sub RaiseMouseLeaveList()
  29. RaiseEvent MouseLeave
  30. End Sub
  31.  
  32. Public Sub RaiseScrollUp()
  33. RaiseEvent ScrollUp
  34. End Sub
  35.  
  36. Public Sub RaiseScrollDown()
  37. RaiseEvent ScrollDown
  38. End Sub
  39.  
  40. Public Sub RaisecLostFocus()
  41. RaiseEvent cLostFocus
  42. End Sub
  43.