文字を折り返したときに…
- 題名: 文字を折り返したときに…
- 著者: takamasa
- 日時: 2007/11/01 14:52:02
- ID: 20849
- この記事の返信元:
- この記事への返信:
- ツリーを表示
- 題名: Re[1]: 文字を折り返したときに…
- 著者: まどか
- 日時: 2007/11/01 15:13:05
- ID: 20850
- この記事の返信元:
- この記事への返信:
- ツリーを表示
- 題名: Re[1]: 文字を折り返したときに…
- 著者: じゅで
- 日時: 2007/11/01 22:07:32
- ID: 20855
- この記事の返信元:
- この記事への返信:
- ツリーを表示
- 題名: Re[2]: 文字を折り返したときに…
- 著者: takamasa
- 日時: 2007/11/02 11:17:22
- ID: 20858
- この記事の返信元:
- この記事への返信:
- ツリーを表示
- 題名: Re[3]: 文字を折り返したときに…
- 著者: じゅで
- 日時: 2007/11/02 12:01:12
- ID: 20859
- この記事の返信元:
- この記事への返信:
- ツリーを表示
- 題名: Re[4]: 文字を折り返したときに…
- 著者: takamasa
- 日時: 2007/11/02 12:23:53
- ID: 20860
- この記事の返信元:
- この記事への返信:
- ツリーを表示
分類:[.NET]
はじめまして現在卒業研究を作成している専門学生のtakamasaと申します。
どうしても分からないことがあるので質問させていただきます。
どうかみなさまご教授いただければありがたいです。
質問内容は↓
textboxの文字をpictureboxに縦書きで描画します。
文字がpictureboxからはみでたら折り返して左の行に表示されるようにしています。
折り返したときに残りの文字が上から表示されるのですが、それを下から表示されるようにしたいです。
コードは
Dim g As Graphics = PictureBox1.CreateGraphics()
Dim drawString As String = TextBox1.Text
'Fontオブジェクトの作成
Dim fnt As New Font("MS 明朝", 15)
'StringFormatを作成
Dim sf As New StringFormat
'縦書きにする
sf.FormatFlags = StringFormatFlags.DirectionVertical Or StringFormatFlags.DirectionRightToLeft
Dim rect As New RectangleF(0, 0, PictureBox1.Size.Width, PictureBox1.Size.Height)
g.FillRectangle(Brushes.White, rect)
'文字を表示
g.DrawString(drawString, fnt, Brushes.Red, rect, sf)
'リソースを開放する
fnt.Dispose()
g.Dispose()
こんな感じで書いています。
よろしくお願いします。