| 投稿日 | ： 2004/08/20(Fri) 17:34 |
| 投稿者 | ： long |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re^4: タブストリップの選択したタブの色を変えるには？ |
魔界の仮面弁士さん、回答ありがとうございます。
> TabStrip1.Tabs(番号).HighLighted = True
> を使うとか。
上記のご意見を参考に下記のようにコードを記述してみました。
現状では実行時にタブを選択するとタブ部分の色が青色に変化し
たのですが、続いて隣のタブを選択すると先ほどと同様に青色に
変わりますが最初のタブ部分の色が元のグレー色に戻りません。
よろしくお願いします。
Private Sub Tabstrip1_Click(Index As Integer)
Dim I As Integer
Dim M As Integer
Select Case Index
Case 0
'TabStrip1(0) Frame1Groupの処理
With TabStrip1(Index)
For I = 0 To 14
If .SelectedItem.Index - 1 = I Then
Frame1(I).ZOrder
Frame1(I).Visible = True
Else
Frame1(I).Visible = False
End If
Next I
For M = 0 To 14
If .SelectedItem.Index = M Then
.Tabs(M).HighLighted = True
End If
Next M
End With
Case 1
'TabStrip1(1) Frame2Groupの処理
With TabStrip1(Index)
For I = 0 To 14
If .SelectedItem.Index - 1 = I Then
Frame2(I).ZOrder
Frame2(I).Visible = True
Else
Frame2(I).Visible = False
End If
Next I
For M = 0 To 14
If .SelectedItem.Index = M Then
.Tabs(M).HighLighted = True
End If
Next M
End With
End Select