以编程方式创建的Label不会正确对齐

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。