End Property

Case Else

Public Property Let Department (ByVal NewValue As String)

End Property

End Select

Case Else

Case 2

Private nDeptNum As Integer

Public Sum As Currency

Public Date As Date

Public Adress As String

Public Name As String

End Property

Public Property Let Department (ByVal vNewValue As String)

End Property

Процедуры свойств

Процедуры свойств более гибки, чем глобальные переменные, поскольку позволяют выпол­нить некоторый программный код при обращении к свойствам данного класса. Существует три типа процедур свойств.

• Property Get — функция, которая выполняется при считывании значения свойства.

• Property Let — подпрограмма, которая выполняется при сохранении значения в свойстве.

• Property Set — специальный вариант процедуры Property Let, в котором значение, передаваемое в подпрограмму, само является объектом.

Процедуры свойств создаются в окне кода модуля классов. Visual Basic автоматически создает шаблон процедуры некоторого свойства с помощью команды Add Procedure меню Tools. Для того, чтобы добавить свойство Department, необходимо набрать в поле Name диалогового окна Add Procedure слово Department и определить тип процедуры Property. При этом Visual Basic автоматически создаст шаблон для двух процедур: Property Let и Property Get. По умолчанию Visual Basic предполагает, что свойства имеют тип Variant. Свойство Department имеет тип String.

Public Property Get Department () As String

Замечание. Значение, возвращаемое функцией, имеет тот же тип, что и параметр, используемый при вызове процедуры Property Let.

Когда пользователь обращается к свойству Department, выполняется соответствующая про­цедура, определенная для этого свойства. Основная задача данной процедуры — возвратить зна­чение указанного свойства, которое хранится в некотором месте, известном только процедуре свойства. Например, для этого используется локальная переменная nDeptNum.

Public Property Get Department() As String

Select Case nDeptNum
Case 1

Department = "Отдел маркетинга"

Department = "Бухгалтерия"

Department = ""

Select Case Trim$(UCase$(NewValue))

Case "ОТДЕЛ МАРКЕТИНГА"

nDeptNum = 1

Case "БУХГАЛТЕРИЯ"

nDeptNum = 2

nDeptNum=0
End Select

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

В этом фрагменте для хранения текущего значения свойства, представляющего отдел, в котором числится служащий, использовалась локальная переменная целого типа. (Использование переменной как Public может случайно испортить содержащуюся в ней информацию.) Однако пользователь объекта всегда задает и получает строку. В реальной программе процедуры свойств могут делать со значением все, что угодно, включая его хранение в базе данных.

Замечание: чтобы свойство было доступным только для чтения, нужно удалить из окна кода объявление процедуры свойства Property Set или Property Let.

Процедура Property Get возвращает значение некоторого свойства объекта, а процедура Property Let присваивает свойству значение, полученное из вызывающей программы. Однако процедура Property Let не работает с объектами. Поэтому, если передаваемый пара­метр сам является объектом, необходимо использовать процедуру Property Set, как показано ниже:

Дата добавления: 2014-12-10