Array of Class Module Elements

[vthokienj]

I am looking to store instantiated class module objects into an array. This seems as if it should be simple but I have had no luck.

So if I had a class module called classPerson:

Public name As String
Public age As Integer

In the macro:

    Dim person As classPerson
    Set person = New classPerson
    person.name = personsname
    person.age = 10

    'store the person into an array
    Dim personArray(1 To 10) As classPerson
    Set personArray = New classPerson
    
    personArray(1) = personArray

This and variations of this without the Set either do not compile or crash. How is this type of thing handled in VBA?

Thanks

 

[RoryA]

The last line should be:

Set personArray(1) = person

and remove this line:

Set personArray = New classPerson

 

[vthokienj]

Thank you for the fast reply.

What is the secret in then retrieving the class from the array, as this doesn't work:

    ' now retrieve the first person from the array
    Dim personRetreivedFromArray As classPerson
    Set personRetreivedFromArray = New classPerson
    personRetreivedFromArray = personArray(1)

Thanks again

 

[RoryA]

Simply:

' now retrieve the first person from the array
    Dim personRetreivedFromArray As classPerson
    Set personRetreivedFromArray = personArray(1)

 

[vthokienj]

Thanks again, this has helped greatly

 

[vthokienj]

Continuing with this code, how do you specify an array as a member variable of a class. In this case, the array will hold instantiated class modules:

classPerson:

Public name As String
Public age As Integer
Public carsOwned(1 To 10) As classCar

classCar:

Public vehicleMake As String
Public vehicleModel As String
Public vehicleYear As Integer

So each person will contain up to 10 classCar elements. This code doesn't compile, which is probably obvious to most of you.

Thanks

 

[RoryA]

Make the array private and use properties/methods to access it.