[RESOLVED] Redim array of objects

[winterslam]

I'm trying to create a dynamic array of objects

Private var() As New Entity



Private Sub Form_Load()
ReDim var(1 To 5) As Entity
End Sub

Compile error:


Can't change data types of array elements

[dee-u]

Remove the bold line...

Private var() As New Entity

[leinad31]

You're supposed to declare an array of references to objects (which can be Nothing) so don't instantiate with new, Dim var() As Entity. Set each array element with reference to class instance accordingly later on, Set var(0) = New Entity. When resizing with Redim just change upper and lower bounds, don't specify type which has already been declared (hence your error message).

[winterslam]

Private var() As Entity



Private Sub Form_Load()
ReDim var(1 To 5) As Entity
var(1).x = 5

End Sub

Run-time error '91':


Object varialbe or With block variable not set

[dee-u]

The following also works...

Private var() As New Entity

Private Sub Form_Load()
    ReDim var(1 To 5) As New Entity
End Sub

[winterslam]

The following also works...

Private var() As New Entity

Private Sub Form_Load()
    ReDim var(1 To 5) As New Entity
End Sub

thanks
it works

[dee-u]

Private var() As Entity



Private Sub Form_Load()
ReDim var(1 To 5) As Entity
var(1).x = 5

End Sub

Run-time error '91':


Object varialbe or With block variable not set

You have to instantiate them first before you could use them...

Private Sub Form_Load()
    Dim a As Long
    ReDim Var(1 To 5) As Entity
    
    For a = LBound(Var) To UBound(Var)
        Set Var(a) = New Entity
    Next
    Var(1).x = 5

End Sub

[leinad31]

Your misconception is that in creating an array declared as Entity you have an array of objects/instances. What you have initially are just place holders. You only have an array of references (memory locations) that are initially set to Nothing (is zero or doesn't reference a memory location which implies that instance of class has not yet been created).

I don't see the point in declaring dynamic array As New since array elements don't exist.