調用自定義屬性時出現錯誤

Question

我正在尋找做深度優先使用vba搜索算法，所以我已經定義了一個名爲「節點」，應該包含「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我得到了Object variable or With block variable not set

我知道，是由於線「父= parentNode。項目（1）「這應該是什麼樣的正確方法？我希望它返回由編號分配

感謝

Answer 1

的parnetNode由於節點是一個對象（我假設，我不知道是什麼類Node實際上是），你的代碼缺少Set關鍵字：

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

獲取Object variable or With block variable not set通常有時表示缺少Set關鍵字。