.NET 8下SetParent到Progman后WinForms控件消失，仅重置显卡驱动可见

问题描述 #

将控件设置为桌面窗口（Progman）的子窗口后，控件立即从屏幕上消失；按下Ctrl+Win+Shift+B重置显卡驱动后，控件重新显示。

简化代码 #

#Region "Windows API declarations"

    <DllImport("user32.dll")>
    Private Shared Function SetWindowPos(hWnd As IntPtr, hWndInsertAfter As IntPtr, X As Integer, Y As Integer, cx As Integer, cy As Integer, uFlags As UInteger) As Boolean
    End Function
    <DllImport("user32.dll", SetLastError:=True)>
    Private Shared Function GetWindowLong(hWnd As IntPtr, nIndex As Integer) As Integer
    End Function

    <DllImport("user32.dll", SetLastError:=True)>
    Private Shared Function SetWindowLong(hWnd As IntPtr, nIndex As Integer, dwNewLong As Integer) As Integer
    End Function

    <DllImport("user32.dll")>
    Public Shared Function FindWindow(lpClassName As String, lpWindowName As String) As IntPtr
    End Function

    <DllImport("user32.dll")>
    Public Shared Function SetParent(hWndChild As IntPtr, hWndNewParent As IntPtr) As IntPtr
    End Function

    ' Constants
    Private ReadOnly HWND_BOTTOM As IntPtr = 1
    Private ReadOnly HWND_NOTOPMOST As IntPtr = -2
    Private Const SWP_NOMOVE As UInteger = &H2
    Private Const SWP_NOSIZE As UInteger = &H1
    Private Const SWP_SHOWWINDOW As UInteger = &H40

    Private Const GWL_EXSTYLE As Integer = -20
    Private Const WS_EX_TOOLWINDOW As Integer = &H80
    Private Const WS_EX_APPWINDOW As Integer = &H40000
    Private Const WS_EX_NOACTIVATE As Integer = &H8000000
#End Region

#Region "Form Controls"
    Private Async Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.TopMost = False  ' 关闭TopMost
        Me.Opacity = 0.8
        Me.FormBorderStyle = FormBorderStyle.None

        Centering()
        startupInit()
        StatusChecker()
        LoadDgv()

        ' 问题出在这段代码

        Dim progman As IntPtr = FindWindow("Progman", Nothing)

        If progman <> IntPtr.Zero Then
            SetParent(Me.Handle, progman)

            
            Dim exStyle As Integer = GetWindowLong(Me.Handle, GWL_EXSTYLE)
            exStyle = (exStyle Or WS_EX_TOOLWINDOW) And Not WS_EX_APPWINDOW
            SetWindowLong(Me.Handle, GWL_EXSTYLE, exStyle)

        End If

    End Sub

    Private Sub Centering()
        Dim screenC = Screen.PrimaryScreen.WorkingArea
        Me.StartPosition = FormStartPosition.Manual
        Me.Location = New Point((screenC.Width - Me.Width) \ 2, 0)
    End Sub
#End Region

现象 #

• 调用SetParent前控件可见
• ❌ 调用SetParent(Me.Handle, progman)后控件立即消失
• ❌ 正常运行期间控件保持不可见
• ✅ 按下Ctrl+Win+Shift+B（重置显卡驱动）后控件重新显示
• IsWindowVisible()返回True，即使控件不可见

环境 #

• .NET 8、Windows Forms、VB.NET
• Windows 11

问题 #

1. 为何将父窗口设置为Progman会导致控件立即消失？
2. 显卡驱动重置过程中发生了什么使其重新显示？
3. 是否可以通过编程模拟显卡驱动重置的效果？
4. 有没有比Progman更适合桌面控件且无此问题的替代方案？

已尝试方案 #

• 不同的执行时机（延迟、async/await）
• SetParent后调用带各种标志的SetWindowPos
• 调用BringToFront()
• 不同的扩展窗口样式

Z-order诊断显示，SetParent后控件被埋在窗口层级深处，但显卡驱动重置后回到可见位置。

解答 #

1. 设置Progman为父窗口后控件消失的原因 #

Windows 11中，Progman不再是实际承载桌面图标的窗口，真正的桌面容器是WorkerW窗口（开启深色模式或设置壁纸后，系统会生成多个WorkerW窗口）。把控件设为Progman的子窗口后，Progman本身处于Z-order最底层，完全被上层的WorkerW窗口覆盖，导致控件被遮挡——但IsWindowVisible()返回True，因为控件本身的可见状态是正常的，只是被上层窗口挡住了。

2. 显卡驱动重置时发生了什么 #

重置显卡驱动会触发系统重新绘制所有窗口，同时重建桌面窗口的Z-order层级。这个过程中，系统会重新排列所有桌面相关窗口，你的控件会被重新渲染并调整到可见的层级，因此重新显示出来。

3. 能否编程模拟显卡驱动重置的效果 #

不建议模拟显卡驱动重置，这会导致短暂黑屏且影响系统稳定性。可以用以下两种替代方案：

• 发送系统重绘消息：发送WM_SETTINGCHANGE消息触发系统重绘所有窗口：

  <DllImport("user32.dll", CharSet:=CharSet.Auto, SetLastError:=True)>
  Private Shared Function SendMessageTimeout(hWnd As IntPtr, Msg As UInteger, wParam As UIntPtr, lParam As IntPtr, fuFlags As UInteger, uTimeout As UInteger, ByRef lpdwResult As UIntPtr) As IntPtr
  End Function
  
  Private Const WM_SETTINGCHANGE As UInteger = &H1A
  Private Const SMTO_ABORTIFHUNG As UInteger = &H2
  
  ' 调用方法
  Dim result As UIntPtr
  SendMessageTimeout(IntPtr.Zero, WM_SETTINGCHANGE, UIntPtr.Zero, IntPtr.Zero, SMTO_ABORTIFHUNG, 5000, result)
  

• 调整控件Z-order到WorkerW之上：枚举所有WorkerW窗口，将控件置于这些窗口上方：

  <DllImport("user32.dll", SetLastError:=True)>
  Private Shared Function EnumWindows(lpEnumFunc As EnumWindowsProc, lParam As IntPtr) As Boolean
  End Function
  
  <DllImport("user32.dll", CharSet:=CharSet.Auto, SetLastError:=True)>
  Private Shared Function GetClassName(hWnd As IntPtr, lpClassName As StringBuilder, nMaxCount As Integer) As Integer
  End Function
  
  Delegate Function EnumWindowsProc(hWnd As IntPtr, lParam As IntPtr) As Boolean
  
  ' 枚举WorkerW窗口并将控件置于其上方
  Private Sub BringAboveWorkerW()
      EnumWindows(AddressOf EnumWindowsCallback, Me.Handle)
  End Sub
  
  Private Function EnumWindowsCallback(hWnd As IntPtr, lParam As IntPtr) As Boolean
      Dim className As New StringBuilder(256)
      GetClassName(hWnd, className, className.Capacity)
      If className.ToString() = "WorkerW" Then
          SetWindowPos(lParam, hWnd, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE)
      End If
      Return True
  End Function
  

  在SetParent之后调用BringAboveWorkerW()即可让控件显示在桌面之上。

4. 更合适的桌面控件替代方案 #

• 使用WorkerW作为父窗口：找到当前显示桌面的WorkerW窗口（一般是最后创建的那个），将控件设为它的子窗口，这样控件直接处于桌面层级，不会被遮挡。
• 分层窗口（Layered Window）：给窗体添加WS_EX_LAYERED扩展样式，用UpdateLayeredWindow API绘制，无需设置父窗口，还支持透明效果，从根源避免Z-order问题。
• Windows桌面小工具：如果是轻量级控件，可以考虑官方的桌面小工具方案，Windows 11需手动启用该功能。

内容的提问来源于stack exchange，提问作者Patrik Rydzík