MS Access 2010批量控件ForeColor聚焦变色实现方案咨询

嘿，你说的这个场景太常见了，一个个写GotFocus事件确实要命！DirectCast是.NET框架里的语法，咱Access 2010用的VBA根本用不上它，不过有个更适合VBA的批量处理方法——用类模块统一绑定控件事件，几步就能搞定所有文本框和组合框的焦点变色需求。

步骤1：创建类模块 #

首先在Access里新建一个类模块（点击「创建」选项卡→「类模块」），把它命名为clsControlFocus（名字要记好，后面要用到），然后粘贴下面的代码：

Option Explicit
' 声明带事件的控件变量
Private WithEvents m_ctrl As Control

' 给类赋值控件的属性
Public Property Set Control(ByVal ctrl As Control)
    Set m_ctrl = ctrl
End Property

' 控件获得焦点时触发的事件
Private Sub m_ctrl_GotFocus()
    m_ctrl.ForeColor = vbBlack
End Sub

' 可选：失去焦点时还原灰色（如果需要的话）
Private Sub m_ctrl_LostFocus()
    m_ctrl.ForeColor = 11250603
End Sub

步骤2：在表单模块里绑定所有控件 #

打开你的表单的代码模块（右键表单→「设计视图」→右键表单空白处→「代码」），粘贴下面的代码：

Option Explicit
' 声明一个集合来保存类实例，防止被垃圾回收销毁
Private colFocusControls As Collection

Private Sub Form_Load()
    Dim ctrl As Control
    Dim objCtrlHandler As clsControlFocus
    
    ' 初始化集合
    Set colFocusControls = New Collection
    
    ' 遍历表单上的所有控件
    For Each ctrl In Me.Controls
        ' 只处理文本框和组合框
        If TypeOf ctrl Is TextBox Or TypeOf ctrl Is ComboBox Then
            ' 加载时先设为灰色
            ctrl.ForeColor = 11250603
            ' 创建类实例并绑定控件
            Set objCtrlHandler = New clsControlFocus
            Set objCtrlHandler.Control = ctrl
            ' 把实例加入集合保存
            colFocusControls.Add objCtrlHandler
        End If
    Next ctrl
End Sub

为什么这个方法好用？ #

• 不用给每个控件单独写GotFocus事件，一次遍历就绑定所有目标控件
• Access 2010完全支持这个方案，兼容性拉满
• 后续如果要修改变色逻辑，只需要改类模块里的代码就行，不用一个个改控件事件
• 集合colFocusControls是模块级私有变量，能保证类实例不会被Access的垃圾回收机制销毁，事件能一直生效

额外提示 #

如果你的表单里还有其他需要处理的控件类型（比如列表框），只需要在TypeOf判断里加上Or TypeOf ctrl Is ListBox就行，非常灵活。

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