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

Question

如：
有一tabStrip命名为： tabRole
tabRole.tabs=4Dim 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") 这条语句怎么改？

Answer 1

//即Set txtTotal = Controls.Add("VB.TextBox", "txtTotal") 这条语句怎么改？没有办法，因为TabStrip不是容器控件

Answer 2

//那如果用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