Problem with Array inside a Class Module

[scottyleics]

Hi,

I have tried for a couple of hours searching and trying to get this work. I am pretty sure its an easy problem as well but I just cannot seem to work it out.
Sorry if its trivial or has been covered before.

This my class module: (clsUsers)

Option Explicit

Public UserName As String
Public UserAge As Integer
Public UserAtrr() As Boolean
Public UserHeight As Integer

and a sub in a userform:
Dim UserInfos(100) As clsUsers ' global
UserInfos(a).UserName = txtUserName

etc etc.
I need to be able to have "Public UserAtrr() As Boolean" as an array with 15 elmemnts to be addressed like:
UserInfos(a).UserAttr(0) etc

Of course it doesnt allow this as you cannot have an array delcared like this.

Any ideas? I really am stuck.

 

[shg]

If you create a class, you access its properties via Let, Get, and Set procedures in the class, and implement its methods as Subs within the class.

Maybe just creating a user-defined data type would be more in line with what you're trying to do.

 

[RoryA]

If you do want a class, then you need something like this in the class:

Private mUserAttr(1 To 15) As Boolean

Public Property Get UserAttr(n As Long) As Boolean
    usersttr = mUserAttr(n)
End Property
Public Property Let UserAttr(n As Long, bln As Boolean)
    mUserAttr(n) = bln
End Property

 

[scottyleics]

Hah!

Knew it was easy! Thanks for the advice.

 

[shg]

We'll never know, rory ...