Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Habe ne Lösung....
Autor: Joachim
Datum: 02.11.01 13:21
allerdings etwas umständlicher. Erstmal den Fensterhandle in der Fenstercollection suchen (nicht per FindWindow, schlägt auch fehl) und dann über die Funktion ForceForegroundWindow das Fenster aufblenden. Hier die Funktion mit allem drum und dran : Private Declare Function GetWindowThreadProcessId Lib "user32" _ (ByVal hWnd As Long, lpdwProcessId As Long) As Long Private Declare Function AttachThreadInput Lib "user32" _ (ByVal idAttach As Long, ByVal idAttachTo As Long, _ ByVal fAttach As Long) As Long Private Declare Function GetForegroundWindow Lib "user32" () As Long Private Declare Function SetForegroundWindow Lib "user32" _ (ByVal hWnd As Long) As Long Private Declare Function IsIconic Lib "user32" _ (ByVal hWnd As Long) As Long Private Declare Function ShowWindow Lib "user32" (ByVal hWnd As Long, _ ByVal nCmdShow As Long) As Long Private Const SW_SHOW = 5 Private Const SW_RESTORE = 9 Public Function ForceForegroundWindow(ByVal hWnd As Long) As Boolean Dim ThreadID1 As Long Dim ThreadID2 As Long Dim nRet As Long ' 'Bereits im Vordergrund? ' If hWnd = GetForegroundWindow() Then ForceForegroundWindow = True Else ' ' Thread des gesuchten und des aktuellen Fensters ermitteln, ' ThreadID1 = GetWindowThreadProcessId(GetForegroundWindow, ByVal 0&) ThreadID2 = GetWindowThreadProcessId(hWnd, ByVal 0&) ' 'Threads miteinander verbandeln,damit das Fenster auch wirklich 'nach vorne kommt ' If ThreadID1 <> ThreadID2 Then Call AttachThreadInput(ThreadID1, ThreadID2, True) nRet = SetForegroundWindow(hWnd) Call AttachThreadInput(ThreadID1, ThreadID2, False) Else nRet = SetForegroundWindow(hWnd) End If ' ' Wiederherstellen und neu zeichnen? ' If IsIconic(hWnd) Then Call ShowWindow(hWnd, SW_RESTORE) Else Call ShowWindow(hWnd, SW_SHOW) End If ' ' Rückgabewert von SetForegroundWindow zeigt den Erfolg an. ' ForceForegroundWindow = CBool(nRet) End If End Function Gruß Joachim

Probleme mit AppActivate	52	Joachim	02.11.01 08:08
Re: Probleme mit AppActivate	867	Dieter	02.11.01 08:14
Re: Probleme mit AppActivate	36	Joachim	02.11.01 09:31
Re: Probleme mit AppActivate	883	Dieter	02.11.01 10:04
Re: Probleme mit AppActivate	35	Joachim	02.11.01 11:05
Habe ne Lösung....	42	Joachim	02.11.01 13:21

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