Главная страница Случайная страница
Разделы сайта
АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника
Практическая работа 13. Процедуры Property Let, Property Get
|
|
Инструкции Property Let используются для описания процедуры Property Let, предназначеной для изменения значения свойства (здесь цвет волос). Инструкции Property Get используются для описания процедуры, считывающей значение свойства. Процедура возвращает текущий цвет. Последовательность действий:
1. Создать: 2 командные кнопки, значения свойств Caption которых представлены на рис. 2.4(записи на кнопках 1 и 2 соответственно), · 2 поля меток для вывода возвращаемых значений, рис. 2.4 внизу и 2 поля меток с надписями (рис. 2.4 вверху),
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 = 2Private Sub Command1_Click()Rem задать цвет волос с помощью процедуры Property Let Rem (синтаксис: свойство = аргумент)hairColor = BLACKlbl1.Caption = CurrentColorEnd SubRem процедура изменяет значение свойства цвет волосProperty Let hairColor(ByVal Color As Variant) Select Case ColorCase RED: CurrentColor = 1Case GREEN: CurrentColor = 2Case Else: CurrentColor = 0End SelectEnd PropertyRem процедура возвращает текущий цвет волос Property Get hairColor() As Variant Select Case CurrentColor Case Is = 1: hairColor = 1Case Is = 2: hairColor = 2Case Is = 0: hairColor = 0End SelectEnd PropertyPrivate Sub Command2_Click()Rem определить цвет волос с помощью процедуры PropertyRem Get (синтаксис: переменная = свойствo)Dim Color As VariantColor = hairColorlbl2.Caption = ColorEnd Sub3. стартовать проект, сделать последовательно щелчки на командных кнопках, рис. 2.4
Рис. 2.4. Property Let, Property Get
|
|