Fenster in den Vordergrund

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Sebastian,
es gibt noch
Declare PtrSafe Function BringWindowToTop Lib "user32" Alias "BringWindowToTop" (ByVal hwnd As LongPtr) As Long
Habe ich aber noch nie verwendet.
Und das Setzen als Top-Window:

Option Explicit

#If VBA7 Then

 Private Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr

 Private Declare PtrSafe Function SetWindowPos Lib "user32" (ByVal hwnd As LongPtr, ByVal hWndInsertAfter As LongPtr, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

 Dim hwnd As LongPtr

#Else

 Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

 Private Declare Function SetWindowPos Lib "user32" (ByVal Hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

 Dim hwnd As Long

#End If

Const HWND_TOPMOST = -1

Const HWND_NOTOPMOST = -2

Const cFLAGS = &H3

Sub Test()

 ' SetWindowPos FindWindow(vbNullString, "Captiontext"), HWND_TOPMOST, 0, 0, 0, 0, cFLAGS

  hwnd = 1234567

  SetWindowPos hwnd, HWND_TOPMOST, 0, 0, 0, 0, cFLAGS

End Sub

viele Grüße
Karl-Heinz

Hallo,
deine Aussage kann ich so nicht nachvollziehen.
Die SetWindowPos-Funktion, wie auch SetForegroundWindow setzen das übergebene Fenster in den Vordergrund.
Zumindest, wenn es nicht minimiert ist.
HWND_TOPMOST sorgt dafür, dass es immer als oberstes steht. SetForeGroundwindow könnte später von anderen Programmen wieder zunichte gemacht werden.
Für die Funktionen brauchst Du das Handle des gewünschten Fensters.
Aus Deiner Anfrage geht nicht hervor, ob Du es hast. Ansonsten könnte es, wie in meinem Beispiel beschrieben über den Fenstertext ermittelt werden.
In meinem Beispiel gilt natürlich nur ein Aufruf, entweder der erste mit dem Fenstertext oder der zweite mit dem vorhandenen Handle.
Das Handle ist weder 1234567 und der Fenstertext "NamedesFensters" scheint mir auch unwahrscheinlich.
Hier noch ein abgewandeltes Beispiel:

Sub Test()

 hwnd = FindWindow(vbNullString, "Captiontext")

 If hwnd &GT; 0 Then SetWindowPos hwnd, HWND_TOPMOST, 0, 0, 0, 0, cFLAGS

End Sub

viele Grüße
Karl-Heinz

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Fenster in den Vordergrund

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread