PictureBox内で右寄せするには？ (ID:142778)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 空白文字の幅と、数字の文字幅は異なります(標準のフォントの場合)。 文字によって、そのサイズが異なる事に注意してください。たとえば、 iiiiiiiiii WWWWWWWWWW などは、フォントによっては文字幅が異なって見えてしまうでしょう。 空白で処理するのではなく、先述の URL にもありますように、 TextWidth メソッドで文字列の長さを測定し、 それを「右寄せ」に相当する座標に Print してみてください。 これであれば、標準のフォントであっても、正しく右寄せされます。 Private Sub Form_Load() Picture1.AutoRedraw = True RightDraw Picture1, "1" RightDraw Picture1, "10" RightDraw Picture1, "100" End Sub Private Sub RightDraw(ByVal p As Object, ByVal s As String) p.CurrentX = p.ScaleWidth - p.TextWidth(s) p.Print s End Sub また、描画処理に拘るのでのでなければ、Print するのではなく、 Alignment = 右寄せ に設定した TextBox を使った方が楽かと思います。