Solved: Class module for two-dimensional array
Hello,
I'm studying the basics for building classes to support an array. One dimensional is already working, but the second dimensions has me in trouble.
Class1 module:
Code:
Option Explicit
Private str As Variant
Private MaxNo As Integer
Public Property Get aName(Index As Integer) As Variant
If Index > UBound(str) Or Index < LBound(str) Then
aName = ""
Else
aName = str(Index)
End If
End Property
Public Property Get aMonth(Index As Integer) As Variant
If Index > UBound(str) Or Index < LBound(str) Then
aMonth = ""
Else
aMonth = str(Index)
End If
End Property
Public Property Get Lukum() As Integer
Lukum = MaxNo
End Property
Public Sub fill_array(NameList() As Variant)
Dim ArrayNo As Integer
str = NameList
ArrayNo = UBound(NameList) - LBound(NameList) + 1
MaxNo = ArrayNo
End Sub
Module:
Code:
Option Explicit
Function FillIt() As Class1
Dim testobj As Class1
Dim names() As Variant
Dim Month() As Variant
Set testobj = New Class1
names = Array("First", "Second", "Third")
Month = Array("Jan", "Feb", "March")
testobj.fill_array names
testobj.fill_array Month
Set FillIt = testobj
End Function
Sub test()
Dim MyTest As Class1
Dim ArrayNo As Integer
Set MyTest = FillIt
MsgBox "Arrayn size is " & MyTest.Lukum
For ArrayNo = 0 To MyTest.Lukum - 1
MsgBox "2nd array " & ArrayNo + 1 & " is " & MyTest.aMonth(ArrayNo)
Next
For ArrayNo = 0 To MyTest.Lukum - 1
MsgBox "2nd array " & ArrayNo + 1 & " is " & MyTest.aMonth(ArrayNo)
Next
End Sub
I'm trying to add the month also to the array, so that e.g. MyTest.aName(0) would be 'First' and MyTest.aMonth(0) 'Jan'. Now the code writes over the first value, what is should not do. Thank you for your help.
