Subclassing: Začínáme
Abychom spustili subclassing našeho okna a viděli zprávy, které nám budou Windows zasílat, tak si otevřete Form1 a do něj zapište následující kód:
Private
Sub Form_Load()
oldWindowProc = SetWindowLong(Me.hWnd, GWL_WNDPROC, _
AddressOf NewWindowProc)
End Sub
Private Sub Form_Unload(Cancel As Integer)
SetWindowLong Me.hWnd, GWL_WNDPROC, oldWindowProc
End Sub
Tak a nyní je vše připraveno pro první spuštění aplikace. Spusťte projekt a
do Debug okna se začnou zapisovat všechny zprávy, které Windows zasílají.
Zkuste si přesunout formulář, minimalizovat, maximalizovat atd.
Pro ukončení klikněte na "x" tlačítko ... neukončujte běh pomocí STOP!
Nebylo to funny ? :)))))) Bohužel to nebylo vůbec užitečné ....ok, přidáme si trochu kódu, aby nám to k něčemu bylo.