在TabStrip这种分页的控件中动态添加控件。

[zscjp]

如：
有一tabStrip命名为： tabRole
tabRole.tabs=4

Dim txtTotal As TextBox
'创建新的Textbox控件
Set txtTotal = Controls.Add("VB.TextBox", "txtTotal")

'将控件移动到你所需要的地方
txtTotal.Move 100, 500, 800, 600
'创建时，所有的控件都是不可见的
txtTotal.Visible = True

问题：
怎样把 txtTotal 控件添加到 tabRole 控件的第 2 页中？

即Set txtTotal = Controls.Add("VB.TextBox", "txtTotal") 这条语句怎么改？

[rainstormmaster]

//即Set txtTotal = Controls.Add("VB.TextBox", "txtTotal") 这条语句怎么改？

没有办法，因为TabStrip不是容器控件

[rainstormmaster]

//那如果用SSTab控件呢？

Option Explicit
Private Sub Form_Activate()
Static done As Boolean

SSTab1.Tab = 2

If done Then Exit Sub ' do this only once
done = True

With Controls.Add("VB.Label", "txtlabel1", SSTab1)
.Move 300, 600, 1900, 300
.Visible = True
.Caption = "Hello1"
End With
SSTab1.Tab = 1
With Controls.Add("VB.commandbutton", "cmdbutton1")
Set .Container = Me.SSTab1
.Move 1300, 1990, 1900, 300
.Visible = True
.Caption = "Hello2"
End With
End Sub

[zscjp]

那请问有什么类似的办法可以解决问题？谢谢。

[zscjp]

那如果用SSTab控件呢？