VB.NET Tips フォームに直接文字を縦に描画する。～パソコンの小技・備忘録

フォームに直接文字を縦に描画する。

フォームに直接文字を縦に描画する方法です。
こうした書式を設定する場合には、StringFormatを使うことで設定できます。

正直に言いまして、フォームに書くなら、Labelコントロールを使った方が、より簡単にできます。
ただ、この手法を使うこともありますし、ユーザーコントロールを自作するようになると必須です。

'フォームのGraphicsオブジェクトを取得。 Dim g As Graphics = Me.CreateGraphics() Dim strDraw As String = "テストです。" 'Fontオブジェクトを作る。 Dim fontTemp As New Font("MS UI Gothic", 20) 'StringFormatを作成。 Dim sfTemp As New StringFormat() '縦書きにする。 sfTemp.FormatFlags = StringFormatFlags.DirectionVertical '文字を表示。 g.DrawString(strDraw, fontTemp, Brushes.Black, 10, 0, sfTemp) 'リソースを開放する。 fontTemp.Dispose() g.Dispose()

上記を、フォームのPaintイベントなどで実行しますと、フォームに直接文字を縦に描画することができます。

パソコンの小技・備忘録

フォームに直接文字を縦に描画する。

トップページに戻る

サイト内検索

小技カテゴリー

カウンタ

メール送信