Интерфейсы

Уничтожение экземпляра класса

Достаточно редко предлагает класс среди своих методов метод удаления экземпляра класса. Это понятно, ведь получается, что должен работать метод уже уничтоженного (уже не существующего вместе со всеми своими свойствами и методами!) объекта.

Чаще удалять экземпляры класса (и добавлять) должна некоторая внешняя по отношению к классу программа. В нашем случае можно воспользоваться коллекцией Controls. Метод Add – добавление элементов, а метод Remove – удаление.

Параметр метода Remove – номер элемента коллекции. А как его определить? Рассмотрим способ запоминания в самом объекте, номера, с которым он входит в коллекцию. Для этого можно воспользоваться либо свойством tag, которое есть у всех элементов управления, либо завести соответствующее свойство в нашем классе.

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

Может лучше работать с именем? Имя – свойство объекта, поэтому его не надо нигде повторно запоминать! Имя вы можете даже сами генерировать, если Вас не устраивает имя по умолчанию.

Остановимся на имени, причем будем брать умалчиваемое имя.

Ниже описан пример. Итак, в классе с именем Class1:

Public WithEvents im As Image

Private Sub Class_Initialize()

Set Me.im = UserForm1.Controls.Add("Forms.Image.1")

End Sub

В обычном модуле с именем Module1:

Public ob As Class1

Sub игра()

UserForm1.CommandButton1.Caption = "начать"

UserForm1.Show

End Sub

В форме с именем UserForm1:

Private Sub CommandButton1_Click()

If Me.CommandButton1.Caption = " начать" Then

Me.CommandButton1.Caption = "остановить"

Set Module1.ob = New Class1

Else

Me.CommandButton1.Caption = " начать"

Module1.ob.im.Parent.Controls.Remove Module1.ob.im.Name

Set Module1.ob = Nothing

End If

End Sub

В приведенном примере обратите внимание на строчку в инициализации класса, в которой создается элемент на форме и одновременно устанавливается на него ссылка из экземпляра класса. В строчках модуля – вызов формы. В программном коде формы: при щелчке по кнопке «начать» – создается экземпляр нашего класса, а при щелчке по кнопке «остановить» – удаляется элемент управления на форме и экземпляр нашего класса. Здесь важно понять, что от элемента управления можно перейти к форме, воспользовавшись методом Parent (объект – родитель), а затем снова вернуться к нему, но по другой ветке объектного дерева (Controls).

В приведенном примере всюду указан модуль как надобъект над объектной переменной ob. Это не случайно, хотя и не обязательно: по умолчанию свойство ob доступно во всем проекте. Здесь просто подчеркнут факт, что ob является свойством объекта Module1.

Интересное явление – обеспечение интерфейсов классов. Интерфейс – это список прототипов, каждый из которых содержит только описание свойств и методов. В теории класс может наследовать один или несколько интерфейсов. В конечном классе должен быть указан код для всех наследуемых Public методов.

В VBA для того чтобы указать, что данный класс обеспечивает интерфейс другого класса, надо в общей области написать оператор IMPLEMENTS имя класса. В стандартных модулях не допускается обеспечение интерфейсов. Важно: VB не поддерживает наследование классов, а только интерфейсов.

Дата добавления: 2013-12-12