以编程方式创建的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.