[求助]：哪位高人帮个忙，把这个鼠标滚轮控件编译一下。

god

哪位高人帮个忙，把这个鼠标滚轮控件编译一下，我编译的不能调用。

在vb程序中用这个控件，可以获得滚轮动作。

雪山飞狐(lzh)

不用编译为控件，你只要用的时候调用这个控件就可以了

ntchjie

不是有更好的驱动了吗？

god

直接把引用代码模块是可以啊，不过用控件更好一点吧。程序会精炼一点啊。而且也可以避免出问题。
另外vb6中如果有用户控件模块，我一直使用的一个鼠标控制软件就不起作用了，所以还是想编译成ocx来用。

编译后不能用是不是控件外部接口没做好的原因？


ntchjie 说的更好的驱动是什么？

找到另一个源代码，不是控件方式。各有所长。

还是希望有高手把上面的控件修改修改，我还改不来

http://www.lihuasoft.net/article/show.php?id=918

2. 
   
3. 让程序的鼠标支持滚轮  
   
4. 发表日期：2004-07-14 作者：[翻译] 出处：CSDN       
   
5. 
   
6. 
   
7. 
   
8. 以下代码写在模块里面  
   
9. Public Const GWL_WNDPROC = (-4)
   
10. Public Const WM_COMMAND = &H111
    
11. Public Const WM_MBUTTONDOWN = &H207
    
12. Public Const WM_MBUTTONUP = &H208
    
13. Public Const WM_MOUSEWHEEL = &H20A
    
14. 
    
15. Public Oldwinproc   As Long
    
16. Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, _
    
17. ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
    
18. 
    
19. Public Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, _
    
20. ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
    
21. 
    
22. Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, _
    
23. ByVal nIndex As Long) As Long
    
24. 
    
25. Public Function FlexScroll(ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
    
26. '支持滚轮的滚动  Yu  2004-5-10  15:33
    
27.     Select Case wMsg
    
28.         Case WM_MOUSEWHEEL
    
29.             Select Case wParam
    
30.                 Case -7864320     '向下滚
    
31.                     SendKeys "{PGDN}"
    
32.                     Debug.Print "{PGDN}"
    
33.                 Case 7864320   '向上滚
    
34.                     SendKeys "{PGUP}"
    
35.                     Debug.Print "{PGUP}"
    
36.             End Select
    
37.     End Select
    
38.     FlexScroll = CallWindowProc(Oldwinproc, hWnd, wMsg, wParam, lParam)
    
39. End Function
    
40.   
    
41. 
    
42. 
    
43. 以下代码写在窗体里面  
    
44. 
    
45. Private Sub Picture1_GotFocus()
    
46.     Oldwinproc = GetWindowLong(Me.hWnd, GWL_WNDPROC)
    
47.     SetWindowLong Me.hWnd, GWL_WNDPROC, AddressOf FlexScroll
    
48. End Sub
    
49. 
    
50. Private Sub Picture1_LostFocus()
    
51.     SetWindowLong Me.hWnd, GWL_WNDPROC, Oldwinproc
    
52. End Sub
    
53. 
    
54. 
    
55. Private Sub MSFlexGrid1_GotFocus()
    
56.     Oldwinproc = GetWindowLong(Me.hWnd, GWL_WNDPROC)
    
57.     SetWindowLong Me.hWnd, GWL_WNDPROC, AddressOf FlexScroll
    
58. End Sub
    
59. 
    
60. Private Sub MSFlexGrid1_LostFocus()
    
61.     SetWindowLong Me.hWnd, GWL_WNDPROC, Oldwinproc
    
62. End Sub
    
63. 
    
64. 
    

<br /> 让程序的鼠标支持滚轮  <br /> 发表日期：2004-07-14 作者：[翻译] 出处：CSDN        <br /> <br /> <br /> <br /> 以下代码写在模块里面  <br /> Public Const GWL_WNDPROC = (-4)<br /> Public Const WM_COMMAND = &H111<br /> Public Const WM_MBUTTONDOWN = &H207<br /> Public Const WM_MBUTTONUP = &H208<br /> Public Const WM_MOUSEWHEEL = &H20A<br /> <br /> Public Oldwinproc   As Long<br /> Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, _<br /> ByVal nIndex As Long, ByVal dwNewLong As Long) As Long<br /> <br /> Public Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, _<br /> ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long<br /> <br /> Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, _<br /> ByVal nIndex As Long) As Long<br /> <br /> Public Function FlexScroll(ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long<br /> '支持滚轮的滚动  Yu  2004-5-10  15:33<br />     Select Case wMsg<br />         Case WM_MOUSEWHEEL<br />             Select Case wParam<br />                 Case -7864320     '向下滚<br />                     SendKeys "{PGDN}"<br />                     Debug.Print "{PGDN}"<br />                 Case 7864320   '向上滚<br />                     SendKeys "{PGUP}"<br />                     Debug.Print "{PGUP}"<br />             End Select<br />     End Select<br />     FlexScroll = CallWindowProc(Oldwinproc, hWnd, wMsg, wParam, lParam)<br /> End Function<br />   <br /> <br /> <br /> 以下代码写在窗体里面  <br /> <br /> Private Sub Picture1_GotFocus()<br />     Oldwinproc = GetWindowLong(Me.hWnd, GWL_WNDPROC)<br />     SetWindowLong Me.hWnd, GWL_WNDPROC, AddressOf FlexScroll<br /> End Sub<br /> <br /> Private Sub Picture1_LostFocus()<br />     SetWindowLong Me.hWnd, GWL_WNDPROC, Oldwinproc<br /> End Sub<br /> <br /> <br /> Private Sub MSFlexGrid1_GotFocus()<br />     Oldwinproc = GetWindowLong(Me.hWnd, GWL_WNDPROC)<br />     SetWindowLong Me.hWnd, GWL_WNDPROC, AddressOf FlexScroll<br /> End Sub<br /> <br /> Private Sub MSFlexGrid1_LostFocus()<br />     SetWindowLong Me.hWnd, GWL_WNDPROC, Oldwinproc<br /> End Sub<br /> <br /> <br />

ntchjie

这个老早就有人放出来了，你用用看，vb和vba上都好用的，我用了好长时间了，挺好的。

雪山飞狐(lzh)

你们两个说得东东不一样，god要的是自编的VB程序获取滚轮事件，而ntchjie的是VB编辑器下用的，两个概念

god

vbwheel我也在用，挺好的。