vba - 调用自定义属性时出错

Question

我希望使用 vba 进行深度优先搜索算法，因此我定义了一个名为“node”的对象，它应该包含一个“parentNode”。

我尝试将parentNode定义为集合并使用以下内容

Public Property Let Parent(ByRef inputNode As Node)
    Set parentNode = New Collection
    hasParentNode = True
    parentNode.Add inputNode

End Property

Public Property Get Parent() As Node
    Parent = parentNode.Item(1)
End Property

但是当我调用node.Parent时，我得到了对象变量或With block 变量未设置

我知道这是由于“Parent = ParentNode.Item(1)”行造成的，执行此操作的正确方法应该是什么？我希望它返回 Ref 分配的 parnetNode

谢谢

Answer 1

由于 Node 是一个对象(我假设，我不知道 Node 实际上是什么类)，因此您的代码缺少 Set 关键字:

Public Property Get Parent() As Node
  Set Parent = parentNode.Item(1) 
End Property

获取对象变量或未设置 block 变量 通常有时意味着缺少Set关键字。