ОПП(Лекция5)[2014]
.pdf
Пример
Public Property Let числитель (z As Integer) x=z/nod(z,y)
y=y/nod(z,y) End Property
Public Property Let знаменатель (z As Integer) If z=0 Then
MsgBox “Ошибка! Знаменатель не может быть равен 0” Exit Property
Else ‘Сокращение дроби x=x/nod(z,y) y=y/nod(z,y)
End If
End Property
Пример:
Пусть в некотором модуле объявлен объект dr класса Drob и инициирован значением 1/1.
Изменение значений его свойств:
dr.числитель = 5 |
‘Результат dr=5/1 |
dr.знаменатель = 10 |
‘Результат dr= 1/2 |
Оператор Property Get
Осуществляет доступ к значению свойства.
[Public|Private] Property Get имя_свойства
([список_параметров])As тип_значения
[тело процедуры]
End Property
Описатели имя_свойства и список_параметров должны совпадать с соответствующими описателями процедуры Let.
Параметр тип_значения задает тип возвращаемого значения, который должен совпадать с типом параметра значение процедуры Let.
Оператор Get – функция.
Пример. Операторы Get для класса «Дробь»:
Public Property Get числитель () As Integer
числитель = x End Property
Public Property Get знаменатель () As Integer
знаменатель = y End Property
Пример:
Ch = dr.числитель Zn = dr.знаменатель
Оператор Property Set
Служит для объявления:
Имени свойства, значением которого является объект:
Процедуры, устанавливающей по входным параметрам ссылку на объект-значение.
[Public|Private] Property Set имя_свойства
([список_параметров,] ссылка)
[тело процедуры]
End Property
Пример:
Property Set Pen(P As Object) Set CurrentPen = P
End Property
Настройка модуля класса на обработку событий
Для настройки модуля класса на обработку событий необходимо:
Шаг 1. Объявить в модуле класса имя переменной, соответствующей имени объекта для события:
Public WithEvents имя-объектаAs указание_уровня
Возможные уровни:
WorkSheet
WorkBook
Application
и т.д.
Например:
Public With Events Book As WorkBook
Настройка модуля класса на обработку событий
2. Установить связь объекта для обработки с элементом (объектом), инициирующим события соответствующего уровня. Для этого в любом модуле проекта необходимо указать следующие коды:
Dim имя_экземпляраAs New имя_модуля_класса
Set имя_экземпляра.имя_объекта = выражение
имя_экземпляра - имя переменной,
выражение - значением выражения должен быть объект соответствующего уровня.
Например:
Dim X As New MyClass
Set X.Book = WorkBooks(“имя_книги”)
3. В модуле класса создать обработчик нужного события.