再话在MSHFLEXGRID（vb6）中怎么解决鼠标滚轮的滚动问题？

[hn123]

这是　lxcc(虫子|专注于抢分) 大哥发的贴子，很好用，但是有一个问题，怎么用在多个窗体中，现在只能用在一个窗体中。急。
如果方便请加我的msn ：[e-mail]

Option Explicit

Public Const GWL_WNDPROC = (-4)
Public Const WM_COPYDATA = &H4A
Public Const WM_MOUSEWHEEL = &H20A
Public Type COPYDATASTRUCT
dwData As Long
cbData As Long
lpData As Long
End Type

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 GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex 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 Sub RtlMoveMemory Lib "kernel32" (lpvDest As Any, lpvSource As Any, ByVal cbCopy As Long)

Public prevWndProc As Long
Public Function WndProc(ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
If Msg = WM_MOUSEWHEEL Then
With Form1.MSHFlexGrid1
If wParam = -7864320 Then
.TopRow = .TopRow + 1'向下滚动
ElseIf wParam = 7864320 Then
If .TopRow > 1 Then
.TopRow = .TopRow - 1'向上滚动
End If
End If
End With
Else
WndProc = CallWindowProc(prevWndProc, hWnd, Msg, wParam, lParam)
End If
End Function

所在窗体：

Private Sub Form_Load()
'表格窗口消息
prevWndProc = GetWindowLong(MSHFlexGrid1.hWnd, GWL_WNDPROC)
Call SetWindowLong(MSHFlexGrid1.hWnd, GWL_WNDPROC, AddressOf WndProc)
End Sub

Private Sub Form_Unload(Cancel As Integer)
'恢复窗口程序
Call SetWindowLong(MSHFlexGrid1.hWnd, GWL_WNDPROC, prevWndProc1)
End Sub

[hn123]

我用最简单的办法搞定了，太高兴了。

[留下些什么]

写成控件就可以了

[ljhdi]

我是这样解决的
写在Form_Activate事件里

把Call SetWindowLong(MSHFlexGrid1.hWnd, GWL_WNDPROC, prevWndProc1)写在一个函数里面调用
然后其它窗体的unload事件里都要调用frmMain.frmLostAct
虽然都能实现滚轮
但总是感觉不爽
后来换成了vsflexgrid控件

[vansoft]

把窗體和控件做參數就可以.

[wenky_2000]

VSFLEXGRID好用

这问题都不用想

[tangqijun199]

不知道楼主是用什么办法，能告诉我吗？

[叶帆]

这是我写的一个控件，可以参考一下
http://www.bjjr.com.cn/yefan/sourcecode/mmouse.rar

[VBDN]

http://powerbasic.cn/Products/MouseWheelForDataGrid.htm