Kontakt
DSVGO
Private Sub Form_Load() Set Msg = New MsgHook 'SubClassing initialisieren Msg.Hook Me.hWnd, WM_ACTIVATEAPP, WM_MOVING End SubVor Abarbeitung der betreffenden Nachricht durch den ursprünglichen Empfänger, soll mir Bescheid gegeben werden, etwa so:
Private Sub Msg_Before(uMsg As Long, wParam As Long, _ lParam As Long, retVal As Long) Beep 'oder was sinnvolles... ;-) End SubWenn ich uMsg=0 setze, soll die Nachricht gar nicht an den ursprünglichen Empfänger weitergeleitet werden! Ebenso möchte ich auch nach Abarbeitung einer Nachricht informiert werden:
Private Sub Msg_After(uMsg As Long, wParam As Long, _ lParam As Long) 'irgendwas... End SubDas Objekt, was für mich die ganze Arbeit mit dem SubClassing erledigt, sollte möglichst einfach deklariert werden können:
Private WithEvents Msg As MsgHook 'SubClassing deklarierenUnd natürlich sollte alles beliebig oft und sicher verwendbar sein.
© Jost Schwider, 29.04.2000-30.04.2000 - http://vb-tec.de/subclas4.htm