sstab 控件，一句话问答

Question

如何遍历每个tab ？按f2看了半天，也不知道怎么定位一个子tab，甚至好像没有储存这些tab的集合

Answer 1

找了个方法，不知道是不是正解
Dim i As Integer
i = 0
For i = 0 To SSTab.Tabs - 1
  SSTab.Tab = i
  MsgBox SSTab.Caption
Next

Answer 2

如何遍历每个tab ？
_____________________________
    '使用Tabs就可遍历所有Tab
    Dim i As Integer
    For i = 0 To SSTab1.Tabs - 1
        ..............
    Next iTabs 属性（SSTab 控件）
      返回或设置 SSTab 控件上的选项卡总数。语法object.Tabs [ = tabnumber ]Tabs 属性的语法包含下面部分：部分 描述 
object 对象表达式，其值是 SSTab 控件。 
tabnumber 数值表达式，它指定应出现在控件上的选项卡数目。自动将标题 Tabx 赋给选项卡，这里的 x 是 0，1，2，3 等等。 
说明可在运行时更改 Tabs 属性，从而添加新的选项卡或删除选项卡。在设计时，用 Tabs 属性连同 TabsPerRow 属性来决定控件显示的选项卡的行数。在运行时要使用 Rows 属性。
___________________________________________________________________________
按f2看了半天，也不知道怎么定位一个子tab，甚至好像没有储存这些tab的集合
——————————————————————————————
sstab1.Tab= i 'i是你要定位的页面索引，如第一页为0，以此类推... 
Tab 属性（SSTab 控件）
      返回或设置 SSTab 控件的当前选项卡。语法object.Tab [ = tabnumber ]Tab 属性的语法包含下面部分：部分 描述 
object 对象表达式，其值是 SSTab 控件。 
tabnumber 数值表达式，它指示一个特定选项卡。第一个选项卡总是 0。 
说明当前选项卡移动到前面并成为活动选项卡。一般说来，应用程序的用户单击选项卡，使之成为当前选项卡。但可能需要在代码中选择当前选项卡。例如，每次在应用程序中显示某个特定的对话框时，可能会希望相同的选项卡成为当前选项卡。如果用 Form 的 Hide 方法来解除对话框，当对话框下一次出现而且 Form 被隐藏起来时，最后的选项卡就成为活动选项卡。可以这样设置 SSTab 控件的 Tab 属性，使得在对话框每次出现时，相同的选项卡都是活动的。

Answer 3

正在学习中顺便问一下等会可能要碰到的问题如何确定tab 0 成了 tab 1，也就是说用户点了下一个tab 1的时候，我需要清空tab 0的数据
因为我的几个tab都是操作相同的几个公有变量的，不能搞混淆

Answer 4

if sstab1.tab=1 then
  debug.print "用户点了tab1"
  ...清空tab0的数据代码
end if

Answer 5

我试过，可是 
当click事件发生的时候，sstab1.tab 的值已经改变为1了
我如何操作上一个值为0的呢？
以下代码会死循环，因为给sstab1.tab赋植的时候，会触发click事件
Private Sub SSTab1_Click(PreviousTab As Integer)
SSTab1.Tab = PreviousTab
End Sub
不过看了一下，下面的两个代码可以在click中运行，而且不是对当前页的操作
SSTab1.TabCaption(sIndex As Integer) as string
SSTab1.TabEnabled(sIndex As Integer) as boolean
其中的sIndex As Integer换成previoustab就可以了可能是我没理解过来，也许sstab里面的tab不象treeview里面的node
干脆先在click里面加个超级麻烦的select case再说了。最近有点头昏了的