Как определит нажатие клавиши “свернуть”?

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

Помогите!!! Как определит нажатие клавиши “свернуть”.
Мне нужно перехватить это событие…

Мне кажется, что с помощью функции SendMessage …

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

Как определить, что нажата клавиша “свернуть”?

[A.A.Z.]

Можно по таймеру смотреть

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

Sub Timer1_Timer
Static Prev As Long
If Me.WindowState = 1 And Prev <> 1 Then MsgBox "А-а-а-а!!!"
Prev = Me.WindowState
End Sub

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

Спасибо вариант хороший и простой !!! А без таймера?

[A.A.Z.]

Можно по Form_Resize смотреть

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

Sub Form_Resize
Static Prev As Long
If Me.WindowState = 1 And Prev <> 1 Then MsgBox "А-а-а-а!!!"
Prev = Me.WindowState
End Sub

[A.A.Z.]

Признавайся, как успел сообщение отредактировать?

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

Признавайся, как успел сообщение отредактировать?

, просто забыл тебя поблагодарить ...

Спасибо

[A.A.Z.]

Пожалуйста