C# と VB.NET の質問掲示板

ASP.NET、C++/CLI、Java 何でもどうぞ

C# と VB.NET の入門サイト

Re[2]: pictureboxに縦書きして改行


(過去ログ 98 を表示中)

[トピック内 3 記事 (1 - 3 表示)]  << 0 >>

■58627 / inTopicNo.1)  pictureboxに縦書きして改行
  
□投稿者/ lino. (6回)-(2011/04/19(Tue) 00:30:33)

分類:[VB.NET/VB2005 以降] 

お世話になります。vb2010を使用しています。

textboxに表示した文字を、pictureboxに縦書きで表示するコードを作ったのですが、
改行するとpictureboxでは左に文字がいかず右にいってしまいます。

つまり、Textbox1.Text = "あした" & vbcrlf & "あめがふる"
とすると、こちらの意図としてはpictureboxに

ああ
めし
がた



と表示したいのですが、今の状態だと

ああ
しめ
たが
 ふ
 る

と表示されてしまいます。
これを直すにはどのようにすればよいのか、アドバイスをくださらないでしょうか。
よろしくお願いします。

ちなみにコード:
Dim Gra As Graphics
Dim Stf As New StringFormat(StringFormatFlags.DirectionVertical)

With PictureBox1
.Image = New Bitmap(.Width, .Height)
Gra = Graphics.FromImage(.Image)
End With

Gra.DrawString(TextBox1.Text, TextBox1.Font, Brushes.Black, 100, 0, Stf)

引用返信 編集キー/
■58628 / inTopicNo.2)  Re[1]: pictureboxに縦書きして改行
□投稿者/ shu (633回)-(2011/04/19(Tue) 07:54:14)
No58627 (lino. さん) に返信

> Dim Stf As New StringFormat(StringFormatFlags.DirectionVertical)

Dim Stf As New StringFormat(StringFormatFlags.DirectionVertical Or StringFormatFlags.DirectionRightToLeft)

これでどうでしょう?
引用返信 編集キー/
■58633 / inTopicNo.3)  Re[2]: pictureboxに縦書きして改行
□投稿者/ lino. (7回)-(2011/04/19(Tue) 11:27:54)
No58628 (shu さん) に返信
> ■No58627 (lino. さん) に返信
>
>> Dim Stf As New StringFormat(StringFormatFlags.DirectionVertical)
>
> Dim Stf As New StringFormat(StringFormatFlags.DirectionVertical Or StringFormatFlags.DirectionRightToLeft)
>
> これでどうでしょう?

できました!
ありがとうございます。
解決済み
引用返信 編集キー/


トピック内ページ移動 / << 0 >>

このトピックに書きこむ

過去ログには書き込み不可

管理者用

- Child Tree -