Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Move Ereignis für Formulare
Autor: Hannes
Datum: 07.01.03 18:21
Hallo, ich habe ein problem bei der implementierung eines Move-Ereignisses für ein formular. wenn ich das mit subclassing in einem standardmodul mache, kann ich kein ereignis im modul generieren (ist nicht erlaubt). baue ich es in ein klassenmodul ein, kommt die fehlermeldung -ungültige verwendung des AddressOf operators-. also was nun ? wer weiß einen rat wie ich das machen kann ? Code im Modul modSubClassing: Option Explicit Private Const GWL_WNDPROC = (-4) 'Messagetypen: Private Const WM_ACTIVATEAPP = &H1C Private Const WM_ENTERSIZEMOVE = &H231 Private Const WM_EXITSIZEMOVE = &H232 Private Const WM_MOVING = &H216 Private Const WM_SIZING = &H214 Private PrevAddr As Long 'Ursprünglicher Empfänger Private Declare Function CallWindowProcA Lib "user32" (ByVal lpPrevWndFunc As Long, ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long Private Declare Function SetWindowLongA Lib "user32" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Public Sub DoSubClass(ByVal hWnd As Long) PrevAddr = SetWindowLongA(hWnd, GWL_WNDPROC, AddressOf TestWndProc) End Sub Public Sub UndoSubClass(ByVal hWnd As Long) SetWindowLongA hWnd, GWL_WNDPROC, PrevAddr End Sub Public Function TestWndProc(ByVal hWnd As Long, ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long 'Nachricht weiterleiten: TestWndProc = CallWindowProcA(PrevAddr, hWnd, uMsg, wParam, lParam) 'Nachricht "analysieren": Select Case uMsg Case WM_MOVING 'hier solte ein raisevent stehen, geht aber nicht !!!! Case WM_SIZING End Select End Function

Move Ereignis für Formulare	99	Hannes	07.01.03 18:21
Re: Move Ereignis für Formulare	410	Mr. Fox	07.01.03 19:32
Re: Move Ereignis für Formulare	62	Hannes	07.01.03 20:06

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen