タブコントロールの点滅

タメ子 2007-11-08 21:10:39 No: 138080

VB2005 WindowsXP

タブコントロールをオーナードローで色付けする方法をネット検索で
見つけたのですが、それを応用し、タイマーを使用して色を換え、
点滅しているように表示させたいのですが、うまく起動する方法が
わかりません。

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

'TabControlをオーナードローする
TabControl1.DrawMode = TabDrawMode.OwnerDrawFixed

End Sub

'TabControl1のDrawItemイベントハンドラ
Private Sub TabControl1_DrawItem(ByVal sender As Object, ByVal e As DrawItemEventArgs) Handles TabControl1.DrawItem

色を換える処理
End Sub

TimerのTick処理をどのようにすればよろしいでしょうか。。。

Hongliang 2007-11-08 21:40:22 No: 138081

Invalidate メソッドを使えば「ここだけ再描画しといて」って指示できます。
// 更に Update メソッドも使えば「さっき言った再描画の件、今すぐね」って指示もできます。負荷が大きくて描画が遅れる場合に必要かもしれません。

タメ子 2007-11-10 02:49:32 No: 138082

Hongliangさん

早速試してみます。
ありがとうございます。