Форма не реагирует на Unload

[kuhtiov]

Всем доброго времени суток!
В форме, после кода есть запись:
Unload Form1

После завершения в кода, форма не выгружается. Сперв подумал что в коде накосячил, а форма не выгружается, потому что не выполняется строка. Поменял Unload Form1 на end, форма закрылась. Поробовал вставить функцию в кнопку, эффект тот-же. Причем, происходит это только с одной формой. Всего их 2. Сперва было созданна первая, затем была сделана ее копия. Данная процедура во второй форме. Первая форма выгружается.

Собственно вопрос, в каких случаях может не работать функция Unload???

[Viper]

Сдается мне, что выгражаешь ты не то что хота, а ваще давай код

[kuhtiov]

Эмм... код в настоящий не со мной. Форму точно ту выгружаю. Причем такую проблему наблюдаю не в первый раз. Иожет еще у каго что было подобное. Вообще, может ли существовать какое либо условие в ворме, исходя из которого данная процедура не должна выполняться?

[kuhtiov]

ну что, никто не разу не сталкивался с таким?

[burik]

Все с нетерпением ждут кода

[kuhtiov]

Блин, только завтра

[Lumen]

Значит завтра и ответ будет. А вообще у меня такое тоже бывало, когда например с винсоком работал. Но интересно увидеть что у тебя за код.

[amer]

мне кажется дело в логике....
например сначала unload Form1, а следующая строка типа Form1.Show
потому как end - завершает все приложение и естественно все формы выгружаются....

[hCORe]

На всякий случай: все таймеры выключены? все элементы с таймаутом (Inet Control, Winsock) вырублены? все формы закрыты нафик?

[burik]

amer, очень сомневаюсь. Автор наверняка выполнил код в режиме прерываний прежде чем писать сюда, а это сразу выявило бы подобные ошибки.
По-моему гораздо более вероятно, что форма не выгружается из-за какого-либо контрола. (того же Winsock'а, упомянутого Lumen'ом)

[amer]

вот при таком коде
Private Sub Timer1_Timer()
Unload Me
Label1.Caption = "Фиг Вам!"
End Sub
форма скрывается а приложение висит в памяти....

[burik]

amer, да, а так:

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


Private Sub Timer1_Timer()
    Label1.Caption = "Фиг Вам!"
    Unload Me
End Sub


форма выгружается нормально. Это что получается? Форма выгружается, а код продолжает выполняться? Тогда форма атоматически загружается в память, но не отображается. Я всегда думал, что при вызове Unload Me форма выгружается и процедура завершается. Значит надо делать Exit Sub сразу после Unload Me.

[Хакер]

Я всегда думал, что при вызове Unload Me форма выгружается и процедура завершается.

Как ты себе это представляешь?

Значит надо делать Exit Sub сразу после Unload Me.

Т.е.
Unload Me: Exit Sub: End Sub вместо Unload Me: End Sub ?

[amer]

скорее надо делать

Timer1.Enabled=False

[burik]

Как ты себе это представляешь?

А что тут непонятного? Есть процедура в коде формы Form1. В процедуре встречается "Unload Me". По-моему, было бы вполне логично, если бы не только выгружалась Form1, но и завершалась эта процедура.

Т.е.
Unload Me: Exit Sub: End Sub вместо Unload Me: End Sub ?

Нет. Я имею ввиду случаи, когда Unload Me используется в середине процедуры:
..... операторы.... : Unload Me: Exit Sub: ..... операторы....: End Sub


P. S.
amer, вот ты попробуй сначала, а потом пиши. Не поможет.

[Хакер]

А что тут непонятного?

Всё непонятно:

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

Sub a
  MsgBox "До вызова B"
  b
  MsgBox "После вызова B"
End Sub


Sub b
     MsgBox "Я - Sub B"
     ' Я идиот! Убейте меня, кто-нибудь!????
End Sub


Что такого должно быть написано в Sub B, чтобы сообщение "После вызова В" не появлялась?

..... операторы.... : Unload Me: Exit Sub: ..... операторы....: End Sub

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

+
-
And
/
Mod
&
AddressOf
*
Like
Unload Me
Xor
^
Imp


Да?

[amer]

попробовал... не помогло....

[burik]

Хакер

Что такого должно быть написано в Sub B, чтобы сообщение "После вызова В" не появлялась?

Например End. Unload - процедура, выгружающая объект. Я думал что когда выгружается объект и при этом выполняется какой-либо код этого объекта - код автоматически завершается. Сейчас я понял что это не так.

Да?

Нет. Все время путаю
...код до... : Unload Me: ...код после... : End Sub

amer, попробуй сразу после Unload Me поставить Exit Sub. Это поможет

[amer]

burik
не нужно понимать слова буквально:

мне кажется дело в логике....
например сначала unload Form1, а следующая строка типа Form1.Show
потому как end - завершает все приложение и естественно все формы выгружаются....

может дело в:

вот при таком коде
Private Sub Timer1_Timer()
Unload Me
Label1.Caption = "Фиг Вам!"
End Sub
форма скрывается а приложение висит в памяти....

вобщем дело в логике...

[amer]

кстати:

Private Sub Timer1_Timer()
Unload Me
Label1.Caption = "тыры пыры не помогает!"
Exit Sub
End Sub

[amer]

а вот так:

Private Sub Timer1_Timer()
Unload Me
Exit Sub
Label1.Caption = "помогло!"
End Sub

[Хакер]

мдя.. пойду я лучше отсюда, ибо, видимо, бесполезно.

[keks-n]

После Unload Me может быть выполнен любой код, если нет обращений к форме и контролам на ней находящимся, в противном случае форма снова загрузится в память, при этом все свойства будут сброшены в установленные в дизайнере. Exit Sub прерывает выполнение процедуры и возвращает управление вызывающему, всё что после него не будет выполнено вообще.

[kuhtiov]

мне кажется дело в логике....
например сначала unload Form1, а следующая строка типа Form1.Show
потому как end - завершает все приложение и естественно все формы выгружаются....

Так точно, Form1.Show есть. Но где связь, поясните. Я думал что форма должна выгружаться в любом случаи. И еще, таймеров нет, контрол есть.

[Viper]

и что ты после form1.show хочешь? Ты же ее загружаешь этим кодом!

[burik]

kuhtiov, форма выгружается, но код продолжает выполняться и если там есть Form1.Show, то форма загрузится заново.

amer, прочитай последнюю строку моего поста. Только внимательно:

amer, попробуй сразу после Unload Me поставить Exit Sub. Это поможет

[amer]

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

[burik]

Да.. Драки не будет . Посему тему можно щитать закрытой

[kuhtiov]

и что ты после form1.show хочешь? Ты же ее загружаешь этим кодом!

Упс, запарился. Там не form1.show, а form2.show. Ну одна форма закрывается, другая открывается.

[burik]

kuhtiov, код давай