Научите выгружать форму

[kminas]

Не могу выгрузить форму из памяти!

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

Unload frmPh
Set frmPh = Nothing

пока тестирую программу - выгружается, а, после компилляции (exe-шник), - нет. Подскажите начинающему!?

[alibek]

Обычно хватает Unload Form1.
Если хочется эстетики, то можно сделать так:

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

Dim frm As Form
...
Set frm = New frmSettings
Load frm
...
frm.Show vbModal
...
Unload frm
Set frm = Nothing

Если форма при этом не выгружается, значит на ней есть несброшенные перекрестные ссылки, активные таймеры или другие недоработки.

[Kovu]

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

Dim hMem as Long
hMem=GetModuleHandle("gdi32.dll")
FreeLibrary hMem


Гарантировано выгружает форму

[kminas]

Если форма при этом не выгружается, значит на ней есть несброшенные перекрестные ссылки, активные таймеры или другие недоработки.

А что такое активный таймер. Первый раз поставил таймер и сейчас не знаю, может быть он активный?

[VVitafresh]

Если

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

Timer1.Enabled=True

значит таймер активный.

[kminas]

Спасибо VVitafresh, у меня и так True, спасибо Kovu, только Басик ругается на

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

GetModuleHandle

хочет какой-то Sub или Function. Я ее поставил в

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

Private Sub Form_Unload(Cancel As Integer)

[alibek]

ROTFML

[alibek]

(вытирая слезы) Kovu, ты ведь понимаешь, что за твой совет тебе полагается замечание? Пусть даже и устное

[Kovu]

alibek
ROTFML -M=madly?
Приму к сведению =-)
kminas
Ставишь перед выгрузкой Timer1.Enabled=False
К тому что я написал: это вариант для самых экстремалов =-), декларации функций если так хочется опробовать есть в апивьевере

[kminas]

Kovu Поставил енебле фальш, но, все одно работает, блин, голубчик!

[Kovu]

kminas
Покажи код весь, т.к. если форма не выгружается, значит какой-то участок кода продолжает выполняться. Ну и если уж код мегасекретный есть не слишком хороший выход - End

[kminas]

Kovu
Не могу весь код: это телефонный справочник предприятия

[zaf]

Unload Me
Form1.Show

Удаляет текущую форму и загружает вместо нее новую!

[kminas]

Спасибо всем! НАШЁЛ!
Мне на форуме SQL подсказали:

проверь нет ли ссылок на форму или на контрол формы в других модулях при открытии проэкта и при закрытии

Проверил. Клавишей F8. И понял, что та процедура, где происходит выгрузка формы frmInfo

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

Private Sub Form_Unload(Cancel As Integer)

не задействована. Тогда я переставил код выгрузки этой формы в процедуру выгрузки frmPh

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

Unload frmInfo
    Set frmInfo = Nothing
    Unload frmPh
    Unload Me
    Set frmPh = Nothing

И все заработало, т.е. выгружается!