VB中怎么获取SSTab中每个Tab中的checkbox个数

for each ...next
语句

我现在只能找到全部的个数,还不能区分在哪个选项卡里

Private Sub Command1_Click()
Dim Che As Control
For Each Che In Form1
If TypeName(Che) = "CheckBox" And Che.Container.Name = "SSTab1" Then
i = i + 1
End If
Next

Print i

End Sub

单击SSTAB控件右键，弹出属性对话框，在通用一栏中更改就行了，它包括选项卡数和每行选项卡数两栏，分别改一下就行了，很简单的。

在窗体文件中有 Tab(0).ControlCount= 2
表示第1个Tab下有两个控件。
Tab(0).Control(0)= "Check2"
Tab(0).Control(1)= "Check3"
表示第一个tab下第一个控件名称为check2,第二个为check3.

sstab的tabs属性描述sstab有几个tab.

以此类推，如果 Tab(2).ControlCount= 1
表示第3个tab下有一个控件。