一个类包含一组对象。在终止包含类时，我是否需要将它们中的每一个都设置为空？

Question

我正在使用类似下面的代码。通过循环数据库结果并从每一行创建一个视图模型BasketItemViewModel，在Basket类的范围内创建了一个数组。

当我放弃Basket课程并将其设置为空时，我是否需要遍历数组BasketItemViewModel并将其中的每一个设置为空？

Class Basket

    public GuidId
    public BasketItemViewModels
    public TotalItems
    public TotalCost

    Public Property Get TotalCostFormatted()
        TotalCostFormatted = FormatCurrency(TotalCost,0)
    End Property



    public Default function Init(p_GuidId, p_TotalItems, p_TotalCost)
        GuidId = p_GuidId
        BasketItemViewModels = GetBasketItemViewModels()
        TotalItems = p_TotalItems
        TotalCost = p_TotalCost
        set Init = Me
    end function 

    public function GetBasketItemViewModels()
        dim vmArray()

        for each row in dbResults
            // ...get some values...
            set vmArray(i) = (new BasketItemViewModel) (price, quantity, productId)
        next           

        GetBasketItemViewModels = vmArray
    end function 
End Class

Answer 1

不。这不是必需的。当您的Basket对象被销毁时，该BasketItemViewModels数组随之而来。当它消失时，该数组持有的所有引用都被释放。

考虑以下示例：

Dim b
Set b = New Basket
Set b = Nothing
WScript.Echo "After"

Class Basket
    Public Eggs
    Sub Class_Initialize()
        Dim a(1)
        Set a(0) = New Egg
        Set a(1) = New Egg
        Eggs = a
    End Sub
End Class

Class Egg
    Sub Class_Terminate()
        WScript.Echo "Egg cracked."
    End Sub
End Class

这段代码产生的输出是：

鸡蛋裂了。
鸡蛋裂了。
后

证明Eggs当Basket对象被销毁时，数组被清空，并且它的引用被释放。