VBA编辑器F5运行与.Show打开UserForm的差异及问题排查

问题背景 #

我有一个名为form_Updaterow的UserForm，要实现点击文本框时在标签中显示附加信息的功能。在VBA编辑器中按F5运行表单时功能正常，但通过.Show方法（从其他表单或宏中打开）时完全失效。

现有实现逻辑 #

• 在form_Updaterow的UserForm_Initialize事件中创建TextBox集合；
• 通过类模块clsTextBox绑定文本框的MouseDown事件，调用TheInfoProvider过程；
• 在mod_Infos模块中通过activename函数识别当前激活控件，从数据字典表DatDic_DES中获取对应提示文本。

异常现象 #

• F5直接运行表单：点击文本框可正常触发提示信息；
• .Show方法打开表单：点击文本框会重复弹出初始化提示，且activename函数返回空值，导致提示功能失效。问题根源疑似ActiveControl识别异常。

两种表单启动方式的本质差异 #

1. VBA编辑器F5运行：表单作为独立对象启动，焦点直接锁定在表单本身，ActiveControl能精准指向当前交互的控件，因为表单是唯一的活动对象。
2. .Show方法调用：若从其他表单或宏中调用，当前活动对象可能仍为原表单或Excel窗口，导致ActiveControl无法正确指向form_Updaterow内的文本框；若调用时未指定模态参数，表单处于非模态状态，焦点易丢失，进一步加剧识别错误。

解决方法 #

方法1：直接传递控件对象（推荐） #

彻底摆脱对ActiveControl的依赖，在类模块事件中直接传递当前文本框对象：

1. 修改clsTextBox类模块代码：

Public WithEvents txtBox As MSForms.TextBox

Private Sub txtBox_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    TheInfoProvider txtBox
End Sub

2. 更新mod_Infos模块的TheInfoProvider过程：

Public Sub TheInfoProvider(targetCtrl As MSForms.TextBox)
    Dim ctrlName As String
    Dim ws As Worksheet
    ctrlName = targetCtrl.Name
    
    Set ws = ThisWorkbook.Worksheets("DatDic_DES")
    ' 从数据字典表匹配提示文本并赋值给标签
    form_Updaterow.lblInfo.Caption = ws.Range("A:A").Find(ctrlName, LookIn:=xlValues, LookAt:=xlWhole).Offset(0, 1).Value
End Sub

方法2：强制表单以模态显示 #

调用.Show时指定模态参数，确保表单独占焦点：

' 在调用表单的代码处修改
form_Updaterow.Show vbModal

此方法仅适用于简单场景，多表单交互时仍可能出现焦点问题。

方法3：修正activename函数的识别逻辑 #

若坚持使用ActiveControl，需明确指定目标表单对象：

Public Function activename() As String
    If Not form_Updaterow.ActiveControl Is Nothing Then
        activename = form_Updaterow.ActiveControl.Name
    Else
        activename = ""
    End If
End Function

避免依赖全局ActiveControl（可能指向Excel窗口或其他表单），直接引用form_Updaterow的ActiveControl属性。

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