Управление ходом выполнения программ. Примеры типовых алгоритмов

Процедуры Property

Процедура Property состоит из последовательности инструкций, позволяющих создавать свойства объектов и работать с ними. Существует 2 типа процедур Property, табл. 2.1

Синтаксис процедур:

[Public | Private] [Static] Property {Get | Let} имя [(список аргументов)] [As тип]
инструкция 1
.
инструкция к
End Property

Здесь

• Public - процедура доступна для всех процедур во всех модулях,
• Private - процедура доступна для других процедур только того модуля, в котором она описана,
• Static - значения локальных переменных процедуры сохраняются в промежутках времени между вызовами процедуры,
• имя - имя процедуры,
• список аргументов - список переменных (аргументов), передаваемых в процедуру (Let, Get)) при ее вызове.

Обычно процедуры свойств используются попарно.

Обязательные аргументы при описании процедур и синтаксис вызова процедур представлены в табл. 2.2 и табл. 2.3 соответственно.

Инструкции Property Let описывают текст программы, составляющей процедуру Property Let, которая присваивает значение свойству, аргументы могут передаваться ByRef и ByVal. Инструкции Property Get описывают текст программы, составляющей процедуру Property Get, считывающую значение свойства, аргументы могут передаваться ByRef и ByVal.

Упрощeнный синтаксис аргументов процедуры Property:

[ByVal | ByRef] имя_переменной [( )] [As тип]

Практическая работа 13. Процедуры Property Let, Property Get

Инструкции Property Let используются для описания процедуры Property Let, предназначеной для изменения значения свойства (здесь цвет волос). Инструкции Property Get используются для описания процедуры, считывающей значение свойства. Процедура возвращает текущий цвет. Последовательность действий:

1. Создать: 2 командные кнопки, значения свойств Caption которых представлены на рис. 2.4 (записи на кнопках 1 и 2 соответственно), · 2 поля меток для вывода возвращаемых значений, рис. 2.4, внизу и 2 поля меток с надписями (рис. 2.4, вверху),
   • Создать процедуры Property (см. выше), ввести имя процедуры - hairColor в поле Тип сделать щелчок на Property ОК выводятся инструкции Property Let, End Property и Property Get, End Property,
2. ввести код, данный ниже:

   (General) (Declarations)
   Dim CurrentColor As Integer 
   Const BLACK = 0, RED = 1, GREEN = 2
   
   Private Sub Command1_Click()
   Rem задать цвет волос с помощью процедуры Property Let 
   Rem (синтаксис: свойство = аргумент)
   hairColor = BLACK
   lbl1.Caption = CurrentColor
   End Sub
   
   Rem процедура изменяет значение свойства цвет волос
   Property Let hairColor(ByVal Color As Variant) 
   Select Case Color
   Case RED: CurrentColor = 1
   Case GREEN: CurrentColor = 2
   Case Else: CurrentColor = 0
   End Select
   End Property
   
   Rem процедура возвращает текущий цвет волос 
   Property Get hairColor() As Variant 
   Select Case CurrentColor 
   Case Is = 1: hairColor = 1
   Case Is = 2: hairColor = 2
   Case Is = 0: hairColor = 0
   End Select
   End Property
   
   Private Sub Command2_Click()
   Rem определить цвет волос с помощью процедуры Property
   Rem Get (синтаксис: переменная = свойствo)
   Dim Color As Variant
   Color = hairColor
   lbl2.Caption = Color
   End Sub
3. стартовать проект, сделать последовательно щелчки на командных кнопках, рис. 2.4.

Рис. 2.4. Property Let, Property Get