如何让WinForm父窗体及Panel自动调整大小以适配子窗口（cmd.exe）

嘿Eric，我来帮你搞定这个适配问题！要实现Form和Panel跟着CMD窗口的默认尺寸走，核心思路就是先获取CMD窗口的原始客户区尺寸，再反过来调整Panel和Form的大小来匹配它。咱们需要加几个Windows API来获取窗口的真实尺寸，然后调整布局就行，下面是具体的修改方案：

关键修改点 #

• 添加GetWindowRect和GetClientRect两个API，用来获取CMD窗口的整体边界和内部客户区大小
• 计算CMD窗口的边框/标题栏占用的空间，确保拿到准确的内容区域尺寸
• 先调整Panel的大小匹配CMD的客户区，再根据Form自身的边框偏移量调整Form的整体大小，实现完美适配

修改后的完整代码 #

Imports System.Runtime.InteropServices
Public Class Form1
    Private WithEvents Tmr As New Timer With {.Interval = 100}
    Private Const HWND_BOTTOM As Integer = &H1
    Private WithEvents proc As New Process

    ' 新增API：获取窗口整体边界（含边框、标题栏）
    <DllImport("user32.dll", EntryPoint:="GetWindowRect")>
    Private Shared Function GetWindowRect(ByVal hWnd As IntPtr, ByRef lpRect As RECT) As <MarshalAs(UnmanagedType.Bool)> Boolean
    End Function

    ' 新增API：获取窗口客户区边界（仅内容显示区域）
    <DllImport("user32.dll", EntryPoint:="GetClientRect")>
    Private Shared Function GetClientRect(ByVal hWnd As IntPtr, ByRef lpRect As RECT) As <MarshalAs(UnmanagedType.Bool)> Boolean
    End Function

    <DllImport("user32.dll", EntryPoint:="SetParent")>
    Private Shared Function SetParent(ByVal hWndChild As IntPtr, ByVal hWndNewParent As IntPtr) As IntPtr
    End Function

    <DllImport("user32.dll", EntryPoint:="SetWindowPos")>
    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 <MarshalAs(UnmanagedType.Bool)> 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 Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Text = "My title"
        proc.EnableRaisingEvents = True
        proc.StartInfo.FileName = "cmd"
        ' 关键：强制CMD以默认尺寸启动，避免系统自动调整窗口状态
        proc.StartInfo.WindowStyle = ProcessWindowStyle.Normal
        proc.Start()
        Tmr.Start()
    End Sub

    Private Sub Tmr_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Tmr.Tick
        If proc.MainWindowHandle <> IntPtr.Zero Then
            Dim setParentResult = SetParent(proc.MainWindowHandle, Panel1.Handle)
            If setParentResult <> IntPtr.Zero Then
                Tmr.Stop()

                ' 获取CMD的整体窗口尺寸和内部客户区尺寸
                Dim cmdWindowRect As RECT
                Dim cmdClientRect As RECT
                GetWindowRect(proc.MainWindowHandle, cmdWindowRect)
                GetClientRect(proc.MainWindowHandle, cmdClientRect)

                ' 计算CMD的边框宽度和标题栏高度（整体尺寸与客户区的差值）
                Dim borderWidth = (cmdWindowRect.Right - cmdWindowRect.Left - cmdClientRect.Right) \ 2
                Dim titleBarHeight = cmdWindowRect.Bottom - cmdWindowRect.Top - cmdClientRect.Bottom

                ' 让Panel尺寸匹配CMD的客户区大小
                Panel1.Size = New Size(cmdClientRect.Right, cmdClientRect.Bottom)

                ' 调整Form尺寸：Panel大小 + Form自身的边框/标题栏偏移量
                Dim formBorderOffset = Me.Width - Me.ClientSize.Width
                Dim formTitleBarOffset = Me.Height - Me.ClientSize.Height
                Me.Size = New Size(Panel1.Width + formBorderOffset, Panel1.Height + formTitleBarOffset + Panel1.Top)

                ' 让CMD窗口在Panel内对齐（0,0即可，因为Panel已经适配了尺寸）
                SetWindowPos(proc.MainWindowHandle, New IntPtr(HWND_BOTTOM), 0, 0, cmdClientRect.Right, cmdClientRect.Bottom, 0)
            End If
        End If
    End Sub

    Private Sub Proc_Exited(ByVal sender As Object, ByVal e As System.EventArgs) Handles proc.Exited
        Invoke(Sub() Close())
    End Sub
End Class

代码说明 #

1. API与结构体：RECT结构体用来存储窗口的坐标信息，GetWindowRect获取CMD的完整窗口尺寸（包含边框和标题栏），GetClientRect获取CMD内部可显示内容的区域尺寸
2. 尺寸计算：通过两个尺寸的差值，精准算出CMD的边框和标题栏占用的空间，确保我们拿到的是CMD真实的内容区域大小
3. Form大小调整：需要考虑Form自身的边框和标题栏占用的空间，所以用Form整体尺寸减去客户区尺寸得到偏移量，再加上Panel的大小，就能让Form刚好包裹住Panel和CMD窗口
4. CMD启动设置：强制CMD以Normal样式启动，避免系统自动将窗口调整为最小化或最大化状态，保证我们能获取到默认尺寸

这样修改后，不管本地CMD的默认尺寸是多少，Form和Panel都会自动调整到完美适配的大小啦！

内容的提问来源于stack exchange，提问作者Eric van Loon