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

Date: 2015-10-07; view: 363.

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

1. Создать: 2 командные кнопки, значения свойств Caption которых представлены на (записи на кнопках 1 и 2 соответственно), · 2 поля меток для вывода возвращаемых значений, внизу и 2 поля меток с надписями (вверху),

o Создать процедуры 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.Property Let, Property Get