VBA嵌套类层级中默认属性调用编译报错原因解析

类模块代码 #

parent.cls #

Public Child as New ChildClass

ChildClass.cls #

Private m_internal As New Collection

Public Property Get Item(index As Integer) As Variant
    Attribute Item.VB_UserMemId = 0          ' 用于标记默认属性
    If IsObject(m_internal(Item)) = True Then
        Set Item = m_internal(index)
    Else
        Item = m_internal(index)
    End If
End Property

Public Property Let Item(index As Integer, val As Variant)
    m_internal(index) = val
End Property

Public Property Set Item(index As Integer, val As Object)
    Set m_internal(index) = val
End Property

测试代码 #

Dim p As Parent
Set p = New Parent

' 以下代码正常执行
Dim pChild As ChildClass
Set pChild = p.Child
pChild(2) = 2

' 此代码触发编译错误："参数数目错误或无效的属性赋值"
p.Child(2) = 2

错误原因解释 #

• 当使用直接对象变量（如pChild）调用默认属性时，VBA编译器明确知道变量的类型是ChildClass，能自动将pChild(2)解析为pChild.Item(2)，匹配Item属性的Let方法，因此可以正常执行。
• 而通过对象引用链（如p.Child(2)）访问时，VBA的解析逻辑会优先将(2)视为给Parent类的Child属性传递参数，但Parent.Child是一个无参数的Public对象成员（仅用于返回/实例化ChildClass对象），并不接受参数，因此编译器直接抛出编译错误。
• 要让p.Child(2)=2正常工作，必须显式指定默认属性名称，写成：

  p.Child.Item(2) = 2
  

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