Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Ganz einfach:
Autor: unbekannt
Datum: 27.02.02 22:43
Hi Angie, Lordchen jumpt in Projecte und guckt mal ins Alchimistenbuch Dann ergibt sich sowas:   re Function GetCurrentVbaProject Lib "vba332.dll" _ Alias "EbGetExecutingProj" (hProject&) As Long Private Declare Function GetFuncID Lib "vba332.dll" _ Alias "TipGetFunctionId" _ (ByVal hProject&, _ ByVal strFunctionName$, _ ByRef strFunctionId$) As Long Private Declare Function GetAddr Lib "vba332.dll" _ Alias "TipGetLpfnOfFunctionId" _ (ByVal hProject&, _ ByVal strFunctionId$, ByRef lpfn&) As Long Public Declare Function GetActiveWindow Lib "user32" () As Long Public Declare Function SetWindowLong Lib "user32" Alias _ "SetWindowLongA" _ (ByVal hWnd As Long, _ ByVal nIndex As Long, _ ByVal dwNewLong As Long) As Long Public Declare Function CallWindowProc Lib "user32" Alias _ "CallWindowProcA" _ (ByVal lpPrevWndFunc As Long, _ ByVal hWnd As Long, _ ByVal Msg As Long, _ ByVal wParam As Long, _ ByVal lParam As Long) As Long Public lOldUserFormWinPrg As Long Public lUserFormWinPrgAddress As Long Public hWnd As Long Sub testit() lUserFormWinPrgAddress = AddrOf("UserFormWndProg") UserForm1.Show End Sub Public Function AddrOf(strFuncName$) As Long Dim hProject&, lResult&, lpfn& Dim strID$, strFuncNameUnicode Const NO_ERROR = 0 AddrOf = 0 strFuncNameUnicode = StrConv(strFuncName, vbUnicode) Call GetCurrentVbaProject(hProject) If hProject <> 0 Then lResult = GetFuncID(hProject, strFuncNameUnicode, strID) If lResult = NO_ERROR Then lResult = GetAddr(hProject, strID, lpfn) If lResult = NO_ERROR Then: AddrOf = lpfn End If End If End Function Public Function UserFormWndProg(ByVal hWnd As Long, ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam As Long) UserForm1.Caption = uMsg UserFormWndProg = CallWindowProc(lOldUserFormWinPrg, hWnd, uMsg, wParam, lParam) End Function Ein Subclassing einer Userform geht damit nicht ... weil die Application eine eigene WindowProzedur für Userforms hat, die auch vor Windows "nicht ganz verborgen ist". Aber der AddressOf funktioniert. cu Lordchen

VBA Timer	109	drunken_third	26.02.02 11:02
Re: VBA Timer	704	Dieter	26.02.02 11:12
Re: VBA Timer	101	drunken_third	27.02.02 07:08
Re: VBA Timer	549	unbekannt	27.02.02 18:11
Re: VBA Timer	73	Angie	27.02.02 22:17
Ganz einfach:	685	unbekannt	27.02.02 22:43
Also so einfach wieder nicht:	521	unbekannt	27.02.02 22:54
Re: Also so einfach wieder nicht:	64	drunken_third	28.02.02 07:40
Danke Lordchen!	58	Angie	28.02.02 16:50

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