Collections and Userforms

[jaybee3]

Hi All,

I have a module that is trying to store classes in a collection based off selections in a userform and I'm a little stuck. For illustrative purposes I've simplified it.

MainTest is my main module

Sub MainTest()

Dim colTest As New Collection
    fTest.Show

   ..Does stuff with the elements in the collection..
 
End Sub

fTest is the userform (that contains a text box (tbName) and and two command buttons (cbRun and cbClose))

Private Sub cbRun_Click()
    Dim cPerson as New cTest
    cPerson.Name = fTest.tbName.value
    colTest.add cPerson
End Sub

Private Sub cbClose_Click()
   fTest.hide
End Sub

cTest is the class

Private pName As String

Property Let Name(value As String)
    pName = value
End Property

Property Get Name() As String
    Name = pName
End Property

The problem I face is that the classes aren't added to the collection as it's not 'in' the userform. Can you pass the collection to the userform as I would a function? Or any other help would be greatly appreciated.

Thanks in advance.

 

[RoryA]

Yes - or you could simply use a public variable

Public colTest As Collection
Sub MainTest()
Set colTest = New Collection
    fTest.Show   ..Does stuff with the elements in the collection.. 
End Sub

 

[jaybee3]

That does the trick. Thanks

 

[Kyle123]

I'd prefer:

Sub MainTest()


Dim colTest As collection
Dim myForm As fTest
Set colTest = New collection
Set myForm = New fTest


colTest.Add "MyItem"


MsgBox colTest(1)


Set fTest.collection = colTest
fTest.Show


MsgBox colTest(2)
 
End Sub

userform:

Private p_collection As collection


Public Property Set collection(ByRef coll As collection)
    Set p_collection = coll
End Property




Private Sub UserForm_Click()
    p_collection.Add "another item"
End Sub

But it's horses for courses

 

[jaybee3]

Took me a couple of seconds to spot the ByRef...I really like it.

Also taught me something else too...I didn't know you could instance forms like that

Thanks a lot for your input on the alternative, Kyle, much appreciated