Контролы отъедают память.

[Antonariy]

Сделал несколько контролов и оформил в отдельный ocx. Стал замечать, что открытие форм с большим количеством оных стало потихоньку съедать память. Как с этим бороться?

[uhm]

Что ты имеешь в виду под "съедать"? То, что при открытии формы у тебя уменьшается объем свободной памяти, или то, что после закрытия формы он у тебя обратно не увеличивается?

[Antonariy]

Второе, естетственно.

[uhm]

Эт-та хорошо, что второе.
Дальше, видимо, придется рассказывать, чем занимаются твои контролы. Я не специалист в области работы с памятью, но краем глаза слышал, что, мол, в VB проблемы с памятью решаются самим VB, а не программистом. Интересно было бы узнать, действительно ли это так

[Antonariy]

Контролы - кнопки, текстбоксы, комбобоксы, фреймы. Один из них приаттачен.

[Antonariy]

Контролы не содержат классов или объектных ссылок, только немного графики.

Никаких идей?

[SHURUP]

Контролы не содержат классов или объектных ссылок, только немного графики.

А по личному таймеру на каждую кнопку? Каждый контрол имеет Таймер, Клипер, Лейбл и Шейп (Без двух последних - обойтись-раз плюнуть).
А насчет таймеров: Если не хочешь использовать Хуки - то попробуй обойтись одним таймером для всех кнопок (общим). Если надо - то могу поделиться примерчиком.

[Antonariy]

В одном вопросе разобрался, возник новый =/
Хотя, ошибки о нехватке памяти возникали в осх, причина не он, а пара юзерконтролов в самом экзешнике. Один из них содержит два других и на форме он является массивом. Они-то как раз содержат штук по пять объектных переменных, которые очищаются в UserControl_Terminate. Беда в том, что UserControl_Terminate срабатывает только после закрытия программы, а не формы. Причем в форме массиву делается принудительный анлоад.

[Amed]

Set Object = Nothing при закрытии форм

[Antonariy]

Какой Object? Если ты про объект самой формы, то так и делаю. Form_Unload срабатывает, в цикле делаю принудительно Unload массиву контролов, UserControl_Terminate молчит.

[Amed]

http://bbs.vbstreets.ru/viewtopic.php?t=17521

Тема на _этой же_ странице.

[Konst_One]

я кажется уже предлагал использовать принудительно вызов отдельного метода TerminateMe() при QueryUnload формы:

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

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)

Me.MyUserControl.TerminateMe

end sub

а в иетоде TerminateMe убивай все свои коллекции контролов и освобождай переменные.

[Antonariy]

Видимо так и придется делать.

[Antonariy]

http://support.microsoft.com/default.aspx?scid=kb;en-us;320106
Кажется это имеет отношение к проблеме.

[Sur]

Попробуй чистильщиков памяти
Private Declare Sub CoFreeUnusedLibraries Lib "ole32" ()
Private Declare Function SetProcessWorkingSetSize Lib "kernel32" (ByVal hProcess As Long, ByVal dwMinimumWorkingSetSize As Long, ByVal dwMaximumWorkingSetSize As Long) As Long