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


Пример 7.1


Public Sub Assign5()

Dim Children(1 To 2) As Child

Dim Boy As Child, Girl As Child

'Создаем объекты

Set Children(1) = New Child

Set Children(2) = New Child

'Инициализируем их

Children(1).Age = 10

Children(1).Name = "Александр"

Children(2).Age = 7

Children(2).Name = "Мария"

Debug.Print "Имя: ", Children(1).Name, "Возраст: ", Children(1).Age

Debug.Print "Имя: ", Children(2).Name, "Возраст: ", Children(2).Age

'Утанавливаем дополнительные ссылки на существующие объекты

Set Boy = Children(1)

Set Girl = Children(2)

Boy.Name = "Саша"

Girl.Name = "Маша"

'Изменились сввойства объектов

Debug.Print "Имя: ", Children(1).Name, "Возраст: ", Children(1).Age

Debug.Print "Имя: ", Children(2).Name, "Возраст: ", Children(2).Age

'Удаляем одну из ссылок, но объект остается

Set Children(1) = Nothing

Set Children(2) = Nothing

Debug.Print "Имя: ", Boy.Name, "Возраст: ", Boy.Age

Debug.Print "Имя: ", Girl.Name, "Возраст: ", Girl.Age

End Sub




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



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