对齐标签和文本框中的文本？

Question

即使文本框控件和标签控件对齐，其中的文本也不会出现在同一垂直位置。

在VBA用户表单中如何对齐标签和文本框中的文本有什么好的做法吗？

Answer 1

假设两个控件的.Top和.Font以及.FontSize相同，仍会有一些差异，因为TextBox有边框而Label没有。

你必须要么

1. 手动上下移动标签或
2. 删除文本框的边框。



这是一个并排比较



编辑：哦，顺便说一句，如果您选择第一个选项，即上下移动标签，那么这里有一个可以帮助您的巧妙技巧。添加一个命令按钮并减小它的高度，使其看起来像一条细线。使用它作为比例来对齐控件，然后最后删除命令按钮。

Answer 2

多年后，这个问题仍然与我有关。这是我的解决方案：

我发现，可以通过以下方式轻松解决此问题：在初始化表单时循环遍历每个控件，并将每个标签的高度调整2。您所要做的就是为所有要移动的标签提供相似的命名约定，您可以在If语句中使用“ lbl _”。

For Each contr In Me.Controls

If contr.Name Like "lbl_*" Then
    
    contr.top = contr.top + 2
    
End If
Next