VB.Net MDI父窗体后置及子窗体显示异常问题咨询

一、解决主窗体显示在子窗体前方的问题 #

你的代码直接复用Branch_define_Form实例大概率是问题根源——如果这个窗体之前已经被创建过（比如隐藏后再次调用Show），可能无法自动获得焦点并置于顶层。另外，完全没必要通过隐藏GroupBox来调整层级，这反而会带来无意义的性能损耗。推荐两种更优的实现方式：

方式1：每次创建新的子窗体实例（推荐，避免复用实例的状态残留问题） #

Private Sub ToolStripMenuItem_Branch_define_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem_Branch_define.Click
    ' 创建全新的子窗体实例
    Dim branchForm As New Branch_define_Form()
    branchForm.MdiParent = Me
    ' 确保子窗体显示并置于顶层
    branchForm.Show()
    branchForm.BringToFront()
End Sub

方式2：复用已有实例（如果需要保留窗体的状态数据） #

如果必须复用已有的Branch_define_Form实例，需要确保它被正确激活并前置：

Private Sub ToolStripMenuItem_Branch_define_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem_Branch_define.Click
    ' 检查实例是否存在或已被释放
    If Branch_define_Form Is Nothing OrElse Branch_define_Form.IsDisposed Then
        Branch_define_Form = New Branch_define_Form()
        Branch_define_Form.MdiParent = Me
    End If
    ' 显示并激活窗体，强制置于主窗体上方
    Branch_define_Form.Show()
    Branch_define_Form.Activate()
    Branch_define_Form.BringToFront()
End Sub

MDI架构下，子窗体默认应该依附于主窗体并置于其上方，通过Activate()或BringToFront()可以强制确保子窗体获得焦点和顶层显示，完全不需要操作主窗体上的GroupBox控件。

二、解决子窗体设计时与运行时尺寸不一致（放大200%）的问题 #

这个问题几乎都是高DPI缩放适配导致的，以下是具体解决步骤：

1. 项目层面开启高DPI支持
   右键你的项目 → 属性 → 应用程序 → 点击"查看Windows设置"按钮，在打开的app.manifest文件中，找到以下注释掉的代码，取消注释并修改为：

   <application xmlns="urn:schemas-microsoft-com:asm.v3">
       <windowsSettings>
           <dpiAware xmlns="http://schemas.microsoft.com/SMI/2005/WindowsSettings">true/PM</dpiAware>
           <dpiAwareness xmlns="http://schemas.microsoft.com/SMI/2016/WindowsSettings">PerMonitorV2, PerMonitor</dpiAwareness>
       </windowsSettings>
   </application>
   

   保存后，项目会自动适配系统的DPI缩放比例，避免窗体被异常放大。

2. 窗体属性设置调整
   打开Branch_define_Form的设计视图，在属性面板中：

   • 将AutoScaleMode设置为Dpi（而非Font或Inherit）
   • 确保FormBorderStyle不是None（如果是无边框窗体，需要额外处理尺寸适配）

3. 代码层面强制锁定初始尺寸
   如果上述设置后仍有问题，可以在子窗体的Load事件中手动指定尺寸：

   Private Sub Branch_define_Form_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       ' 设置为你设计时的实际尺寸（替换为自己的宽高数值）
       Me.Size = New Size(800, 600)
       ' 也可以设置为相对于主窗体的比例尺寸
       ' Me.Size = New Size(Me.MdiParent.ClientSize.Width * 0.8, Me.MdiParent.ClientSize.Height * 0.8)
   End Sub
   

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