Выполнение программы с установкой свойств
Допускается создание процедур Property Let, Property Set и Property Get с одним и тем же именем. Таким образом создается группа связанных процедур, работающих совместно. Имя, данное процедуре Property, не может использоваться в качестве имени процедур Sub и Function, переменой или определяемого пользователем типа данных.
Инструкция Property Let позволяет создать процедуру, которая задает значение свойства. Примером может служить процедура Property, которая создает свойство инвертирования точечного рисунка в форме. Ниже представлен синтаксис вызова процедуры Property Let:
Form1.Inverted = True
Реальная работа по инвертированию точечного рисунка в форме выполняется в процедуре Property Let:
Private IsInverted As Boolean
Property Let Inverted(X As Boolean)
IsInverted = X
If IsInverted Then
:
(statements)
Else
(statements)
End If
End Property
Переменная уровня формы IsInverted содержит значение этого свойства. Если она описана как Private, пользователь может изменить ее только с помощью процедуры Property Let. Рекомендуется использовать имя, которое облегчает понимание того, что переменная использована для этого свойства.
Процедура Property Get свойства Inverted:
Property Get Inverted() As Boolean
Inverted = IsInverted
End Property
Процедуры-свойства упрощают выполнение программы одновременно с присвоением значения свойства. Они могут использоваться для выполнения следующих операций:
Определение значения свойства до того, как оно присвоено.
Присвоение свойства на основе нового значения.
