如何使VB应急呼叫应用在PowerPoint全屏演示时保持置顶？

嘿，我懂你的困扰——默认的TopMost=True在普通场景下好用，但碰到PowerPoint这种全屏演示窗口就失效了。这是因为PPT全屏时会创建一个优先级极高的全屏窗口，直接盖过了普通的顶层窗口。下面给你两种可靠的解决方案：

方法1：用Windows API强制单次置顶 #

我们可以调用原生Windows API SetWindowPos，直接把窗口钉在最顶层层级，比WinForms自带的TopMost更有力度。

先在窗体代码顶部导入必要的命名空间并声明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

    ' 所需常量定义
    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

然后在Form_Load事件里，除了设置TopMost，再调用API强制置顶：

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.TopMost = True
        ' 强制置顶窗口，同时不改变位置、大小，也不激活窗口（避免打断PPT演示）
        SetWindowPos(Me.Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE Or SWP_NOACTIVATE)
    End Sub
End Class

方法2：定时刷新维持置顶（应对动态窗口变化） #

如果PPT全屏后偶尔还是会被覆盖，可以加个Timer定时刷新窗口层级，确保它始终在最上面：

1. 从工具箱拖一个Timer控件到窗体上，设置Interval为500（每隔0.5秒刷新一次），Enabled设为True。
2. 在Timer的Tick事件里调用SetWindowPos：

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        ' 定时刷新窗口层级，防止被全屏窗口覆盖
        SetWindowPos(Me.Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE Or SWP_NOACTIVATE)
    End Sub

原理说明 #

WinForms的TopMost=True本质是给窗口添加WS_EX_TOPMOST扩展样式，但PowerPoint全屏窗口会以更高优先级抢占窗口层级（Z-order）。而SetWindowPos直接把我们的窗口绑定到HWND_TOPMOST层级——这是Windows系统中最高的顶层窗口层级之一，配合SWP_NOACTIVATE参数还能避免强制激活窗口，不会打断用户的PPT演示流程。

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