Меню Visual Basic


Создание объектных переменных


Объектная переменная

может рассматриваться как объект, ссылку на который она содержит. С ее помощью возможно задание или возвращение свойств объекта или использование любых его методов.

Для создания объектной переменной:

1Опишите объектную переменную.

2Присвойте эту объектную переменную объекту.

Описание объектной переменной

Для описания объектной переменной применяется инструкция Dim или одна из других инструкций описания (Public, Private или Static). Переменная, которая ссылается на объект, должна иметь тип Variant, Object, или тип определенного объекта. Например, возможны следующие описания:

' Описывает MyObject с типом Variant.

Dim MyObject

' Описывает MyObject с типом Object.

Dim MyObject As Object

' Описывает MyObject с типом Font.

Dim MyObject As Font

Примечание. Если объектная переменная используется без предварительного описания, она по умолчанию приобретает тип даных Variant.

Имеется возможность описать объектную переменную с типом данных Object в том случае, если определенный объектный тип не известен до выполнения процедуры. Тип данных Object позволяет создать универсальную ссылку на любой объект.

Если определенный объектный тип известен, следует описать объектную переменную с этим объектным типом. Например, если используемое приложение содержит объектный тип Sample, возможно описание переменной для этого объекта с помощью одной из следующих инструкций:

Dim MyObject As Object' Описывает объект как универсальный.

Dim MyObject As Sample' Описывает объект только с типом Sample.

Описание определенных объектных типов обеспечивает автоматическую проверку типа данных, более быстрое выполнение и улучшает читабельность текста программы.

Присвоение объекта объектной переменной

Для присвоения объекта объектной переменной применяется инструкция Set. Имеется возможность присвоить объектное выражение или Nothing. Например допустимы следующие присвоения объектной переменной:

Set MyObject = YourObject' Присваивает ссылку на объект.

Set MyObject = Nothing' Удаляет ссылку на объект.




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



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