Выгрузка(удаление) экземляра класса

[tolikman]

Как грамотно удалять экземпляры класса?
Создал класс, экземпляры которого:
- при создании, попутно создают в родительском Frame'е (В форме, для наглядности) свой фрейм, а также label и CommandButton.
- по команде создают N-ное количество себе подобных и хранят в себе ссылки на эти подобные классы, становясь их "родителями" в котрых снова рисуются новые экземпляры.
т.е. - куча ссылок друг на друга.
Необходимо это для воспроизведения дерева решений, и выбора наиболее подходящего решения.
я изменяю все ссылки на экземпляры путем присвоения Nothing, так вроде написано в Help'е, однако не помогает, их "духи" все равно существуют, так как откликаются на тестовое событие.
Есть ли процедура полной выгрузки экземпляра?

Для наглядности посмотрите вложение, поймете о чем реч.
Решение логистической задачи, для универа... Двойным щелчком нажимайте на прямоугольное окошко и оно будет ветвиться на два таких же но с другим содержанием.

[viter.alex]

Толик, тебе было бы проще в чистом VB работать с этим безобразием.

[tolikman]

Знаю проще, но поздно, не думал что так глубоко зайдет. Была бы возможность - сделал в VB, мешает уже начатое.
Кстати можно unload форму, и все созданное в ней исчезнет. Но надеюсь на более лучший вариант.

[EducatedFool]

Была бы возможность - сделал в VB, мешает уже начатое

В принципе, ничего особо сложного нет. Код почти полностью совместим, вот только формы придётся перерисовывать с нуля...

Хотя, может, кто-нибудь знает способ (или спец. прогу) для конвертации VBA-формы в VB-форму? (имеется ввиду обработка файла .frm, чтобы этот файл начал понимать VB)

За день, в принципе, вполне реально портировать код из VBA в VB.
Но я не стал бы этого делать - редактировать код VBA можно на любом компьютере, где установлен Office (не надо устанавливать VB), да и запустить можно любую форму или процедуру (в отличие от предопределённой формы или Sub Main в VB) - именно поэтому я не вижу смыcла переносить код в VB... VBA в плане разработки намного удобнее.

я изменяю все ссылки на экземпляры путем присвоения Nothing

По идее, запись set obj=Nothing полностью уничтожает объект.


Несколько удивила строка Private childs() As New Matrix
среди свойств класса Matrix

То есть, при создании одного экземпляра класса Matrix автоматически создаётся ещё один дочерний экземпляр, и так далее до бесконечности?

Я бы описал класс Matrix примерно так:

Public Children As New Collection
Public Index as integer
' ... и т.д.

Private Sub Class_Initialize()
    If НадоСоздатьДочерниеЭкземпляры Then
        Dim child As Matrix
        For i = 1 To 5
            Set child = New Matrix
            child.Index = i    ' сразу прописываем нужные свойства дочернего объекта
            Children.Add child    ' добавляем объект в коллекцию
        Next
    End If
End Sub


Private Sub Class_Terminate()
    For Each child In Me.Children
        Set child = Nothing
    Next
End Sub

То есть, при создании экземпляра класса создавалась бы пустая коллекция Children, в которую по мере необходимости можно было бы добавлять новые дочерние экземпляры.
Причём, при создании нового экземпляра дочерние объекты создаются не автоматически, а лишь тогда, когда НадоСоздатьДочерниеЭкземпляры = TRUE
При уничтожении родительского объекта уничтожаются все его дочерние объекты.
Хотя, в принципе, процедура Class_Terminate не нужна - дочерние объекты уничтожатся сами при уничтожении родительского объекта.

я изменяю все ссылки на экземпляры путем присвоения Nothing, так вроде написано в Help'е, однако не помогает, их "духи" все равно существуют, так как откликаются на тестовое событие.

Если Вы под "духами" подразумеваете дочерние экземпляры объектов, то можно по событию класса Class_Terminate уничтожать все ссылки на все дочерние объекты (и удалять с формы созданные этими объектами элементы управления):

Private Sub Class_Terminate()
    For Each Child In Me.childs
        Child.controls.delete ' соответственно, надо заранее прописать такой метод
        Set Child = Nothing ' ну а теперь уничтожаем объект (необязательно, он и сам бы уничтожился)
    Next
End Sub

Данный код в Вашем проекте работать не будет (поскольку Вы объявили childs как Private childs() As New Matrix, но суть, надеюсь, понятна.
Я бы использовал для childs коллекции вместо массивов - элементами коллекции были бы экземпляры класса Matrix. И никаких ReDim-ов...

По поводу того, что

"духи" все равно существуют

напишите небольшой макрос (строк из 5 - 10), в котором бы создавался объект, уничтожался, а потом производилось бы общение с духами.
Тогда будет намного проще разобраться в причинах происходящего...

[tolikman]

EducatedFool, с Collections я незнакомился, самоучка... Спасибо, поэксперементирую) действительно будет удобнне...
1. в моем случае, я нашел более простой вариант, состояние формы важно для программы после открытия и закрытия, а на время открытия (userform_activate) форму в любом случае надо обнулять, я просто сначала выгружаю форму, а потом инициализирую

unload zad3_4
zad3_4.show

2. А на счет контролов класса, на сколько я понимаю когда создаем
set label = Parent.Controls.Add("Forms.Label.1" ),
новый созданный контрол не имеет никаких ссылок на клас, который спровоцировал его создание, а только на класс Parent, т.е. на userform, framе и т.д., который непосредственно его создал.
ведь ссылка не может быть "двухсторонней"? т.е. label однозначно ссылается на созданный контрол, кторый в свою очередь не имеет никаких ссылок на наш класс. следовательно сами контролы удалять не обязательно. Достаточно удалить экземпляр класса, точнее все ссылки на него (а их всего 3: ссылка у родителя, ссылка у ребенка(хотя ребенок удаляется раньше), ссылка у объекта Shpion, который её удаляет самым первым во всей этой очереди).
PS - я конечно буду удалять контролы, т.к. они не нужны, но понять особенности всего этого необходимо.

[EducatedFool]

Я бы сделал так:

В классе предусмотрел бы отдельную коллекцию для создаваемых элементов управления:

Public Children As New Collection
Public Controls As New Collection

Далее, каждый раз при создании нового контрола, я добавлял бы его в коллекцию соответствующего элемента класса:

set label = Parent.Controls.Add("Forms.Label.1")
ActiveMatrix.Controls.Add label

Потом, при уничтожении экземпляра класса Matrix, срабатывал бы следующий код:

Private Sub Class_Terminate()
    For Each Control In Me.Controls
        Control.delete ' или что-то вроде этого
    Next
End Sub

который удалял бы с формы все элементы управления, относящиеся к данному объекту.

EducatedFool, с Collections я незнакомился, самоучка...

А меня как будто в институте всему этому учили...

Советую как можно скорее изучить Collection - очень полезная штука...
А при работе с классами просто незаменимая.

[tolikman]

EducatedFull огромное спасибо за советы и полезную информацию!!! учту и воспользуюсь...