[リストへもどる]　　　[VBレスキュー(花ちゃん)]
一括表示
投稿時間：2004/08/18(Wed) 20:54
投稿者名：long
Ｅメール：
ＵＲＬ　：
タイトル：タブストリップの選択したタブの色を変えるには？
フォームに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

投稿時間：2004/08/20(Fri) 14:34
投稿者名：これ
ＵＲＬ　：
タイトル：Re: タブストリップの選択したタブの色を変えるには？
> フォームにTabStrip1(0)と(1)の2つを貼り付けていて、現在
> 下記のようにコードを記述していますが、実行時にそれぞれ
> 選択したタブの色を青色に変化させることは可能でしょうか？
> よろしくお願いします。

　こんにちは。

PAPA'nVB
http://www.mitene.or.jp/~sugisita/

左メニュー部の
VB6->コモンコントロール
->TabStrip : タブストリップコントロール
-->タブストリップのオーナードロー

こちらが参考になるのではないでしょうか？

投稿時間：2004/08/20(Fri) 15:32
投稿者名：long
Ｅメール：
ＵＲＬ　：
タイトル：Re^2: タブストリップの選択したタブの色を変えるには？
これさん、回答ありがとうございます。
ご指示いただいた下記を確認しましたが、これではタブ
ストリップ全体に色がついてしまいます。
マウスで選択したタブ部分のみ色を変えたいのです。
どうかよろしくお願いします。

> PAPA'nVB
> 左メニュー部の
> VB6->コモンコントロール
> ->TabStrip : タブストリップコントロール
> -->タブストリップのオーナードロー
> こちらが参考になるのではないでしょうか？

投稿時間：2004/08/20(Fri) 15:55
投稿者名：魔界の仮面弁士
Ｅメール：
ＵＲＬ　：
タイトル：Re^3: タブストリップの選択したタブの色を変えるには？
> マウスで選択したタブ部分のみ色を変えたいのです。

TabStrip1.Tabs(番号).HighLighted = True

を使うとか。

投稿時間：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

投稿時間：2004/08/20(Fri) 18:15
投稿者名：魔界の仮面弁士
Ｅメール：
ＵＲＬ　：
タイトル：Re^5: タブストリップの選択したタブの色を変えるには？
> 変わりますが最初のタブ部分の色が元のグレー色に戻りません。

解除する場合は、False を代入しましょう。

投稿時間：2004/08/20(Fri) 18:55
投稿者名：long
Ｅメール：
ＵＲＬ　：
タイトル：Re^6: タブストリップの選択したタブの色を変えるには？
魔界に仮面弁士さん、回答ありがとうございます。

> 解除する場合は、False を代入しましょう。

上記のご指摘通りにコードを下記に加えて記述してみましたが、
以下のコードだと一方ではTrue、もう一方ではFalseということ
もあり、実行すると即「実行時エラー35600」が出てFalseの行
が黄色で反転表示となりました。
どうかよろしくお願いします。

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
              
               'TabStrip1(0)の選択タブのハイライト表示
               For m = 0 To 14
                   If .SelectedItem.Index = m Then
                        .Tabs(m).HighLighted = True
                   Else
                        .Tabs(m).HighLighted = False
                   End If
               Next m
           End With

投稿時間：2004/08/20(Fri) 20:46
投稿者名：long
Ｅメール：
ＵＲＬ　：
タイトル：解決しました。
なんとか解決しました。
魔界に仮面弁士さん、回答ありがとうございました。

投稿時間：2004/08/20(Fri) 17:33
投稿者名：これ
ＵＲＬ　：
タイトル：Re^3: タブストリップの選択したタブの色を変えるには？
> これさん、回答ありがとうございます。
> ご指示いただいた下記を確認しましたが、これではタブ
> ストリップ全体に色がついてしまいます。
> マウスで選択したタブ部分のみ色を変えたいのです。
> どうかよろしくお願いします。

　タブの部分とタブ本体(?)は別々に色をつけてありましたので
本体部分の処理を止めてしまえばいいと思ってました。
ソースにコメントがあったので大丈夫かとは思ったのですが・・・

投稿時間：2004/08/20(Fri) 20:47
投稿者名：long
Ｅメール：
ＵＲＬ　：
タイトル：解決しました。
なんとか解決しました。
これさん、回答ありがとうございました。