Создание приватной переменной модуля

При использовании процедур свойств значение свойства хранится в приватной переменной модуля. Создатель класса определяет, отображается ли данное свойство вне модуля.

Ниже приведен пример создания приватной переменной на уровне модуля для свойств Name и Type объекта cUser.

Option Explicit

' Создание приватной переменной в разделе объявлений.

Private mstrName as String

Private mUserType as String

РИСУНОК 4. Установка и получение значений свойств объекта с помощью IntelliSense.

Процедура Property Let

Процедура Property Let используется для установки значения свойства. Если не нужно, чтобы другие пользователи устанавливали значение свойства, не следует включать процедуру Property Let. Ниже приведен пример создания процедуры Property Let для свойства Name объекта cUser:

Public Property Let Name (UserName as String)

' Принимается значение, передаваемое в UserName, и сохраняется

' в приватной переменной (mstxName).

mstrName = UserName