3

我正在使用类似下面的代码。通过循环 DB 结果并从每一行创建一个视图模型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
4

1 回答 1

5

没有。这不是必需的。当你的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

于 2015-07-04T00:20:37.557 回答