使MSHFlexGrid支持鼠标滚动

最新推荐文章于 2023-05-11 15:05:27 发布

tomkai

最新推荐文章于 2023-05-11 15:05:27 发布

阅读量1.7k

点赞数 1

分类专栏： Visual Basic 文章标签： function user command

本文链接：https://blog.csdn.net/tomkai/article/details/72062

版权

本文提供了使MSHFlexGrid控件支持滚轮鼠标滚动的方法。通过编写公共模块中的API函数，结合WM_MOUSEWHEEL消息，实现滚轮上翻下页的功能。在表格控件的GotFocus和LostFocus事件中设置和恢复窗口过程，以启用和禁用滚轮滚动。

摘要由CSDN通过智能技术生成

将以下代码写到公共模块中

'支持滚轮鼠标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, _