TabControl のページタイトル部の BackColor を変更したい。

uprushさんの書き込み (2007-10-28 18:46) より:

僕もこのページを参考して作りました。また、最後のところ、リソースの開放がいると思います。

コード:
'リソース開放 foreBrush.Dispose() backBrush.Dispose() e.Graphics.Dispose()

だんじりさんの書き込み (2007-10-30 09:46) より:

教えていただいたサイトを早速テストしていますが、次の２行がエラー（TabPagesは
DataGridView1.TabControlのメンバーではありません）になります。

TabPagesはDataGridView1.TabControlのメンバーではありません。
Dim tab As TabControl = CType(sender, TabControl)'--対象のTabControlを取得

だんじりさんの書き込み (2007-10-30 13:00) より:

ご指摘の「senderがDataGridView1に置き換わってメッセージされてますので 」とのことですが、私にはその意味が分りかねます。恐れ入りますがもう少しレベルダウンして教えていただけないでしょうか。

DrawItem イベントは次の通りフォームのLoadで設定しました。
AddHandler TabC.DrawItem, AddressOf TabC_DrawItem '--DrawItemイベントハンドラ
（※TabCはTabControlの名前です）

だんじりさんの書き込み (2007-10-30 10:56) より:
ぽぴ王子（本物）さん、解答ありがとうございます。
リソース開放の件、了解しました。問題ないならこのままにします。

TabControlのタブを自分で描画する（DOBON.NET）より：

コード:

'TabControl1のDrawItemイベントハンドラ Private Sub TabControl1_DrawItem( _ ByVal sender As Object, ByVal e As DrawItemEventArgs) '対象のTabControlを取得 Dim tab As TabControl = CType(sender, TabControl) 'タブページのテキストを取得 Dim txt As String = tab.TabPages(e.Index).Text 'タブのテキストと背景を描画するためのブラシを決定する Dim foreBrush, backBrush As Brush If e.State = DrawItemState.Selected Then '選択されているタブのテキストを赤、背景を青とする foreBrush = Brushes.Red backBrush = Brushes.Blue Else '選択されていないタブのテキストは灰色、背景を白とする foreBrush = Brushes.Gray backBrush = Brushes.White End If 'StringFormatを作成 Dim sf As New StringFormat '中央に表示する sf.Alignment = StringAlignment.Center sf.LineAlignment = StringAlignment.Center '背景の描画 e.Graphics.FillRectangle(backBrush, e.Bounds) 'Textの描画 Dim rectf As New RectangleF( _ e.Bounds.X, e.Bounds.Y, e.Bounds.Width, e.Bounds.Height) e.Graphics.DrawString(txt, e.Font, foreBrush, rectf, sf) End Sub