Закрытие окна

[Malone32®]

Как сделать так, чтобы при нажатии на крестик в верхнем правом углу окна программа не завершалась, а, например, пряталась?

[A.A.Z.]

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

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

[HotKitten]

или просто Form_Unload юзай

[Александр80]

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Cancel = True 'Отменяем событие
Me.WindowState = 1 'Сворачиваем форму
End Sub

[tyomitch]

Оппа, а давайте я тоже отвечу

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

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If UnloadMode = vbFormControlMenu Then
    Cancel = 12345
    WindowState = vbMinimized
End If
End Sub


Кто ещё?

[Amed]

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

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const SC_MINIMIZE = &HF020&
Private Const WM_SYSCOMMAND = &H112

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If UnloadMode = vbFormControlMenu Then
    Cancel = Abs(CLng(True))
    SendMessage Me.hwnd, WM_SYSCOMMAND, SC_MINIMIZE, 0
End If
End Sub


:p

[HotKitten]

зачем столько, бедный юзверь запутается!!

[HotKitten]

а через диспетчер задач => приложения твою прогу всё равно отрубят

[Eduard]

а через диспетчер задач => приложения твою прогу всё равно отрубят

Пару деньков назад, я решил пофантазировать над тем как сделать такой момент в проге - неотрубаемую по средствам диспечеров всяких, вроде чтото получилось. Она короч запускает два процесса и они всё-время проверяет наличие друг друга, и если одной нехватает, то запускается резервная, и ещё одна которая опять проверяет наличие другой

[tyomitch]

Eduard, этой шутке минимум 30 лет, она даже в Jargon File есть.

[Костя]

а через диспетчер задач => приложения твою прогу всё равно отрубят

1. App.Taskvisible = 0
2.При компиляции даём проге имя какого-нидь системного процесса (напр. lsass.exe). Топором не вырубишь!

[alibek]

tyomitch, думаю тебе будет интересно
Такая штука применялась касперским, только забыл в какой версии, то ли третий, то ли четвертый.

[alibek]

Костя, если вырубать не из Task Manager'а, а кодом (или же другой утилитой), то вырубится запросто.