![]() |
![]() |
![]() |
![]() |
![]() |
![]() |
![]() |
![]() |
![]() |
![]() |
![]() |
![]() |
![]() |
![]() |
![]()
![]()
|
![]() |
Объектно-ориентированный подход к созданию программных средствОткрытые свойства позволяют реализовать лишь первую стратегию. Для реализации других требуются дополнительные возможности. Такие возможности дает использование специальных процедур-свойств: • Property Let позволяет установить новое значение свойства, выполняя операцию Write (присвоение). • Property Set дополняет предыдущую процедуру, позволяя присвоить объектной переменной (свойства) ссылка на определенный объект. • Property Get позволяет прочитать значение свойства, выполняя операцию Read. При реализации первой стратегии (Read - Write) каждая открытая свойство должно иметь пару процедур-свойств Get и Let (Set), которым дается одинаковое имя (это имя является и именем свойства). Для создания процедур-свойств можно использовать пустые заготовки, автоматически. При работе в IDE они вставляются в модуль командой Tools / Add Procedure, а в окне проекта документа MS Office - командой Insert / Procedure. После этого они заполняются нужным кодом. В следующем фрагменте кода модуля класса Клиент показано процедуры-свойства, при выполнении которых записывается (заглавные) и возвращается текстовое значение свойства Фамилия: Private msПризв As String Public Property Let Фамилия (ПризвищеКл As String) msПризв = Ucase (ПризвищеКл) End Property Public Property Get Фамилия () Фамилия = msПризв End Property При реализации стратегии Read, Write-once необходимо, чтобы значение свойства было записано только при первом обращении, а после этого - не менялось. В этом случае процедура-свойство Let (Set) должна выполнять проверку, не делалось присвоении свойства какого значения. Например: Public Property Let Фамилия (Значение As String) If msПризв = "" Then msПризв = Ucase (Значение) End Property Если свойство является переменной типа Variant, то проверить, было предоставлено (присвоено) какое значение этой переменной, можно с помощью функции IsEmpty: If IsEmpty (<имя переменной>) Then ..., которая возвращает значение True или False. Для проверки объектной переменной можно применить оператор Is и ключевое слово Nothing: If <имя объектной переменной> Is Nothing Then ... Поскольку объектные переменные до первого присвоения ссылка на объект имеют значение Nothing, то в этом случае результатом применения оператора Is будет значение True, иначе - False. При реализации стратегии Read-only или Write-only используется только одна из трех процедур: Get, Let и Set. Для Read-only - это Get, а для Write-only - это Let или Set. Последнее стратегия полностью закрывает доступ к свойству и процедуры-свойства вообще не записываются. Продолжение статьи: ч.1 Продолжение статьи: ч.2 Продолжение статьи: ч.3 Продолжение статьи: ч.4 Продолжение статьи: ч.5 Продолжение статьи: ч.6 Продолжение статьи: ч.7 Продолжение статьи: ч.8 Продолжение статьи: ч.9 Продолжение статьи: ч.10 Продолжение статьи: ч.11 Продолжение статьи: ч.12 Продолжение статьи: ч.13 Продолжение статьи: ч.14 Продолжение статьи: ч.15 Продолжение статьи: ч.16 Продолжение статьи: ч.17 Продолжение статьи: ч.18 Продолжение статьи: ч.19 Продолжение статьи: ч.20 Продолжение статьи: ч.21 Продолжение статьи: ч.22 Продолжение статьи: ч.23 Продолжение статьи: ч.24 Другие статьи по теме: - Способы описания алгоритмов- Средства быстрой разработки прикладных программ - Построение алгоритмов - Case-технология проектирования программного обеспечения информационных систем - Классификация case-средств ![]() |
![]() |
![]() |
![]()
![]()
![]() ![]() ![]() |
![]() |
![]() |
2006-2025 © SMTI.RU Главная страница | Связаться с нами |