1

プログラムで (デザイナーではなく) ラベルを作成すると、フォーム上で右揃えになりません。

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

これらのコントロールを 3 つ作成しましたが、右からではなく左から拡張し続けます。

左揃えのラベル

#理想的には、これらのラベル ( で囲まれている) にセミコロンを並べたいと思います。

4

1 に答える 1

5

true に設定AutoSizeしたため、幅はテキストの正確な幅に設定され、配置の余地はありません。

固定幅内にテキストをレイアウトするには、AutoSize をオフにします。

于 2012-08-13T14:41:21.163 に答える