コントロールのTEXTを縦書きに

環境/言語:[XP　VB.net]
分類:[.NET]

TABコントロールで、耳を右につけていますが、
テキストを縦書きにしたいです。
できるのでしょうか?

■No2825に返信(うまさんの記事)
> TABコントロールで、耳を右につけていますが、
> テキストを縦書きにしたいです。
> できるのでしょうか?

自分で描画しましょう。オナードローを使ってください。

こんばんは、うまさん、りょうさん。ピラルクです。

> 自分で描画しましょう。オナードローを使ってください。

そこまで苦労しなくても良いみたいです。
これでどうでしょう。(デザイン時は縦になりませんが)
#そういえば旧VBであった@付Fontが出ないですね。

Private Sub Form1_Load(...
  With TabControl1.Font
    TabControl1.Font = New Font(.FontFamily, .Size, .Style, .Unit, .GdiCharSet, True)
  End With
End Sub

りょう様、ピラルク ファミリー様、返信どうもありがとうございます。
ピラルク ファミリー様の方法でやってみましたら、できました。
（ので、りょう様の方法は試しておりません）。
ちゃんと縦書きになりました。お二人とも、ご教授ありがとうございました。


■No2847に返信(ピラルクさんの記事)
> こんばんは、うまさん、りょうさん。ピラルクです。
>
>>自分で描画しましょう。オナードローを使ってください。
>
> そこまで苦労しなくても良いみたいです。
> これでどうでしょう。(デザイン時は縦になりませんが)
> #そういえば旧VBであった@付Fontが出ないですね。
>
> Private Sub Form1_Load(...
> With TabControl1.Font
> TabControl1.Font = New Font(.FontFamily, .Size, .Style, .Unit, .GdiCharSet, True)
> End With
> End Sub
>