VBA跨项目引用含UserForm成员的接口报错如何免修改frm文件解决

方案1：改用Object类型晚绑定 #

直接修改外部项目中ICanShowTooltip接口的成员类型声明，将UFTooltip替换为Object，绕开编译阶段的公共类型校验：

' 外部项目 ICanShowTooltip 接口代码
Public myTooltip As Object

• 优势：修改量极小，不需要调整现有业务代码结构
• 劣势：丢失编译时类型检查，调用myTooltip的属性/方法拼写错误、参数不匹配时，只会在运行时报错

方案2：新增公共类包装UFTooltip（类型安全方案） #

在外部项目中新增一个公共可暴露的普通类，封装UFTooltip的所有公开能力，用这个类替换接口中UFTooltip的类型声明，完全规避私有UserForm的公共引用问题：

1. 新建普通类CTooltipWrapper，将Instancing属性设置为2 - PublicNotCreatable，编写如下代码：

' CTooltipWrapper 类代码
Private m_innerUF As UFTooltip

' 内部初始化绑定UserForm实例
Friend Sub Init(uf As UFTooltip)
    Set m_innerUF = uf
End Sub

' 按需代理UFTooltip的所有公开方法、属性
Public Sub ShowTip()
    m_innerUF.Show
End Sub

Public Property Let Content(value As String)
    m_innerUF.TipLabel.Caption = value
End Property

2. 修改ICanShowTooltip接口的成员声明：

Public myTooltip As CTooltipWrapper

3. 在外部项目新增工厂方法，对外提供CTooltipWrapper的实例创建入口：

' 外部项目公共模块代码
Public Function CreateTooltip() As CTooltipWrapper
    Dim uf As New UFTooltip
    Dim wrapper As New CTooltipWrapper
    wrapper.Init uf
    Set CreateTooltip = wrapper
End Function

• 优势：完全保留编译时类型检查，符合VB/A的标准开发规范，后期维护成本低
• 劣势：需要额外编写代理代码，新增的方法属性需要同步更新到包装类

选型建议 #

简单调用场景优先选方案1，项目复杂度高、对稳定性要求高的场景选方案2。

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