Windows 11下VB窗体常驻任务栏上方问题求助（Visual Studio）

在Windows 11中，仅靠设置TopMost = True或定时调用Me.Focus()无法让窗体始终压在任务栏上方——因为系统任务栏被点击时会自动提升自身层级。要解决这个问题，需要调用Windows底层API直接调整窗口的Z-order层级，同时让窗体可以覆盖任务栏区域。

步骤1：导入Windows API函数 #

在窗体类内部添加API声明：

Imports System.Runtime.InteropServices

Public Class Form1
    ' 导入SetWindowPos API，用于调整窗口层级
    <DllImport("user32.dll", SetLastError:=True)>
    Private Shared Function SetWindowPos(
        ByVal hWnd As IntPtr,
        ByVal hWndInsertAfter As IntPtr,
        ByVal X As Integer,
        ByVal Y As Integer,
        ByVal cx As Integer,
        ByVal cy As Integer,
        ByVal uFlags As UInteger
    ) As Boolean
    End Function

    ' 定义API所需常量
    Private Const HWND_TOPMOST As IntPtr = -1
    Private Const SWP_NOMOVE As UInteger = &H2
    Private Const SWP_NOSIZE As UInteger = &H1
    Private Const SWP_NOACTIVATE As UInteger = &H10

步骤2：设置窗体覆盖任务栏并永久置顶 #

在窗体Load事件中，先让窗体覆盖整个屏幕（包括任务栏区域），再调用API锁定置顶层级：

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ' 让窗体铺满整个屏幕（覆盖任务栏区域）
        Me.Bounds = Screen.PrimaryScreen.Bounds

        ' 锁定窗体置顶状态，不激活、不移动、不改变尺寸
        SetWindowPos(Me.Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE Or SWP_NOACTIVATE)
    End Sub

步骤3：处理任务栏点击后的层级回退 #

如果任务栏被点击后窗体仍被遮挡，在窗体Deactivate事件中重新触发置顶设置：

Private Sub Form1_Deactivate(sender As Object, e As EventArgs) Handles MyBase.Deactivate
        SetWindowPos(Me.Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE Or SWP_NOACTIVATE)
    End Sub
End Class

关键说明 #

• HWND_TOPMOST：将窗口置于所有非置顶窗口之上，即使窗体未激活也保持置顶优先级。
• SWP_NOACTIVATE：避免调用API时自动激活窗体，不干扰用户当前操作。
• Screen.PrimaryScreen.Bounds：获取整个屏幕的完整尺寸（包括任务栏区域），让窗体可以利用任务栏的空余空间。
• 之前的Me.Focus()方法无效，因为它仅让窗体获得输入焦点，无法改变窗口的Z-order层级，而任务栏被点击时会强制提升自身层级。

内容的提问来源于stack exchange，提问作者Vinton