Visual Studio 2022中Form隐形边框致布局间隙及边框显式显示求助

问题描述 #

• 需求：两个Form需实现无缝并排显示，点击按钮打开右侧小Form时，通过代码设置位置为PalChart.Location = New Point(Me.Left + Me.Width, Me.Top)，预期两窗体紧密相邻。
• 异常：实际显示存在视觉间隙，点击间隙区域会触发该Form的点击事件，经排查是Windows默认样式的**隐形宽边框（仅带阴影效果，视觉难以察觉）**导致，现有BorderStyles选项无法解决此问题。

解决方案 #

方法1：通过Windows API获取窗体真实边界计算位置 #

Windows窗体的Width和Left仅对应视觉可见区域，隐形边框的尺寸需通过系统API获取真实外接矩形，再计算正确位置：

Imports System.Runtime.InteropServices

Public Class MainForm
    <DllImport("user32.dll")>
    Private Shared Function GetWindowRect(hWnd As IntPtr, ByRef lpRect As RECT) As Boolean
    End Function

    <StructLayout(LayoutKind.Sequential)>
    Private Structure RECT
        Public Left As Integer
        Public Top As Integer
        Public Right As Integer
        Public Bottom As Integer
    End Structure

    Private Sub btnOpenPalette_Click(sender As Object, e As EventArgs) Handles btnOpenPalette.Click
        Dim mainRect As RECT
        GetWindowRect(Me.Handle, mainRect)
        ' 用主窗体真实右边界作为右侧窗体的X坐标
        PalChart.Location = New Point(mainRect.Right, mainRect.Top)
        If Not PalChart.Visible Then
            PalChart.Show()
        End If
    End Sub
End Class

方法2：移除窗体阴影边框（按需使用） #

若不需要窗体阴影效果，可通过修改窗体扩展样式去掉隐形边框：

Imports System.Runtime.InteropServices

Public Class PaletteForm
    Private Const WS_EX_COMPOSITED As Integer = &H2000000
    Private Const WS_EX_LAYERED As Integer = &H80000
    Private Const GWL_EXSTYLE As Integer = -20

    <DllImport("user32.dll")>
    Private Shared Function GetWindowLongPtr(hWnd As IntPtr, nIndex As Integer) As IntPtr
    End Function

    <DllImport("user32.dll")>
    Private Shared Function SetWindowLongPtr(hWnd As IntPtr, nIndex As Integer, dwNewLong As IntPtr) As IntPtr
    End Function

    Protected Overrides Sub OnLoad(e As EventArgs)
        MyBase.OnLoad(e)
        ' 移除阴影相关扩展样式
        Dim exStyle As IntPtr = GetWindowLongPtr(Me.Handle, GWL_EXSTYLE)
        exStyle = exStyle And Not WS_EX_COMPOSITED And Not WS_EX_LAYERED
        SetWindowLongPtr(Me.Handle, GWL_EXSTYLE, exStyle)
        Me.Refresh()
    End Sub
End Class

注意：此方法会消除窗体阴影，可能影响视觉体验，需根据场景选择。

方法3：改用MDI窗体布局 #

若场景允许，将两个窗体设置为MDI子窗体，通过MDI容器管理布局，天然避免边框间隙：

• 将主窗体的IsMdiContainer属性设为True
• 设置子窗体的MdiParent为主窗体，再调整子窗体的Location和Size实现并排

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