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

即使文本框控件和标签控件对齐，它们中的文本也不会显示在相同的垂直位置

在VBA用户表单中，如何对齐标签和文本框中的文本，是否有良好的实践

---

假设两个控件的

.Top

和

.Font

和

.FontSize

相同，仍然会有一些差异，因为文本框有边框，而标签没有边框

你要么

手动上下移动标签，或

删除文本框的边框

这是一个并列比较

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

---

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

我发现在初始化表单时，通过在每个控件上循环并将每个标签的高度调整2，可以很容易地解决这个问题。您所需要做的就是为所有要移动的标签提供一个类似的命名约定，您可以在If语句中使用这个命名约定，在我的例子中是“lbl”

For Each contr In Me.Controls

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

---

谢谢你的回答，非常有帮助。我移走了边界。