怎么在sstab中的某个tab中动态添加一个控件啊？

Question

这个也不行啊！！！
    u = Label2.UBound + 1
    Load Label2(u)
    SSTab1.Tabs(0).Add Label2(42)
    Label2(u).Visible = True
    Label2(u).Top = 3720

Answer 1

先把你要加的东西各加一个,INDEX设为0
        intche2 = 0
        inttop2 = 0
        intleft2 = 0
        frm_Main.stab.Tabs = 1
        frm_Main.stab.Caption = "none"
        For i = 1 To intche Step 1
            If Check(i).Value = 1 Then
                txt_a = txt_a + Check(i).Caption + ","
                If frm_Main.stab.Caption <> "none" Then
                    frm_Main.stab.Tabs = frm_Main.stab.Tabs + 1
                    frm_Main.stab.Tab = inttab
                    frm_Main.stab.Caption = Check(i).Caption
                    frm_Main.stab.Tab = 0
                    inttab = inttab + 1
                Else
                    frm_Main.stab.Caption = Check(i).Caption
                    inttab = 1
                End If
                Load lab2(i)
                lab2(i).Caption = Check(i).Caption + ":"
                If inttop2 = 0 Then inttop2 = 405
                lab2(i).Top = inttop2
                lab2(i).Visible = True
            End If
        Next
        If intche2 > i Then
            inttemp = intche2
        Else
            inttemp = i
        End If
        Exit Sub
    End If

Answer 2

Public Sub printfrm()
On Error GoTo myerr'---------构造主类窗体开始-----------------
    For i = 0 To 3
        If inttab = 0 Then
            inttab = 1
        Else
            inttab = inttab + 1
        End If
            stab.Tabs = inttab
        If stab.Caption <> "none" Then
            stab.Tab = i
            stab.Caption = str(i)
            stab.Tab = 0
        Else
            stab.Caption = str(i)
        End If
        
        stab.Tab = i
        maintop = 630
        mainleft = 1350
        '----------构造子类控件开始-------------
        arrno = 9 '这里是你要加载的控件的总数量
        If i < arrno Then            
            For n = 0 To UBound(strarr_c) - 1 Step 1
                If mainint = 0 Then mainint = 1
                If mainleft = 0 Then mainleft = 630
                stab.OLEDrag
                stab.OLEDropMode = ssOLEDropManual
                Load Lab(mainint)
                with Lab(mainint)
                        .Caption = strarr_d(0) + ""
                        .Top = maintop
                        .Left = 275
                        .Visible = True
                End With
        '----------构造子类窗体结束-------------
        End If
    Next i
    frm_Main.stab.Tab = 0
'-------------构造主类窗体结束--------------------
    frm_Main.Show
    Exit Sub
End Sub
主要方法是先把你要加载的Tab激活
stab.tab=1
stab.OLEDrag
stab.OLEDropMode = ssOLEDropManual
然后通过load label(i)把label加载到tab里
不要加重复了,不然会下标错误

Answer 3

'要先在窗口上画一个Label2,将它的index设置为0Private Sub Command1_Click()
Dim u As Integer
u = Label2.UBound + 1
Load Label2(u)
Label2(u).Visible = True
Label2(u).Top = 800
Label2(u).Left = 200
SSTab1.Tab = 2 '这个就是你想放到的SSTab1的哪个选项里
Set Label2(u).Container = SSTab1End Sub

Answer 4

以上方法都不起作用，我的label始终在第一个tab里，难道form或sstab还需要设置其它的属性吗？我也查了一些帖子，似乎都是这样，请多关注。我的修改后的源码如下：
'    u = Label2.UBound + 1
'    Load Label2(u)
'    Label2(u).Visible = True
'    Label2(u).Top = 3720
'    SSTab1.Tab = 3
'    Set Label2(u).Container = SSTab1
    SSTab1.Tab = 1
    SSTab1.OLEDrag
    SSTab1.OLEDropMode = ssOLEDropManual
    u = Label2.UBound + 1
    Load Label2(u)
    Label2(u).Visible = True
    Label2(u).Top = 3720

Answer 5

主要方法是先把你要加载的Tab激活
stab.tab=1
stab.OLEDrag
stab.OLEDropMode = ssOLEDropManual
然后通过load label(i)把label加载到tab里
不要加重复了,不然会下标错误
已测试通过

Answer 6

请问楼上，我的代码和你的应该一样吧，可就是不对，label还在第一个tab上。能不能把你测试用的程序发给我，[email protected],谢谢