Учебно-методические материалы для студентов кафедры АСОИУ

Учебные программы » Пакеты прикладных программ » Конспект лекций

Тема 2.6 Объектно-ориентированное программирование в VBA

Поддержка ООП в VBA

VBA представляет средства для использования имеющихся и создания новых объектов. Класс — это общее описание однородных по структуре объектов. Класс задает характеристики и поведение объектов. Классы в VBA оформляются в виде отдельных модулей.

Объявление пользовательских классов

Концептуально, создание класса начинается с этапа проектирования, где определяются свойства и методы, которыми должны обладать объекты нового класса.

Рассмотрим следующий пример: пусть требуется создать класс, описывающий студента. Объект такого класса может представлять в виде свойств такую информацию о студенте, как его имя, отчество и фамилию, дату и место рождения, контактную информацию, пол, паспортные данные и т.п. В качестве методов можно указать возможность редактирования информации, возможность полного или, наоборот, частичного отображения информации о студенте. Семантически такое описание может быть представлено, например, следующим образом:

// псевдокод описания объекта Студент Студент { 		Фамилия: строка 		Имя: строка 		Отчество: строка 		Дата_рождения: Дата 		Пол: символьный или логический 		Контактная_информация: строка } Студент.Полное_имя: строка, только чтение Студент.Полное_описание: строка, только чтение Студент.Править_описание (Нов_Фамилия, Нов_Имя, Нов_Отчество, Нов_Дата_рожд, _ 		Нов_Пол, Нов_Конт_Инф)

Как видно, такое описание очень напоминает описание пользовательского типа данных. Однако отличие объектного типа в том, что не только данные (Фамилия, Имя и пр.), но и код (Студент.Полное_имя и пр.) размещены совместно (инкапсулированы). Синтаксически, объявление класса в VBA выполняется в специализированной программной единице - модуле класса, куда помещается весь код создаваемого класса. Отметим, что в VBA не существует специальных языковых конструкций, используемых при описании класса (кроме описания свойств), поэтому порядок создания класса удобнее рассмотреть по шагам, а затем прокомментировать:

  1. В редакторе Visual Basic добавляем в проект новый модуль класса (меню "Вставка/Модуль класса"). Откроется окно нового модуля класса.
  2. В окне свойств (F4) задаем имя (Name) модуля (в нашем примере - CStudent). Оно же станет именем класса.
  3. В разделе описаний модуля объявляем закрытые члены класса - обычные переменные уровня модуля (Private), которые будут определять значения свойств.
  4. Инициализируем начальные значения свойств при помощи метода Class_Initialize (конструктора класса).
  5. Определяем свойства для чтения (Property Let), для записи (Property Let) и объектные свойства (Property Set).
  6. Создаем методы класса при помощи обычных процедур и функций.
  7. Допустимо также создание метода Class_Terminate (деструктора класса) для удаления объекта из памяти по завершении работы с ним.
По этому алгоритму был создан ранее спроектированный класс CStudent, представляющий описание объекта "студент". Полный код модуля с комментариями приведен в листинге 24.

Листинг 24. Модуль класса

' Закрытые члены класса, прямой доступ к ним невозможен - ' только через свойства Private fLastName As String	 ' фамилия Private fFirstName As String	' имя Private fMiddleName As String	' отчество Private fBirthDay As Date		' дата рождения Private fGender As String * 3	' пол Private fContacts As String	 ' адрес и телефон ' Конструктор класса. Вызывается в момент создания объектной переменной Private Sub Class_Initialize() 	fLastName = "Фамилия не указана" 	fFirstName = "Имя не указано" 	fMiddleName = "Отчество не указано" 	fContacts = "Адрес не указан" End Sub ' Свойства для чтения Public Property Get LastName() As String 	LastName = fLastName End Property Public Property Get FirstName() As String 	FirstName = fFirstName End Property Public Property Get MiddleName() As String 	MiddleName = fMiddleName End Property Public Property Get BirthDay() As Date 	BirthDay = fBirthDay End Property Public Property Get Gender() As String 	Gender = fGender End Property Public Property Get Contacts() As String 	Contacts = fContacts End Property ' Свойства для записи Public Property Let LastName(ByVal NewValue As String) 	fLastName = NewValue End Property Public Property Let FirstName(ByVal NewValue As String) 	fFirstName = NewValue End Property Public Property Let MiddleName(ByVal NewValue As String) 	fMiddleName = NewValue End Property Public Property Let BirthDay(ByVal NewValue As Date) 	fBirthDay = NewValue End Property Public Property Let Gender(ByVal NewValue As String) 	fGender = NewValue End Property Public Property Let Contacts(ByVal NewValue As String) 	fContacts = NewValue End Property ' Свойства ТОЛЬКО ДЛЯ ЧТЕНИЯ (нет парных Property Let) Public Property Get FullName() As String 	FullName = fLastName & " " & fFirstName & " " & fMiddleName End Property Public Property Get FullInfo() As String 	FullInfo = fLastName & Chr(9) & fFirstName & Chr(9) & fMiddleName & Chr(9) _ 				& CStr(fBirthDay) & Chr(9) & fGender & Chr(9) & fContacts End Property ' Метод для изменения свойств объекта. ' Все параметры объявлены как необязательные (Optional). ' Это позволяет изменять только необходимые поля класса. ' Изменять поля можно и через соответствующие свойства для записи (Property Let), ' этот метод приведен для примера Public Sub EditInfo(Optional LastName As String, Optional FirsName As String, _ 						Optional MiddleName As String, Optional BirthDay As Date, _ 						Optional Gender As String, Optional Contacts As String) 	fLastName = LastName 	fFirstName = FirstName 	fMiddleName = MiddleName 	fBirthDay = BirthDay 	fGender = Gender 	fContacts = Contacts End Sub

Дополнительные пояснения к коду листинга 24 в части синтаксиса:

  1. Синтаксис описания членов класса такой же, как и для обычных переменных. Использование Private позволяет ограничить доступ к членам класса из других модулей и, тем самым, обеспечить целостность данных.
  2. Конструктор Class_Initialize предназначен для задания начальных значений переменным - членам класса и выполнения других операций инициализации. Он вызывается автоматически - в момент создания экземпляра класса.
  3. Свойства класса объявляются с ключевым словом Property. При этом функция Property Get создает свойство для чтения, а процедура Property Let служит для записи значений в свойства базовых типов (в т.ч. массивов и пользовательских типов). Процедура Property Set служит для присваивания значений членам объектного типа (см. листинг 25). Общий синтаксис объявления свойств:
    ' для чтения [Public | Private] [Static] Property Get <имяФункции> [(<списокАргументов>)] [As <тип>] 	<операторы> 	имяФункции = возвращаемое значение 	[Exit Property] 	<операторы> 	имяФункции = возвращаемое значение End Property ' для записи [Public | Private] [Static] Property Let <имяПроцедуры> [(<списокАргументов>)] 	<операторы> 	[Exit Property] 	<операторы> End Property ' для работы с объектными членами класса [Public | Private] [Static] Property Set <имяПроцедуры> [(<списокАргументов>)] 	<операторы> 	[Exit Property] 	<операторы> End Property
  4. Методы класса - это обычные процедуры и функции VBA, которые объявляются в модуле класса и не могут быть использованы самостоятельно.
VBA поддерживает один из основных принципов ООП, наследование, косвенным путем - через встраивание объектов. Т.е. нет прямой возможности создавать классы-потомки на основе ранее созданных классов, но можно объявлять членами класса переменные объектных типов. Пример встраивания приведен в листинге 31, где на основе классов CStudent (Студент) и CFaculty (Факультет) создается класс CGroup, описывающий учебную группу указанного факультета.

Листинг 25. Встраивание

' ---------------------------------------------- ' Модуль класса CFaculty - объект "Факультет" (приведен фрагмент кода) ' ---------------------------------------------- Private fTitle As String ' Название факультета Public Property Get Title() As String 	Title = fTitle End Property Public Property Let Title(NewTitle As String) 	fTitle = NewTitle End Property ... ' ---------------------------------------------- ' Модуль класса CGroup - объект "Учебная группа" (приведен фрагмент кода) ' ---------------------------------------------- ' Встраивание объектных членов класса Private fFaculty As New CFaculty Dim fStudents() As New CStudent ... ' Использование Property Set для задания значения объектному члену Public Property Set Faculty(Title) 	Set fFaculty = Title End Property ' Чтение названия факультета Public Property Get Faculty() As String 	Faculty = fFaculty.Title End Property ... 

Создание объектных переменных

Поскольку класс - не более чем специфичный тип данных, то для его использования в программе требуются переменные, представляющие экземпляры этого класса. Такие переменные, называемые объектными, создаются одним из способов:
  1. явным указанием класса объекта;
  2. ссылкой на ранее созданный объект.
При любом способе создания объектная переменная представляет из себя 4-байтовую ссылку на адрес, где хранится объект. При объявлении такой переменной память для самого объекта может и не отводиться, поэтому может быть не определено и значение ссылки. Задание ссылки на объект, т.е. связывание объектной переменной с самим объектом выполняется двумя способами:
  1. При раннем связывании в момент объявления указывается класс объекта:
    Dim <Переменная> As <классОбъекта>

    Это позволяет еще на этапе трансляции проверять, допустимы ли те или иные операции над создаваемыми объектами.

  2. При позднем связывании переменная объявляется так:
    Dim <Переменная> As Object

    Это объявление говорит о том, что переменная является объектом (ссылкой), но ничего не сказано о классе этого объекта. Он выяснится только динамически при выполнении программы, когда <Переменная> будет связываться с только что созданным или существующим объектом того или иного класса. Поэтому такое связывание и называется поздним, или динамическим.

В целом же, объявление объектных переменных отличается от обычных только указанием ключевого слова New, с помощью которого создаваемому экземпляру класса (при раннем связывании) выделяется память и вызывается его конструктор. Объектные переменные могут быть объявлены и использованы в любых модулях (как в стандартных, так и модулях класса). Общий синтаксис объявления объектной переменной:
Private | Public | Dim <имяОбъектнойПеременной> As New <имяКласса>

Например:

Public Faculty As New CFaculty Private Groups(3) As New CGroup Dim stud As New CStudent

Использование раннего связывания имеет одно преимущество: явное указание класса позволяет получить доступ к его свойствам и методам уже на этапе разработки в VBE. Это выражается в том, что при введении имени объектной переменной появляется всплывающий список доступных операций над объектом.

Использование объектов

Для обращения к свойствам или методам экземпляра класса в VBA используется точечная нотация:
перем = <имяОбъектнойПеременной>.<Свойство>	 ' чтение свойства

Или:

<имяОбъектнойПеременной>.<Свойство> = значение ' запись свойства

Для обращения к объектным свойствам следует использовать ключевое слово Set. Вызов методов и передача параметров аналогичны работе с обычными процедурами и функциями. Примеры работы с экземплярами созданных классов - в листинге 26.

Листинг 26. Работа с объектами

' ------------------------------------------------------------------ ' Создание экземпляра класса и работа с его свойствами и методами ' ------------------------------------------------------------------ Sub sample30() 	Dim stud As New CStudent ' экземпляр класса CStudent 	' Обращения к свойствам объекта 	stud.FirstName = "Иван" 	stud.LastName = "Петров" 	stud.Contacts = "г.Омск, пр.Мира, 11, к.8. т/ф (3812) 65-96-11" End Sub 

Анатольев А.Г., 18.09.2012

Постоянный адрес этой страницы:

↑ В начало страницы