vb6 - 以编程方式创建的标签不会右对齐

Question

以编程方式创建标签（即不在设计器中）不会在我的表单上右对齐。

Set lblStatus = StatusForm.Controls.Add("VB.Label", "lbl" & xml(Prop, "column"))
With lblStatus
    .Visible = True
    .Caption = Text
    .Alignment = vbRightJustify
    .WordWrap = False
    .AutoSize = True
    .top = Index * (lblStatus.height)
    .left = MaxWidth - Screen.TwipsPerPixelX * 15
    .Width = StatusForm.TextWidth(Text)
End With

我创建了其中三个控件，但它们继续从左侧扩展，而不是从右侧扩展：

理想情况下，我希望这些标签（由 包围#）将它们的分号对齐。

Answer 1

由于您设置AutoSize为 true，因此宽度设置为文本的精确宽度，不留任何对齐空间。

要在固定宽度内布局文本，请关闭 AutoSize。