如何用类模块开发Access键盘快捷键执行功能区无格式粘贴

核心修正与补充说明 #

• 事件名称修正：类模块中WithEvents绑定的是Form对象，KeyDown事件名必须为Form_KeyDown，否则事件无法触发。
• 快捷键判断：添加Ctrl+V组合键的校验逻辑，确保仅在按下该组合键时执行自定义粘贴。
• 字段筛选：增加控件类型和数据类型判断，仅允许文本类字段（排除数字、货币等数值型字段）执行无格式粘贴。
• 无格式粘贴实现：完善纯文本提取逻辑，同时屏蔽默认粘贴行为，避免格式残留。

完整类模块代码（建议命名为clsKeyHandler） #

Option Compare Database
Option Explicit

Private WithEvents Form As Access.Form
Private mPresionarTecla As Boolean

Public Property Get PresionarTecla() As Boolean
    PresionarTecla = mPresionarTecla
End Property

Public Property Let PresionarTecla(ByVal vNewValue As Boolean)
    mPresionarTecla = vNewValue
End Property

Public Sub InitializeAutokeys(FName As Form)
    Set Form = FName
    mPresionarTecla = True
    ' 绑定窗体KeyDown事件到类模块处理过程
    FName.OnKeyDown = "[Event Procedure]"
End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    ' 判断是否按下Ctrl+V且功能启用
    If mPresionarTecla And Shift = acCtrlMask And KeyCode = vbKeyV Then
        Dim ctl As Control
        Set ctl = Screen.ActiveControl
        
        ' 仅处理文本框，且排除数值型字段
        If ctl.ControlType = acTextBox Then
            Select Case ctl.Properties("ControlSource").Field.Type
                ' 允许的文本类字段类型
                Case acText, acMemo, acHyperlink
                    rbPegarSinFormato ctl
                    KeyCode = 0 ' 取消默认Ctrl+V粘贴动作
                Case Else ' 数值型字段直接跳过
                    Exit Sub
            End Select
        End If
    End If
End Sub

' 无格式粘贴核心逻辑
Private Sub rbPegarSinFormato(ctl As Control)
    Dim clipboardText As String
    
    On Error Resume Next
    ' 从剪贴板提取纯文本
    clipboardText = CreateObject("htmlfile").ParentWindow.ClipboardData.GetData("text")
    On Error GoTo 0
    
    If clipboardText <> "" Then
        ' 保留光标位置的文本插入
        Dim selStart As Integer
        selStart = ctl.SelStart
        ctl.Value = Left(ctl.Value, selStart) & clipboardText & Mid(ctl.Value, selStart + ctl.SelLength + 1)
        ctl.SelStart = selStart + Len(clipboardText)
    End If
End Sub

窗体端调用步骤 #

1. 打开目标窗体的代码模块，声明模块级类实例：

Option Compare Database
Option Explicit

Private keyHandler As clsKeyHandler

2. 在窗体Open事件中初始化类：

Private Sub Form_Open(Cancel As Integer)
    Set keyHandler = New clsKeyHandler
    keyHandler.InitializeAutokeys Me
End Sub

3. 可选：在窗体Close事件中释放对象：

Private Sub Form_Close()
    Set keyHandler = Nothing
End Sub

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