Array in object vba

Question

I have 2 classes

Class1

Private pClass2Arr(10) as Class2

Public Property Get class2Arr() as Class2()
    class2Arr = pClass2Arr
End Property

Public Property Let class2Arr(mClass2Arr() as Class2)
    pClass2Arr = mClass2Arr
End Property

Class2

Private pStr1 as String
Private pStr2 as String

Public Property Get str1() as String
    str1 = pStr1
End Property

Public Property Let str1(mStr1 as String)
    pStr1 = mStr1
End Property

Public Property Get str2() as String
    str2 = pStr2
End Property

Public Property Let str2(mStr2 as String)
    pStr2 = mStr2
End Property

And Id' like to do

Dim a as Class1
Set a = New Class1
a.class2Arr(0).str1 = "test"
Debug.Print a.class2Arr(0).str1

And I have an error because get property on class2Arr have no arguments

Dmitry Pavliv · Accepted Answer · 2014-03-31 11:58:42Z

1

You just declared array, but not initialized it Private pClass2Arr(10) as Class2. I've added Private Sub Class_Initialize() event in Class1:

Private pClass2Arr(10) As Class2

Public Property Get class2Arr() As Class2()
    class2Arr = pClass2Arr
End Property

Public Property Let class2Arr(mClass2Arr() As Class2)
    pClass2Arr = mClass2Arr
End Property

Private Sub Class_Initialize()
    Dim i As Byte ' change Byte to Integer if your array contains more than 255 elements
    For i = LBound(pClass2Arr) To UBound(pClass2Arr)
        Set pClass2Arr(i) = New Class2
    Next
End Sub

and then you can use it like this:

Sub test()
    Dim a As Class1
    Set a = New Class1
    a.class2Arr()(0).str1 = "test"
    Debug.Print a.class2Arr()(0).str1
End Sub

answered Mar 31, 2014 at 11:58

Dmitry Pavliv

35.9k13 gold badges84 silver badges85 bronze badges

Sign up to request clarification or add additional context in comments.

3 Comments

Ajouve Over a year ago

Thanks for your help, I add the constructor but I have the same error

Dmitry Pavliv Over a year ago

have you changed a.class2Arr(0).str1 = "test" to a.class2Arr()(0).str1 = "test" as in my code?

Ajouve Over a year ago

I didn't notice this, it works, thanks for your help :)

Collectives™ on Stack Overflow

Array in object vba

1 Answer 1

3 Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

3 Comments

Your Answer

Sign up or log in

Post as a guest

Related