На тестировочную форму помещаем новые элементы.
Создаем код:
Dim colauto As CollectionCollection Private Sub Command1_Click() ' добавляем элемент colauto.Add ' ссылка на объект Dim auto As ClassAuto ' получаем ссылку на объект Set auto = colauto.Item(colauto.Count()) ' заполняем свойства auto.NameAuto = Text1.Text auto.Nomer = Text2.Text End Sub Private Sub Command2_Click() MsgBox Str(colauto.Count) End Sub Private Sub Command3_Click() ' очистить список List1.Clear Dim auto As ClassAuto ' пройтись по колекции For Each auto In colauto ' поместить названия в список List1.AddItem auto.NameAuto Next End Sub Private Sub Form_Load() Set colauto = New CollectionCollection End Sub Private Sub Form_Terminate() Set colauto = Nothing End Sub
Мы использовали For Each для того, чтобы пробегаться по коллекции, т.к. это очень удобный способ.
For Each Обьект In коллекция Next
При добавлении мы сразу заполняли свойства добавленного элемента. Коллекции могут иметь внутри себя другие объекты коллекций. Вот так например: