点击嵌入Panel的外部应用窗口时如何将Form置于前台

问题原因 #

嵌入的外部程序（如记事本）拥有独立的窗口句柄和消息循环，当点击它时，Windows仅激活该子窗口，不会自动将其父Form带到前台，导致只有点击Form标题栏才能前置窗口。

修复代码 #

通过子类化子窗口，拦截鼠标激活消息并强制激活父Form，代码如下：

Imports System.Runtime.InteropServices

Public Class Form1
    ' 基础API声明
    Declare Auto Function SetParent Lib "user32.dll" (ByVal hWndChild As IntPtr, ByVal hWndNewParent As IntPtr) As Integer
    Declare Auto Function SendMessage Lib "user32.dll" (ByVal hWnd As IntPtr, ByVal Msg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer
    
    ' 新增API用于窗口子类化和激活父窗口
    Declare Auto Function SetForegroundWindow Lib "user32.dll" (ByVal hWnd As IntPtr) As Boolean
    Declare Auto Function GetWindowLongPtr Lib "user32.dll" (ByVal hWnd As IntPtr, ByVal nIndex As Integer) As IntPtr
    Declare Auto Function SetWindowLongPtr Lib "user32.dll" (ByVal hWnd As IntPtr, ByVal nIndex As Integer, ByVal dwNewLong As IntPtr) As IntPtr
    Declare Auto Function CallWindowProc Lib "user32.dll" Alias "CallWindowProcW" (ByVal lpPrevWndFunc As IntPtr, ByVal hWnd As IntPtr, ByVal Msg As Integer, ByVal wParam As IntPtr, ByVal lParam As IntPtr) As IntPtr
    
    ' 常量定义
    Private Const GWL_WNDPROC As Integer = -4
    Private Const WM_MOUSEACTIVATE As Integer = &H21
    Private Const MA_ACTIVATE As Integer = 1
    Private Const WM_SYSCOMMAND As Integer = &H112
    Private Const SC_MAXIMIZE As Integer = &HF030
    
    Private _oldChildWndProc As IntPtr
    Private _childWindowHandle As IntPtr

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim targetProc As Process = Process.Start("notepad.exe")
        targetProc.WaitForInputIdle()
        _childWindowHandle = targetProc.MainWindowHandle
        
        ' 将外部窗口嵌入Panel
        SetParent(_childWindowHandle, Me.Panel1.Handle)
        
        ' 最大化外部窗口适配Panel
        SendMessage(_childWindowHandle, WM_SYSCOMMAND, SC_MAXIMIZE, 0)
        
        ' 子类化外部窗口，拦截消息
        _oldChildWndProc = GetWindowLongPtr(_childWindowHandle, GWL_WNDPROC)
        SetWindowLongPtr(_childWindowHandle, GWL_WNDPROC, AddressOf ChildWindowMessageHandler)
    End Sub

    ' 自定义外部窗口消息处理函数
    Private Function ChildWindowMessageHandler(ByVal hWnd As IntPtr, ByVal Msg As Integer, ByVal wParam As IntPtr, ByVal lParam As IntPtr) As IntPtr
        If Msg = WM_MOUSEACTIVATE Then
            ' 强制激活父Form
            SetForegroundWindow(Me.Handle)
            ' 允许外部窗口正常激活
            Return New IntPtr(MA_ACTIVATE)
        End If
        ' 其他消息交给原窗口处理函数
        Return CallWindowProc(_oldChildWndProc, hWnd, Msg, wParam, lParam)
    End Function

    ' 窗体关闭时清理资源
    Private Sub Form1_FormClosed(sender As Object, e As FormClosedEventArgs) Handles MyBase.FormClosed
        If _childWindowHandle <> IntPtr.Zero Then
            ' 恢复外部窗口的原消息处理函数
            SetWindowLongPtr(_childWindowHandle, GWL_WNDPROC, _oldChildWndProc)
            ' 恢复外部窗口的父窗口为桌面，避免异常
            SetParent(_childWindowHandle, IntPtr.Zero)
        End If
    End Sub
End Class

关键说明 #

1. 子类化窗口：通过GetWindowLongPtr和SetWindowLongPtr替换外部窗口的消息处理函数，拦截WM_MOUSEACTIVATE（鼠标点击激活窗口时触发的消息）。
2. 激活父Form：在拦截到激活消息时，调用SetForegroundWindow强制将Form带到前台，同时允许外部窗口正常获取焦点。
3. 资源清理：Form关闭时必须恢复外部窗口的原消息处理函数和父窗口，防止外部程序崩溃或异常。

内容的提问来源于stack exchange，提问作者Eric van Loon