MS-Access最大化窗口时子窗体Width属性未更新问题

问题核心原因 #

Access主窗体触发最大化时，Resize事件的执行时机可能早于主窗体尺寸完全稳定的时刻，或者子窗体控件未自动触发重绘，导致宽度设置后界面未即时同步更新。

具体解决办法 #

• 强制子窗体控件重绘
  在设置完子窗体宽度后，调用Repaint方法强制控件刷新界面：

  Me.SprintTicket_Work_subform.Width = sub_w
  Me.SprintTicket_Work_subform.Repaint
  

  如果Repaint无效，可尝试先隐藏再显示子窗体控件，强制触发重绘流程：

  Me.SprintTicket_Work_subform.Visible = False
  Me.SprintTicket_Work_subform.Width = sub_w
  Me.SprintTicket_Work_subform.Visible = True
  

• 等待主窗体尺寸稳定后执行调整
  利用DoEvents让系统先完成最大化的界面渲染，再执行宽度设置逻辑：

  DoEvents ' 等待系统处理完最大化的界面更新
  Dim sub_w As Long
  ' 此处写入你的sub_w比例计算逻辑，示例：
  sub_w = Me.Width * 0.9 ' 按主窗体宽度的90%设置子窗体宽度
  Me.SprintTicket_Work_subform.Width = sub_w
  

• 确认设置对象为子窗体容器控件
  确保你修改的是主窗体上的子窗体容器控件的Width属性，而非子窗体内部窗体的宽度。避免误写为：

  ' 错误写法（修改子窗体内部窗体宽度）
  ' Me.SprintTicket_Work_subform.Form.Width = sub_w
  

  正确写法应为修改主窗体上的子窗体控件本身：

  Me.SprintTicket_Work_subform.Width = sub_w
  

额外注意事项 #

针对大显示器下twip值超出Integer（32767）上限的问题，务必用Long类型存储宽度计算结果，避免溢出错误。

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