如何实现VB.NET应用全屏显示且控件自动适配位置？

嘿，这个问题我太熟悉了！在VB.NET里解决全屏/最大化时控件移位、自动定位的问题，核心就是用好内置的布局系统，下面给你几个实用的方案，从简单省心到灵活定制都覆盖到了：

这是最常用的基础方法，能让控件跟着窗口的边缘同步缩放或移动。

• 操作方式：在设计器里选中控件，打开属性窗口找到Anchor，默认一般是Top, Left——这意味着控件只会固定在窗口的左上角，窗口放大时控件位置不变，就容易跑偏。
• 如果你想让控件跟着窗口拉伸，比如一个文本框要占满窗口的宽度和高度，就把Anchor设为Top, Left, Right, Bottom，这样窗口缩放时，控件的四个边都会跟着窗口边缘同步调整，不会移位。
• 代码里设置的话可以这么写：

TextBox1.Anchor = AnchorStyles.Top Or AnchorStyles.Left Or AnchorStyles.Right Or AnchorStyles.Bottom

• 不同组合的效果：比如只设Top, Right，控件会固定在右上角，高度不变但宽度会随窗口宽度变化；设Left, Bottom则固定在左下角，宽度不变高度随窗口变化。

适合让控件直接“贴”在窗口的某个边缘或者填满整个窗口，比如工具栏、状态栏这类控件特别适合用这个。

• 比如想让一个Panel填满整个窗口，就把它的Dock设为Fill，这样不管窗口怎么放大缩小，Panel都会自动占满整个客户区，里面的控件再配合Anchor就能完美布局。
• 代码示例：

Panel1.Dock = DockStyle.Fill
Button1.Dock = DockStyle.Bottom ' 按钮始终贴在窗口底部

• 可以多个控件组合使用，比如先把一个Panel停靠在Top，再把另一个停靠在Fill，就能实现顶部固定栏+中间填充区的布局。

如果你的界面比较复杂，比如有很多控件需要按比例排列，那就用TableLayoutPanel或FlowLayoutPanel这类专门的布局容器，省心又专业。

• TableLayoutPanel：把窗口分成网格状的单元格，控件放在单元格里，你可以设置行和列的比例（比如把两列都设为50%），这样窗口缩放时，单元格会自动按比例调整大小，里面的控件也不会移位。
  • 操作技巧：选中TableLayoutPanel，在属性里设置ColumnStyles和RowStyles的SizeType为Percent，再填入对应的比例值即可。
• FlowLayoutPanel：控件会自动按顺序排列，一行放不下就换行，适合动态添加控件的场景，窗口缩放时控件会自动重新排列位置。

如果上面的方法满足不了你的特殊需求（比如控件要固定在某个相对位置，比如距离右下角20px），那就自己写Resize事件的代码，精准控制每个控件的位置和大小。

• 示例代码：

Private Sub Form1_Resize(sender As Object, e As EventArgs) Handles MyBase.Resize
    ' 避免窗口最小化时出现异常计算
    If Me.WindowState <> FormWindowState.Minimized Then
        ' 让按钮始终在窗口右下角，距离边缘20像素
        Button1.Left = Me.ClientSize.Width - Button1.Width - 20
        Button1.Top = Me.ClientSize.Height - Button1.Height - 20
        
        ' 让文本框宽度占窗口的80%，水平居中，距离顶部10像素
        TextBox1.Width = CInt(Me.ClientSize.Width * 0.8)
        TextBox1.Left = (Me.ClientSize.Width - TextBox1.Width) \ 2
        TextBox1.Top = 10
    End If
End Sub

如果你的应用要在高分辨率屏幕上运行，别忘开启高DPI支持！右键项目→属性→应用程序→找到“启用DPI感知”（不同VB.NET版本位置可能略有不同）并勾选，不然控件可能会出现模糊或者移位的情况。

总的来说，优先用Anchor、Dock和布局容器，这些是最省心的方案；手动Resize适合特殊需求的场景，按需选择就好。

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