VB.NET中Form.ShowDialog导致Label控件高度异常变化的问题排查

问题场景 #

在VB.NET中自定义对话框，包含Label、按钮、TextBox/ComboBox等控件，通过BuildForm()手动计算控件尺寸以适配文本内容。但调用Form.ShowDialog()后，Label控件高度从预先计算好的115px变为92px，即使不调整窗体大小也会出现该问题，且已将Label的AutoSize设为False。

相关代码 #

对话框入口函数 #

Public Function MyInputButtonBox(ByVal description As String, title As String, ParamArray buttons As String()) As Integer
    If buttons.Length = 0 Then Return -1
    inpBox = Nothing
    BuildForm(description, buttons)
    inpForm.Text = title
    MsgBox(lblDsc.Height)
    inpForm.ShowDialog()
    MsgBox(lblDsc.Height)
    Return inpForm.Tag
    inpForm.Dispose()
End Function

BuildForm中Label尺寸计算逻辑 #

'Description
lblDsc.AutoSize = False
lblDsc.Top = 5
lblDsc.Left = 5
lblDsc.Width = btnPanel.Left - lblDsc.Left - 5
lblDsc.Text = description
Dim textSize = TextRenderer.MeasureText(lblDsc.Text, New Font(lblDsc.Font.FontFamily, lblDsc.Font.Size, lblDsc.Font.Style), lblDsc.Size, TextFormatFlags.WordBreak)
lblDsc.Height = Math.Ceiling(1.1 * textSize.Height)
lblDsc.Parent = inpForm
lblDsc.Visible = True
'lblDsc.Anchor = AnchorStyles.Left + AnchorStyles.Top + AnchorStyles.Right + AnchorStyles.Bottom
lblDsc.BorderStyle = BorderStyle.FixedSingle 'BorderStyle.None  'TODO restore no border after testing

问题原因 #

1. 文本尺寸计算参数错误：计算文本高度时，传入的lblDsc.Size高度为Label默认值（如23px），TextRenderer.MeasureText在高度不足的情况下，无法准确计算多行文本的总高度，导致后续设置的高度不符合实际需求。
2. 字体与内边距未考虑：手动创建新Font对象可能导致字体渲染差异，且未将Label默认的内边距纳入尺寸计算，实际显示时文本超出控件范围，触发窗体布局引擎隐式调整控件尺寸。
3. 窗体布局时机冲突：控件添加到窗体后，窗体的AutoScaleMode（如DPI缩放）或布局事件会在ShowDialog()前重新计算控件尺寸，覆盖手动设置的数值。

解决方法 #

• 修正文本尺寸计算逻辑：计算时传入固定宽度、无限高度的尺寸，直接使用Label现有字体，并加上内边距：

  ' 用固定宽度、无限高度计算真实多行文本高度
  Dim textSize = TextRenderer.MeasureText(lblDsc.Text, lblDsc.Font, New Size(lblDsc.Width, Integer.MaxValue), TextFormatFlags.WordBreak)
  ' 加上Label的上下内边距，避免文本溢出
  lblDsc.Height = textSize.Height + lblDsc.Padding.Top + lblDsc.Padding.Bottom
  

• 禁用不必要的AutoScale：如果不需要高DPI适配，创建窗体时关闭自动缩放：

  inpForm.AutoScaleMode = AutoScaleMode.None
  

• 延迟尺寸设置到窗体加载后：将Label尺寸计算移到窗体Load事件，确保窗体布局完成后再设置：

  AddHandler inpForm.Load, Sub(sender, e)
      Dim textSize = TextRenderer.MeasureText(lblDsc.Text, lblDsc.Font, New Size(lblDsc.Width, Integer.MaxValue), TextFormatFlags.WordBreak)
      lblDsc.Height = textSize.Height + lblDsc.Padding.Vertical
  End Sub
  

• 正确设置锚定时机：如果需要锚定控件，务必在所有尺寸计算完成后再设置Anchor属性，避免锚定逻辑干扰尺寸计算：

  ' 所有尺寸计算完成后再设置锚定
  lblDsc.Anchor = AnchorStyles.Left Or AnchorStyles.Top Or AnchorStyles.Right
  

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