VS2017中VB.NET WinForm点击最大化按钮切换两种尺寸需求

阿华AIGC实验室

2026-5-26

解决VB.NET WinForm固定两种尺寸+禁止拖拽调整的需求

嘿，我来帮你搞定这个WinForm的尺寸控制需求！结合你的要求，我会一步步告诉你怎么实现：

一、先搞定「禁止拖拽窗体边缘调整大小」

首先要限制用户不能拖边缘改尺寸，同时保留最大化按钮：

在设计器里选中你的窗体，找到FormBorderStyle属性，设置为**FixedSingle**（或者FixedDialog，看你喜欢的边框样式），这样窗体边缘就不能拖拽调整了。
确保MaximizeBox属性设为True（保留最大化按钮），MinimizeBox可以根据需求设置True或False。

二、实现两种尺寸的切换（点击最大化按钮触发）

默认的最大化是系统全屏，所以我们需要拦截最大化按钮的事件，自定义尺寸切换逻辑，而不是用系统默认的最大化行为。

1. 定义尺寸常量和状态标记

在窗体类里添加两个尺寸变量和一个状态标记：

' 常规初始尺寸（按需改成你要的大小）
Private ReadOnly normalSize As New Size(800, 600)
' 点击最大化后切换的大尺寸（按需调整）
Private ReadOnly largeSize As New Size(1200, 900)
' 标记当前是否处于大尺寸状态
Private isLargeMode As Boolean = False

2. 重写WndProc拦截最大化命令

系统的最大化按钮会发送WM_SYSCOMMAND消息，我们重写WndProc方法来拦截这个消息，执行自定义的尺寸切换：

Protected Overrides Sub WndProc(ByRef m As Message)
    Const WM_SYSCOMMAND As Integer = &H112
    Const SC_MAXIMIZE As Integer = &HF030

    ' 拦截最大化按钮的消息
    If m.Msg = WM_SYSCOMMAND AndAlso m.WParam.ToInt32() = SC_MAXIMIZE Then
        ' 执行尺寸切换逻辑
        ToggleFormSize()
        ' 告诉系统我们已经处理了这个消息，不要走默认流程
        m.Result = IntPtr.Zero
        Return
    End If

    ' 其他消息交给系统默认处理
    MyBase.WndProc(m)
End Sub

' 封装尺寸切换的逻辑
Private Sub ToggleFormSize()
    If Not isLargeMode Then
        ' 切换到大尺寸
        Me.Size = largeSize
        isLargeMode = True
    Else
        ' 切换回常规尺寸
        Me.Size = normalSize
        isLargeMode = False
    End If
    ' 切换后让窗体居中（可选，按需去掉）
    Me.CenterToScreen()
End Sub

3. 初始化窗体属性

在窗体的构造函数或者Form_Load事件里设置初始状态：

Public Sub New()
    InitializeComponent()
    ' 设置初始尺寸
    Me.Size = normalSize
    ' 窗体启动时居中（可选）
    Me.StartPosition = FormStartPosition.CenterScreen
End Sub

三、确保布局控件适配尺寸变化

你提到有始终锚定在顶部的Panel和TabControl，一定要设置它们的Anchor属性来适配尺寸变化：

顶部Panel：选中Panel，在属性窗口找到Anchor，设置为Top, Left, Right。这样窗体宽度变化时，Panel会自动拉伸宽度，始终固定在顶部，高度保持你设置的初始值。
TabControl：如果TabControl在Panel下方，设置它的Anchor为Top, Left, Right, Bottom。这样它会填充Panel下方的所有可用空间，当窗体高度变化时自动拉伸高度和宽度。

如果布局比较复杂，也可以用TableLayoutPanel或FlowLayoutPanel来辅助布局，让控件自动适应窗体尺寸变化。