DataGrid支持鼠标滚轮滚动记录

概述http://www.mndsoft.com/blog/article.asp?id=901 在本站的VB源码《数据网格下拉列表框控件》中(链接地址：http://www.mndsoft.com/blog/article.asp?id=214)中，网友 taomaintao 提示支持滚轮鼠标，其实原本代码有已经有部分API代码意图支持鼠标滚轮，但可能作者后来没有加上。基于此，我找到一个解决办法（来

http://www.mndsoft.com/blog/article.asp?id=901

在本站的VB源码《数据网格下拉列表框控件》中(链接地址：http://www.mndsoft.com/blog/article.asp?id=214)中，网友 taomaintao 提示支持滚轮鼠标，其实原本代码有已经有部分API代码意图支持鼠标滚轮，但可能作者后来没有加上。基于此，我找到一个解决办法（来自网络），taomaintao 网友可以按照下面自己进行修改吧。 首先在DataGrID 的 【拆分】 属性中的【选取框样式】设置为 3，即整行高亮选择，然后加入如下代码就支持了，只要让鼠标的焦点在grID控件上，滚动鼠标滑轮，grID滚动条会自动滚动的。 如果需要更平滑的滚动以及自定义滚动方法，我还有个代码，到时发给你，你自己研究吧。 示例 *** 作方法： 将以下代码写到公共模块中 '支持滚轮鼠标API--------------------------------- Public Const GWL_WNDPROC = (-4) Public Const WM_COMMAND = &H111 Public Const WM_MbuttonDOWN = &H207 Public Const WM_MbuttonUP = &H208 Public Const WM_MOUSEWHEEL = &H20A Public olDWinproc 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 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 Function FlexScroll(ByVal hWnd As Long,ByVal wMsg As Long,ByVal lParam As Long) As Long '支持滚轮的滚动 Yu 2004-5-10 15:33 Select Case wMsg Case WM_MOUSEWHEEL Select Case wParam Case -7864320 '向下滚 SendKeys "{PGDN}" Case 7864320 '向上滚 SendKeys "{PGUP}" End Select End Select FlexScroll = CallWindowProc(olDWinproc,hWnd,wMsg,wParam,lParam) End Function '支持滚轮鼠标API--------------------------------- '将下列代码写到表格控件的GotFocus事件中 Private Sub 控件名称_GotFocus() olDWinproc = getwindowlong(Me.hWnd,GWL_WNDPROC) SetwindowLong Me.hWnd,GWL_WNDPROC,AddressOf FlexScroll End Sub '将下列代码写到表格控件的LostFocus事件中 Private Sub 控件名称_LostFocus() SetwindowLong Me.hWnd,olDWinproc End Sub

总结

以上是内存溢出为你收集整理的DataGrid支持鼠标滚轮滚动记录全部内容，希望文章能够帮你解决DataGrid支持鼠标滚轮滚动记录所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。