Access窗体Memo框鼠标滚轮滚动异常问题及解决需求

问题描述 #

我有一个名为NewStaff的Access窗体，其中包含一个Memo框。点击进入该框后，滚动鼠标滚轮会导致光标离开该字段，无法在Memo框的文本内滚动。我在窗体的MouseWheel事件中添加了如下代码，现在虽能通过滚轮滚动Memo框内容，但存在光标每次跳转3行、最终仍会离开字段的问题，请问如何实现光标逐行滚动且始终停留在Memo框内？

当前代码 #

Private Sub Form_MouseWheel(ByVal Page As Boolean, ByVal Count As Long)
         Dim i As Long
         Dim s As String
         If Me.ActiveControl.Name = "ُNewStaff" Then
             If Count > 0 Then
                 For i = 1 To Count
                     s = s & "{DOWN}"
                 Next i
             Else
                 For i = 1 To -Count
                     s = s & "{UP}"
                 Next i
             End If
             SendKeys s
         End If
 End Sub

解决方案 #

问题原因分析 #

1. 原代码未阻止窗体默认的滚轮行为，导致窗体自身滚动与Memo框滚动冲突，最终光标被带出字段。
2. 鼠标滚轮的Count参数通常一次滚动对应3或-3的步长值，原代码按步长循环发送按键指令，直接造成多行跳转，且未解决默认行为的干扰。

基础修复代码（逐行滚动+锁定光标） #

Private Sub Form_MouseWheel(ByVal Page As Boolean, ByVal Count As Long)
    ' 仅处理目标Memo框的滚轮事件
    If Me.ActiveControl.Name = "NewStaff" Then
        ' 取消窗体默认滚轮响应，彻底阻止光标离开字段
        DoCmd.CancelEvent
        
        ' 根据滚轮方向发送单行滚动指令
        If Count > 0 Then
            SendKeys "{DOWN}", True
        Else
            SendKeys "{UP}", True
        End If
    End If
End Sub

关键修改说明 #

• DoCmd.CancelEvent：这是核心修复点，直接取消窗体层面的默认滚轮行为，从根源上避免光标被带出Memo框。
• 移除循环逻辑：放弃按Count步长批量发送按键，改为每次滚轮滚动只处理一行，实现精准的逐行滚动效果。SendKeys的第二个参数True表示等待按键指令执行完成，避免指令堆积导致的异常。

进阶优化（支持连续滚动步长） #

如果需要匹配滚轮实际滚动的步长（比如一次滚轮滚动3行），可以保留循环但必须先执行CancelEvent：

Private Sub Form_MouseWheel(ByVal Page As Boolean, ByVal Count As Long)
    Dim i As Long
    If Me.ActiveControl.Name = "NewStaff" Then
        DoCmd.CancelEvent
        ' 按滚轮步长逐行滚动
        For i = 1 To Abs(Count)
            If Count > 0 Then
                SendKeys "{DOWN}", True
            Else
                SendKeys "{UP}", True
            End If
        Next i
    End If
End Sub

内容的提问来源于stack exchange，提问作者Kasra