как при закрытии окна выполнить команду?

[zaf]

Как сделать если при закрытии окна выпонить команду?
Наприер
Text1.text = "Кто тебе сказал что оно закроется?"

[Amed]

События Form_Unload(), Form_QueryUnload()

[neic]

Вот! При закрытии окна выскакивает сообщение : "Кто тебе сказал что оно закроется?".

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

Private Sub Form_Unload(Cancel As Integer)
      Msgbox "Кто тебе сказал что оно закроется?",64,"Проверка"
End Sub


[Lumen]

Если для этих целей использовать событие QueryUnload, то можно ещё и отменить закрытие окна:
Например, отмена закрытия окна при нажатии на "крестике" в правом верхнем углу формы:

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

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If UnloadMode = 0 Then Cancel = 1
End Sub


Здесь параметр UnloadMode зависит от способа закрытия окна.

[alibek]

Закрытие можно отменить и в Form_Unload.

[zaf]

Закрытие можно отменить и в Form_Unload.

Да но если поставить кнопочку Выход с кодом END то нажав на него програма закроется просто и все

[alibek]

По End она закроется в любом случае.

[zaf]

По End она закроется в любом случае.

Ясно...