时间戳

首页 > 解决方案 > ReDim 后初始化数组

arrays - ReDim 后初始化数组

问题描述

有一个更好的方法吗？我不需要保留数组中的数据。

ReDim Test(4)
For i = 0 to Test.Count()-1
    Test(i) = New MyObject
Next

标签： arraysvb.netinitialization

解决方案

如果您如下所示填充数组，ReDim则不需要。

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Dim Test1() As Integer
    Test1 = {0, 1, 2, 3}
    For Each i In Test1
        Debug.Print(i.ToString)
    Next
    Dim Test2() As Coffee
    'I have a Coffee class with a parameterized constructor
    Test2 = {New Coffee("Folgers", 0), New Coffee("Pete's", 1), New Coffee("Tully's", 2), New Coffee("Green Mountain", 3)}
    For Each c In Test2
        Debug.Print(c.Name)
    Next
End Sub

推荐阅读