Как отловить восстановление окна?

[Teranas]

Как правильно отловить восстановление окна из свёрнутого состояния?
Чтобы на это событие код повесить.

[Mikle]

Встроенными средствами, без ухищрений, можно как-то так:

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

Option Explicit

Dim fMin As Boolean

Private Sub Form_Paint()
  If fMin Then
    MsgBox "Восстановлено"
    fMin = False
  End If
End Sub

Private Sub Timer1_Timer()
  If Me.WindowState = vbMinimized Then fMin = True
End Sub


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

[Хакер]

Mikle, есть два нюанса:

1. AutoRedraw должен быть отключен.
2. Метод не сработает, если после восстановления клиентская часть окна оказывается чем-то накрыта и ей нет нужды перерисовываться, например, как в случае с окном Блокнота на этом скриншоте

[Teranas]

Я как-то давно давно делал с помощью WinApi и таймера VB6,
но мне это показалось корявым решением,
вот и поинтересовался, может у кого есть более интересное решение,
возможно, с помощью хуков, или стандартными средствами VB6.

[The trick]

WM_SYSCOMMAND / WM_SIZE