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


Пример 5.12


Public Sub Великие()

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

Dim Личности As New КоллекцияЛичностей

Dim ЭтоЛичность As Личность

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

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

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

Личности.AddPerson Адам, "Первый"

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

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

Личности.AddPerson Item:=Ной, after:=1

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Личности.PrintList

Debug.Print Личности.Количество

'Удаление элементов

Личности.Remove "Первый"

Личности.Remove 2

'Печать после удаления

Личности.PrintList

Debug.Print Личности.Количество

'Доступ к отдельным элементам по ключу

Set ЭтоЛичность = Личности.Item("Гений")

ЭтоЛичность.PrintPerson

Set ЭтоЛичность = Личности.Item(2)

ЭтоЛичность.PrintPerson

End Sub




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



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