home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 6_2008-2009.ISO / data / zips / MyTimezone2220732262012.psc / Classes / clsMouseWheel.cls next >
Text File  |  2008-10-10  |  717b  |  36 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 = "clsMouseWheel"
  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 Event
  17. Public Event Wheel(ScrollLines As Integer)
  18.  
  19. Public Sub Hook(ByVal hWnd As Long)
  20.  
  21.    Call SubclassMouseWheel(Me, hWnd)
  22.  
  23. End Sub
  24.  
  25. Public Sub Unhook()
  26.  
  27.    Call SubclassMouseWheel
  28.  
  29. End Sub
  30.  
  31. Friend Sub WheelUsed(ByVal WheelUp As Boolean)
  32.  
  33.    RaiseEvent Wheel(-1 + (-2 * WheelUp))
  34.  
  35. End Sub
  36.