Создание массива форм... Проверьте код, кому не трудно

[Wolfie]

Приветствую!
Есть некая форма forMsg с методом MsgWnd, который содержит Me.Show. Программа генерирует разные сообщения в ходе своей деятельности, и создает копии формы forMsg с разным текстом. Когда пользователь закрывает экземпляр формы, в нём вызывается Unload Me.

Я сделал сей код

Код: Выделить всё

Static NMID%

Dim NewMsg() As forMsg
ReDim NewMsg(NMID)
Set NewMsg(NMID) = New forMsg
       
NewMsg(NMID).MsgWnd Msg, Snd, "Message ID#" NMID & Chr$(32) & Time$

NMID = NMID + 1

Подскажите пожалуйста,

1. Все ли в нем корреткно?
2. Нужно ли обращать закрытые NMID в Nothing (не хотелось бы)

[alibek]

А есть ли вообще нужда хранить ссылки на экземпляры forMsg?
И если да, я бы использовал коллекцию, а не массив.
В массиве сбрасывать ссылку в Nothing было бы желательно, но можно и обойтись.

[Хакер]

2. Нужна. Форма, как и любой класс, не уничтожится, пока все ссылки, ссылающиеся на неё, не будут сброшены.

На форуме, в общем случае хранится две ссылки: в одноимённой переменной и в коллекции Forms. Из коллекции Forms ссылку удаляет фунция Unload, сбросинг одноимённой (или же "массивной" ссылки, как в этом случае) -- за тобой.

[Wolfie]

вопрос alibek'a очень уместен - не нужно, в том-то и дело, а я совершенно об этом не подумал (программирование в 5 утра приводит к клиническому переклину программиста) - в моем случае, как мне кажется, достаточно

Код: Выделить всё

Static NMID%
Dim NewMsg As New forMsg
NewMsg.MsgWnd Msg, Snd, "Message ID#" NMID & Chr$(32) & Time$
NMID = NMID + 1

- Т.к. после отображения экземпляра формы с сообщением, связь сним не требуется, и оно будет висеть на экране хоть после закрытия основного окна программы, т.е. пока пользователь не прикроет его, всвязи с этим вопрос - а где сделать тогда Set ... Nothing?

[HKEY_SUPER_MASHINE]

Да. В данном случае используем For Each...Next в событии Form_Unload главной формы.

Код: Выделить всё

For NewMsg Each Forms
   Set NewMsg=Nothing
Next

Тогда все экземпляры формы NewMsg со 100%-ной вероятностью будут уничтожены при выгрузке главной формы.

[alibek]

Тогда все экземпляры формы NewMsg со 100%-ной вероятностью будут уничтожены при выгрузке главной формы.

Ерунда. Код делает совсем другое.

[HKEY_SUPER_MASHINE]

А что тогда?

[Antonariy]

Код: Выделить всё

For NewMsg Each Forms 'инициализируется цикл
   Set NewMsg=Nothing 'ссылка из переменной NewMsg удаляется
Next 'ссылка в переменную копируется

[HKEY_SUPER_MASHINE]

И что? Я же написал то же самое (комментарии не в счёт)!

[Antonariy]

Смысл комментариев в том, что ты присваиваешь ссылку переменной, а потом удаляешь. И все. На сам объект это действо никакого влияния не оказывает.
Другими словами, этот код не делает ровным счетом ничего.

[Денис]

Рискну предположить, что

Код: Выделить всё

For NewMsg Each Forms 'инициализируется цикл
   Unload NewMsg
Next 'ссылка в переменную копируется

[Viper]

Денис, что это было?
З.Ы. Забавно, но ошибка кочует из поста в пост:

Код: Выделить всё

For NewMsg Each Forms

Должно быть

Код: Выделить всё

For Each NewMsg Forms

[Antonariy]

For Each NewMsg In Forms