VB.NET开发：如何让窗体在打开新应用时保持屏幕显示？

嘿，这个场景我太熟悉了！其实你只需要让窗体保持置顶显示，就能避免被新打开的应用窗口覆盖。这里有两种实用的实现方案，根据你的需求选就行：

方法一：使用窗体的TopMost属性（最简单） #

这是VB.NET自带的属性，直接设置就能让窗体始终处于所有非置顶窗口的上层：

方式1：设计时设置 #

在Visual Studio的窗体设计器里，找到属性面板中的TopMost选项，把它改成True就行，一劳永逸。

方式2：代码中动态设置 #

如果需要灵活控制（比如只有启动外部程序时才临时置顶），可以在代码里这样写：

' 窗体加载时默认置顶
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    Me.TopMost = True
End Sub

' 或者在启动Edge前临时开启置顶
Private Sub btnLaunchEdge_Click(sender As Object, e As EventArgs) Handles btnLaunchEdge.Click
    Me.TopMost = True
    ' 启动Microsoft Edge
    Process.Start("msedge.exe")
    ' 要是不需要一直置顶，启动后也可以再设回False
    ' Me.TopMost = False
End Sub

⚠️ 小提醒：TopMost是「相对置顶」——如果其他程序的窗体也设置了TopMost = True，它们还是会覆盖你的窗体哦。

方法二：使用Windows API实现强制置顶（进阶） #

如果需要更硬核的置顶效果（不受其他TopMost窗口影响），可以调用Windows原生的SetWindowPos API：

首先在窗体模块里声明API：

Imports System.Runtime.InteropServices

Public Class Form1
    ' 声明SetWindowPos函数
    <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

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

然后在需要置顶的地方调用：

' 窗体加载时设置强制置顶（保持原有位置和大小不变）
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    SetWindowPos(Me.Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE)
End Sub

' 取消置顶的话，用HWND_NOTOPMOST常量即可
' Private Const HWND_NOTOPMOST As IntPtr = -2
' SetWindowPos(Me.Handle, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE)

额外小建议 #

• 别让窗体一直强制置顶，最好给用户加个复选框或者按钮，让他们能手动切换置顶状态，避免影响正常操作体验。
• 如果启动外部程序后窗体还是偶尔被覆盖，可以在Process.Start之后调用Me.Activate()或者Me.BringToFront()，强制把窗体拉回前台。

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