VB.NET动态文本框数据显示不对称问题求解

核心原因 #

你遇到的问题是因为使用了比例字体（如宋体、微软雅黑），这类字体中不同字符的宽度不一致（比如M比s、j宽），导致内容无法对齐。之前修改字体没效果，大概率是没换成等宽字体，或者设置字体的时机有误。

具体解决方案 #

• 改用等宽字体
  等宽字体（如Consolas、Courier New）的每个字符宽度完全一致，直接解决字符宽度差异问题。动态创建文本框时，给每个文本框指定等宽字体即可：

  Dim txtBox As New TextBox()
  txtBox.Font = New Font("Consolas", 10) ' 设置为等宽字体及字号
  txtBox.Text = "M   20000" ' 或从数据表读取的内容
  ' 其他控件属性设置（位置、大小等）
  Me.Controls.Add(txtBox)
  

• 格式化文本内容
  如果不想更换字体，可以通过字符串格式化给字母部分固定宽度占位，强制对齐：

  ' 假设从数据表读取的字母为letter，数字为num
  Dim formattedText As String = String.Format("{0, -3} {1}", letter, num)
  ' 或者使用PadRight方法
  ' Dim formattedText As String = letter.PadRight(3) & num.ToString()
  txtBox.Text = formattedText
  

  这里{0, -3}表示将字母左对齐并占3个字符宽度，后续数字自然会对齐。

• 用布局控件实现列对齐
  可以使用TableLayoutPanel控件，将字母和数字分别放在不同的列中，通过控件布局强制对齐：

  1. 先在窗体上添加一个TableLayoutPanel，设置为2列（第一列放字母，第二列放数字）。
  2. 动态创建文本框时，分别将字母文本框和数字文本框添加到对应列的单元格中：

  Dim letterTxt As New TextBox()
  letterTxt.Text = letter
  letterTxt.TextAlign = HorizontalAlignment.Right ' 字母右对齐，数字左对齐更美观
  Dim numTxt As New TextBox()
  numTxt.Text = num.ToString()
  numTxt.TextAlign = HorizontalAlignment.Left
  
  tableLayoutPanel1.Controls.Add(letterTxt, 0, rowIndex)
  tableLayoutPanel1.Controls.Add(numTxt, 1, rowIndex)
  

  这种方式能彻底避免字符宽度带来的对齐问题，布局更灵活。

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