Процедура Property Let
Процедура Property Let
используется для установки значения свойства. Если не нужно, чтобы другие пользователи устанавливали значение свойства, не следует включать процедуру Property Let. Ниже приведен пример создания процедуры Property Let для свойства Name объекта cUser:
Public Property Let Name (UserName as String)
' Принимается значение, передаваемое в UserName, и сохраняется
' в приватной переменной (mstxName).
mstrName = UserName
End Property
Рассмотрим данную процедуру подробнее. Во-первых, поскольку существует процедура Property Let, можно устанавливать свойство Name, так как данное свойство отображается вне модуля. Разработчик мог бы присвоить этому свойству следующее значение:
cUser.Name = "James"
Значение
James, передаваемое в процедуру свойства, сохраняется в переменной UserName.
Процедура Property Let принимает значение переменной UserName (James) и записывает его в приватной переменной модуля mstrName. Рассматриваемая процедура передает один параметр, хотя на самом деле процедуры свойств могут передавать много параметров. Значение свойства может быть получено только в том случае, когда существует процедура Property Get.
