Привет всем.
В программе у меня проблема с коллекцией Forms.
В программе используются mdi-формы, и одну форму может вызвать другая форма, при этом родителем открытой форме будет открывашая ее форма. если же форма открыта обычным способом, то родителем будет главная mdi-форма.
При выгрузке любой формы на событии _QueryUnload поставил код, который перебирает все формы из коллекции Forms и если родителем является закрываемая форма, то она выгружает и эту форму, т.е. "убирает за собой мусор".
Если форму загрузила не главная форма, то явно указывается ее родитель, иначе по умолчанию 0.
У всех форм есть public переменная lngParentFormhWnd, вот код к-ый стоит на QueryUnload у всех форм
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Dim TempForm As Form
'Close all childforms
For Each TempForm In Forms
If (TempForm.hWnd <> mdiMain.hWnd) Then
If (TempForm.lngParentFormhWnd = Me.hWnd) Then
Unload TempForm
End If
End If
Next
Set TempForm = Nothing
End Sub
Так вот, проблема следующая. Допустим есть три формы A,B,C.
1. Загружается форма A (Forms.Count=2 - главная mdi форма+форма A).
2. Затем из этой формы загружается форма B (соответственно родителем для формы B становится форма A). (Forms.Count=3 - главная mdi форма+форма A+форма B).
3. Далее форма B вызывает форму C (родитель форма B). (Forms.Count=4 - главная mdi форма+форма A+форма B+форма C)
4. При закрытии формы A, вызывается код на QueryUnload, который перебирает и соотвественно находит форму B, для которой родителем является и закрывает ее, обычным Unload.
5. И для формы B, тоже выполняется своя процедура QueryUnload, который тоже перебирает и находит форму C и выгружает эту форму.
6. При выполнении QueryUnload для формы C, никаких дочерних форм не находится и форма спокойно выгружается.
7. После выгрузки формы C. Forms.Count=3 - главная mdi-форма+форма A+форма B
7. Далее выгружается форма B. Forms.Count=3 - главная mdi-форма+форма A
8. Далее выгружается форма A.
И здесь после выгрузки в коде
1.
2.
3.
4.
5.
6.
7.
8.
9.
For Each TempForm In Forms
If (TempForm.hWnd <> mdiMain.hWnd) Then
If (TempForm.lngParentFormhWnd = Me.hWnd) Then
Unload TempForm
'XXXX- здесь уже все формы касающиеся формы A выгружены
End If
End If
Next
Set TempForm = Nothing
после выгрузки формы B, т.е. когда уже никаких форм нет (место где комментарий 'XXXX- ), цикл проходит еще раз и почему-то загружается форма C!!!!
Никак не пойму, или в этом цикле в коллекции Forms осталась ссылка на форму C?! И при попытке обратиться к этой ссылке загружается форма C.
Если да, то как обновить коллекцию? Requery, Refresh не работает
Или где ошибка?
Попробовал в каждой форме использовать
1.
Private WithEvents fParentForm As Form
И указывать Set'ом родительскую форму, и использовать код
1.
2.
3.
Private Sub fParentForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Unload Me
End Sub
т.е. при выгрузке родительской формы, выгружать себя. В таком случае при загрузке форм A,B,C последовательно. Выгружаются формы A и B. А событие fParentForm_QueryUnload для C не доходит или как не знаю, короче не срабатывает этот вариант.
