Объектно-ориентированный подход в программировании. Проектирование и реализация приложений в среде Microsof Office. Евсеева О.Н. - 52 стр.

UptoLike

Составители: 

1.3. Visual Basic for Applications 53
3
процедуры Property Get подобно описанию свойства, доступного только
для чтения. Использование всех трех процедур Property вместе полезно
только для переменных Variant, так как только они могут содержать как
объект, так и другую информацию о типах данных. В отличие от Property
Let процедура Property Set предназначена для работы с объектами.
' описание свойства
Public Property Let Description(ByVal vNew As Variant)
Description = vNew
End Property
' использование свойства
Object.Description = "текст описания свойства"
Текущее значение свойства обычно хранится в переменной уровня модуля,
поэтому процедура Property Get должна присвоить требуемому свойству
значение, равное значению этой переменной. Например, если имя файла
хранится в переменной m_filename, то процедура Property Get может
быть такой:
Public Property Get FileName() As Variant
FileName = m_filename
End Property
Обязательные аргументы описания процедур Property представлены в
следующей таблице:
Таблица 3.3-5.
Обязательные аргументы процедур
Property
Процедура Синтаксис описания
Property Get Property Get имя(1, …, n) As тип
Property Let Property Let имя(1, …, n, n+1)
Property Set Property Set имя(1, …, n, n+1)
Первый аргумент и все следующие вплоть до последнего (1, …, n) должны
иметь одно и то же имя и тип данных во всех одноименных процедурах
Property. Описание процедуры Property Get имеет на один аргумент
меньше, чем связанные описания Property Let и Property Set. Тип
данных процедуры Property Get должен быть тем же самым, что и тип
последнего аргумента (n+1) в связанных описаниях Property Let и
Property Set. Например, если описывается следующая процедура
Property Let, в описании Property Get должны использоваться
аргументы с тем же самым именем и типом данных, как аргументы в процедуре
Property Let.
Property Let Names(intX As Integer, varY As Variant)
Выполняемая инструкция.
End Property