Шаг 27 - Использование коллекций

Давайте в исходном классе Auto создадим два свойства: название и номер автомобиля.

gif/27_1.gif (4339 b)

И соберем COM DLL. Cоздадим проект для тестирования. Подключаем COM DLL. На форму помещаем две кнопки.

gif/27_2.gif (1176 b)

И код к ним.

Dim colauto As CollectionCollection

Private Sub Command1_Click()
colauto.Add
End Sub

Private Sub Command2_Click()
MsgBox Str(colauto.Count)
End Sub

Private Sub Form_Load()
Set colauto = New CollectionCollection
End Sub

Private Sub Form_Terminate()
Set colauto = Nothing
End Sub

При загрузке формы мы создаем коллекцию. При выгрузке удаляем ее. Ну, а по нажатию на кнопку добавляем элементы и удаляем.


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