activex控件 鼠标滚轮问题
开发activex过程中碰到一个问题， activex中需要显示一张大图片，图片有滚动条，
现在需要实现一个鼠标滚轮操作滚动条，
注：activex 是一个自定义控件，嵌入到浏览器当中，

求教各位达人，，如何解决？

[解决办法]
上一段MS的VB6插件源代码

VB code

 
 Option Explicit 
  
 Declare Function EnumChildWindows Lib "user32" (ByVal hWndParent _ 
  As Long, ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long 
  
 Declare Function EnumThreadWindows Lib "user32" (ByVal dwThreadId _ 
  As Long, ByVal lpfn As Long, ByVal lParam As Long) As Long 
  
 Declare Function GetClassName Lib "user32" Alias "GetClassNameA" _ 
  (ByVal hWnd As Long, ByVal lpClassName As String, _ 
  ByVal nMaxCount As Long) As Long 
  
 Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" _ 
  (ByVal hWnd As Long, ByVal lpString As String, _ 
  ByVal cch As Long) As Long 
  
 Public Declare Function GetCurrentThreadId Lib "kernel32" () As Long 
  
 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 
  
 Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _ 
   (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) _ 
   As Long 
    
 Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" _ 
   (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As _ 
   Long, ByVal lParam As Long) As Long 
  
 Public Declare Function WindowFromPointXY Lib "user32" _ 
        Alias "WindowFromPoint" (ByVal xPoint As Long, _ 
        ByVal yPoint As Long) As Long 
         
 Private Declare Function SystemParametersInfo Lib "user32" _ 
     Alias "SystemParametersInfoA" _ 
     (ByVal uAction As Long, _ 
     ByVal uParam As Long, _ 
     lpvParam As Any, _ 
     ByVal fuWinIni As Long) As Long 
  
 Public Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long 
 Public Declare Function WindowFromPoint Lib "user32" (pt As POINTAPI) As Long 
 Public Declare Function GetWindowInfo Lib "user32" (ByVal hWnd As Long, ByRef pwi As WINDOWINFO) As Boolean 
  
 Public Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As Long 
 Public Declare Function FreeLibrary Lib "kernel32" Alias "FreeLibraryA" (ByVal hLibrary As Long) As Boolean 
  
  
 Private Type RECT 
  Left As Long 
  Top As Long 
  Right As Long 
  Bottom As Long 
 End Type 
  
 Private Type WINDOWINFO 
   cbSize As Long 
   rcWindow As RECT 
   rcClient As RECT 
   dwStyle As Long 
   dwExStyle As Long 
   cxWindowBorders As Long 
   cyWindowBorders As Long 
   atomWindowtype As Long 
   wCreatorVersion As Long 
 End Type 
  
 Private Type POINTAPI 
 x As Long 
 y As Long 
 End Type 
  
 Private Type MOUSEHOOKSTRUCT 
 pt As POINTAPI 
 hWnd As Long 
 wHitTestCode As Long 
 dwExtraInfo As Long 
 End Type 
  
 Private Type MSLLHOOKSTRUCT 
   pt As POINTAPI 
   mouseData As Long 
   flags As Long 
   time As Long 
   dwExtraInfo As Long  
 
 End Type 
  
 Private Const WM_MOUSEWHEEL = &H20A 
 Private Const WM_MBUTTONUP = &H208 
 Private Const WM_MBUTTONDOWN = &H207 
 Private Const WM_MBUTTONDBLCLK = &H209 
 Private Const WM_LBUTTONDOWN = &H201 
 Private Const WM_LBUTTONUP = &H202 
 Private Const WM_RBUTTONUP = &H205 
  
 Private Const MK_LBUTTON = &H1 
 Private Const MK_MBUTTON = &H10 
 Private Const MK_RBUTTON = &H2 
  
 Public Const WH_MOUSE = 7 
 Private Const WHEEL_DELTA = 120 
  
 Private Const WM_VSCROLL = &H115 
 Private Const WM_USER As Long = &H400 
 Private Const WM_SOMETHING = WM_USER + 3139 
  
 Public Const GWL_WNDPROC = -4 
 Public Const WH_MOUSE_LL = 14 
  
 Public Const SB_LINEUP = 0 
 Public Const SB_LINELEFT = 0 
 Public Const SB_LINEDOWN = 1 
 Public Const SB_LINERIGHT = 1 
 Public Const SB_ENDSCROLL = 8 
 Public Const WS_VISIBLE = &H10000000 
 Public Const SBS_VERT = 1 
 Public Const SBS_HORZ = 0 
 Public Const WM_HSCROLL = &H114 
 Public Const SPI_GETWHEELSCROLLLINES = 104 
  
 Public Enum mButtons 
 LBUTTON = &H1 
 MBUTTON = &H10 
 RBUTTON = &H2 
 End Enum 
  
  Public Const REG_SZ As Long = 1 
  Public Const REG_DWORD As Long = 4 
  
  Public Const HKEY_CLASSES_ROOT = &H80000000 
  Public Const HKEY_CURRENT_USER = &H80000001 
  Public Const HKEY_LOCAL_MACHINE = &H80000002 
  Public Const HKEY_USERS = &H80000003 
  
  Public Const ERROR_NONE = 0 
  Public Const ERROR_BADDB = 1 
  Public Const ERROR_BADKEY = 2 
  Public Const ERROR_CANTOPEN = 3 
  Public Const ERROR_CANTREAD = 4 
  Public Const ERROR_CANTWRITE = 5 
  Public Const ERROR_OUTOFMEMORY = 6 
  Public Const ERROR_ARENA_TRASHED = 7 
  Public Const ERROR_ACCESS_DENIED = 8 
  Public Const ERROR_INVALID_PARAMETERS = 87 
  Public Const ERROR_NO_MORE_ITEMS = 259 
  
  Public Const KEY_QUERY_VALUE = &H1 
  Public Const KEY_SET_VALUE = &H2 
  Public Const KEY_ALL_ACCESS = &H3F 
  
  Public Const REG_OPTION_NON_VOLATILE = 0 
  
  Declare Function RegCloseKey Lib "advapi32.dll" _ 
     (ByVal hKey As Long) As Long 
   
  Declare Function RegCreateKeyEx Lib "advapi32.dll" Alias _ 
     "RegCreateKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, _ 
     ByVal Reserved As Long, ByVal lpClass As String, ByVal dwOptions _ 
     As Long, ByVal samDesired As Long, ByVal lpSecurityAttributes _ 
     As Long, phkResult As Long, lpdwDisposition As Long) As Long 
   
  Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias _ 
     "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, _ 
     ByVal ulOptions As Long, ByVal samDesired As Long, phkResult As _ 
     Long) As Long 
   
  Declare Function RegQueryValueExString Lib "advapi32.dll" Alias _ 
     "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As _ 
     String, ByVal lpReserved As Long, lpType As Long, ByVal lpData _ 
     As String, lpcbData As Long) As Long 
        
  Declare Function RegQueryValueExLong Lib "advapi32.dll" Alias _ 
     "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As _ 
     String, ByVal lpReserved As Long, lpType As Long, lpData As _ 
     Long, lpcbData As Long) As Long 
   
  Declare Function RegQueryValueExNULL Lib "advapi32.dll" Alias _ 
     "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As _ 
     String, ByVal lpReserved As Long, lpType As Long, ByVal lpData _  
 
     As Long, lpcbData As Long) As Long 
   
  Declare Function RegSetValueExString Lib "advapi32.dll" Alias _ 
     "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, _ 
     ByVal Reserved As Long, ByVal dwType As Long, ByVal lpValue As _ 
     String, ByVal cbData As Long) As Long 
    
  Declare Function RegSetValueExLong Lib "advapi32.dll" Alias _ 
    "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, _ 
     ByVal Reserved As Long, ByVal dwType As Long, lpValue As Long, _ 
    ByVal cbData As Long) As Long 
  
 Dim nKeys As Long, Delta As Long, XPos As Long, YPos As Long 
 Dim OriginalWindowProc As Long 
 Dim pthWnd As Long 
 Dim lLineNumbers As Long 
 Dim MainWindowHwnd As Long  ' Main IDE window handle 
 Dim bHook As Boolean 
 Dim sLib As String 
 Dim hLib As Long 
  
  
 

VB code

'支持滚轮鼠标API---------------------------------Public Const GWL_WNDPROC = (-4)Public Const WM_COMMAND = &H111Public Const WM_MBUTTONDOWN = &H207Public Const WM_MBUTTONUP = &H208Public Const WM_MOUSEWHEEL = &H20A Public Oldwinproc As LongPublic Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As LongPublic 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 LongPublic Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As LongPublic Function FlexScroll(ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long'支持滚轮的滚动  Select Case wMsg  Case WM_MOUSEWHEEL  Select Case wParam  Case -7864320 '向下滚  SendKeys "{DOWN}"  SendKeys "{DOWN}"  SendKeys "{DOWN}"      Case 7864320 '向上滚  SendKeys "{UP}"  SendKeys "{UP}"  SendKeys "{UP}"      End Select      End Select  FlexScroll = CallWindowProc(Oldwinproc, hWnd, wMsg, wParam, lParam)End Function'支持滚轮鼠标API---------------------------------