Основы офисного программирования и язык 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




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



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