投稿日 | : 2004/08/18(Wed) 20:54 |
投稿者 | : long |
Eメール | : |
URL | : |
タイトル | : タブストリップの選択したタブの色を変えるには? |
フォームにTabStrip1(0)と(1)の2つを貼り付けていて、現在
下記のようにコードを記述していますが、実行時にそれぞれ
選択したタブの色を青色に変化させることは可能でしょうか?
よろしくお願いします。
' TabStrip1(左・右両チーム選手選択)処理
Private Sub Tabstrip1_Click(Index As Integer)
Dim I 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
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
End With
End Select