Force Window To Top

[yrwyddfa]

In response to a wash out in another thread (that's been closed) this should solve your problem:

Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hWnd As Long, lpdwProcessId As Long) As Long
Private Declare Function GetForegroundWindow Lib "user32" () 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 SetForegroundWindow Lib "user32" (ByVal hWnd As Long) As Long
 
Public Sub ForceWindowToTop(hWnd As Long)
    
    Dim lMyPId As Long
    Dim lCurPId As Long
    
    lMyPId = GetWindowThreadProcessId(hWnd, 0)
    lCurPId = GetWindowThreadProcessId(GetForegroundWindow(), 0)
    
    If Not (lMyPId = lCurPId) Then
        AttachThreadInput lCurPId, lMyPId, True
        SetForegroundWindow hWnd
        AttachThreadInput lCurPId, lMyPId, False
    End If
    
    If Not (GetForegroundWindow() = hWnd) Then
        SetForegroundWindow hWnd
    End If
    
End Sub

NEVER say never . . .

Yr

[yrwyddfa]

Apologies.

I should read more carefully . . .

Sorry!

[Madboy]

Is this a question of some sort?

Otherwise it belongs in the Codebank

[yrwyddfa]

Let someone else do and collect the credit for it . . .

[da_silvy]

You could go through the entire forum and collect credit for code that people have written

believe it or not, pretty much everything's been posted before

except for a few highly specialised questions

skilled searchers will rarely ask questions

[Steve Stunning]

Greetings and Salutations!

Do not care where it was posted.... just glad it was. This worked perfectly!

[Wokawidget]

What does:

Private Declare Function AttachThreadInput Lib "user32" (ByVal idAttach As Long, ByVal idAttachTo As Long, ByVal fAttach As Long) As Long

Do?

Woka