请问谁会用Tabstrip控件呀，教教我吧～～～

Question

我用Tabstrip控件的时候遇到麻烦了，我用下面的代码来控制各个选项卡：Private Sub Tabstrip1_Click()
P1(TabStrip1.SelectedItem.Index).Visible = True
For i = 1 To TabStrip1.SelectedItem.Index - 1
P1(i).Visible = False
Next i
End Sub上面的的P1是一组图片框，上面的代码我从第一个选项卡开始按，其对应的图片框可以正常显示和隐藏，但接着又按回第一个选项的时候，图片框却不会隐藏。请问怎么解决呢？谢谢！

Answer 1

我以前是这么做的!!呵呵.现在不想想了!懒~~你看看吧
    Dim i As Integer
    
    For i = 0 To P1.UBound
        If i + 1 = TabStrip1.SelectedItem.Index Then
           P1(i).Visible = True
        Else
           P1(i).Visible = False
        End If
    Next

Answer 2

还要说明一下...p1数组是由0开始的~而TabStrip1却是从1开始的!

Answer 3

TO:daisy8675(莫依)
   主要为了省些资源!呵呵~~既然用了Common Control就无谓再加多一个控件了!不过,用TabStrip在设计时比较麻烦!如果在没有用Common Control这控件的情况下需要Tab页控件时.一般当然最好是用sstab啦!呵呵