让MSlexgrid支持鼠标滚轮(VB6).docVIP

让Msflexgrid控件支持鼠标滚轮（VB6） Msflexgrid控件是使用非常广泛的一个控件。但由于Msflexgrid控件不支持鼠标滚轮，给用户使用带来了不少使用上的不习惯。 网上就“让Msflexgrid控件支持鼠标滚轮”给出了具体的例子，实现方法主要集中于“子类化”，使用全局鼠标钩子的很少。虽然这些例子解决了“让Msflexgrid控件支持鼠标滚轮”这个问题，但依然有一些小问题，那就是自由度还不够（或者说需要自己用代码控制以免出错），比如滚动一页，比如滚轮定位。下面，我将自己测试得到的成果介绍如下。（PS：后面我还附加了判断MSFGrid控件是否有滚动条的方法）（再PS：如果要引用本文，请注明出处） 在Module模块里的代码： API函数和常数申明 Private Declare Function SetWindowLong Lib user32 Alias SetWindowLongA (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Private Const GWL_WNDPROC = (-4) Private 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 Private Const WM_MOUSEWHEEL = H20A Private Declare Function SendMessage Lib user32 Alias SendMessageA (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long Private Declare Function GetScrollRange Lib user32 (ByVal hWnd As Long, ByVal nBar As Long, lpMinPos As Long, lpMaxPos As Long) As Long Private Const SB_HORZ = H0 Private Const SB_VERT = H1 Private Declare Function GetFocus Lib user32 () As Long Private Declare Function GetClassName Lib user32 Alias GetClassNameA (ByVal hWnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long 定义变量 Private lhWnd As Long, SubhWnd As Long Private FhWnd As Long, L As Long, clsName As String Public MSFG As MSFlexGrid 启动子类化，传入Form1.hWnd Public Sub Start_SubClass(ByVal hWnd As Long) lhWnd = hWnd SubhWnd = SetWindowLong(hWnd, GWL_WNDPROC, AddressOf SubClass) End Sub 结束子类化 Public Sub Exit_SubClass() Call SetWindowLong(lhWnd, GWL_WNDPROC, SubhWnd) End Sub 子类化函数 Public Function SubClass(ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long SubClass = CallWindowProc(SubhWnd, hWnd, Msg, wParam, lParam) If Msg = WM_MOUSEWHEEL Then 测试消息用 Form1.Print Hex(wParam) Call MoveMSFGWheel_A(wParam) 方法一 Call MoveMSFGWheel_B(wParam)