Шаг 28 - Продолжаем программировать с коллекциями

На тестировочную форму помещаем новые элементы.

gif/28_1.gif (2309 b)

Создаем код:

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

При добавлении мы сразу заполняли свойства добавленного элемента. Коллекции могут иметь внутри себя другие объекты коллекций. Вот так например:

gif/28_2.gif (1310 b)


Предыдущий Шаг | Следующий Шаг | Оглавление
Автор Каев Артем.