admin 管理员组文章数量: 1086019
2024年3月12日发(作者：easeljs 教程)
让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
'启动子类化，传入
Public Sub Start_SubClass(ByVal hWnd As Long)
lhWnd = hWnd
SubhWnd = SetWindowLong(hWnd, GWL_WNDPROC, AddressOf SubClass)
End Sub
版权声明：本文标题：让MSflexgrid支持鼠标滚轮(VB6) 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://roclinux.cn/b/1710186927a561472.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。
发表评论