Основы офисного программирования и язык VBA


Пример 5.9


Public Sub Collection()

'Создание и работа с коллекцией личностей

Dim Личности As New Collection

'Работа с коллекцией, как со списком

Dim Адам As New Личность

Адам.InitPerson "Адам", "Первый Человек", #1/1/100#

Личности.Add Адам

Dim Ной As New Личность

Ной.InitPerson "Ной", "Праведник", #1/1/100#

Личности.Add Ной

'Работа с коллекцией, как с динамическим массивом

Dim Шекспир As New Личность

Шекспир.InitPerson "Вильям", "Шекспир", #4/23/1564#

Личности.Add Item:=Шекспир, After:=2

Dim Гомер As New Личность

Гомер.InitPerson "Гомер", "Великий Слепой", #1/1/100#

Личности.Add Item:=Гомер, Before:=3

Личности(4).SayWhoIs

'Работа с коллекцией, как со словарем

Dim Пушкин As New Личность

Пушкин.InitPerson "Александр", "Пушкин", #6/6/1799#

Личности.Add Item:=Пушкин, Key:="Гений"

Dim Булгаков As New Личность

Булгаков.InitPerson "Михаил", "Булгаков", #1/23/1891#

Личности.Add Item:=Булгаков, Key:="Мастер"

Debug.Print Личности("Гений").ВашаФамилия, " - это Гений!"

Debug.Print Личности("Мастер").ВашаФамилия, " - это Мастер!"

'Печать всего списка

Dim I As Byte

For I = 1 To Личности.Count

Личности(I).PrintPerson

Next I

End Sub




Начало  Назад  Вперед



Книжный магазин