使MSHFlexGrid支持鼠标滚动

关注

原创最新推荐文章于 2026-07-15 12:13:09 发布 1.8k 阅读 AI 写同款· GEO 优化 ›

VB6 MsFlexGrid实现单元格直接编辑：TextBox覆盖方案详解在桌面应用开发中，数据表格控件是展示和编辑结构化信息的核心组件。其原理是通过网格化布局管理数据项，实现高效的数据可视化与交互。从技术价值看，原生控件往往功能有限，开发者需要扩展其能力以满足复杂业务需求，这在数据库前端、报表工具和配置界面等场景尤为常见。本文聚焦于VB6经典控件MsFlexGrid，针对其原生不支持单元格内编辑的痛点，深入剖析如何通过TextBox覆盖方案实现所见即所得的编辑体验，并详细讲解状态管理、焦点切换和事件处理等关键实现细节，为遗留系统维护和经典技术重构提供实用参考。阅读详情

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

'支持滚轮鼠标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 wParam As Long, ByVal lParam As Long) As Long
'支持滚轮的滚动
    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, GWL_WNDPROC, Oldwinproc
End Sub

收录于