Question

vb6 sstab1隐藏选项卡的问题

在sstab1每个选项卡加了关闭按钮，但只剩最后一个选项卡时，想让关闭无效，怎么判断还剩一个选项卡？

Answer 1

Tabs 属性（SSTab 控件）
返回或设置 SSTab 控件上的选项卡总数。

追问

我现在设置了三个总选项卡 ，设置的按钮隐藏了两个，最后剩一个选项卡，（此时选项卡总数还是3）不让其关闭，怎么判断?

追答

SSTab1.TabVisible(1) = False
SSTab1.TabVisible(2) = False
For i = 0 To SSTab1.Tabs - 1
If Not SSTab1.TabVisible(i) Then
x = x + 1
End If
Next

Debug.Print SSTab1.Tabs - x