高分求Stab的用法,和如果在Stab上加载控件

Question

如题,我想代码控件Sstab的tab数和标题,需要通过代码在Sstab上加载控件
高分求救

Answer 1

这是我原来做过的一个,需要把Stab第一个的名称设为"none"
调试过没问题,你可以参考一下
 For i = 0 To UBound(strarr_a) - 1 Step 1
        If inttab = 0 Then
            inttab = 1
        Else
            inttab = inttab + 1
        End If
        frm_Main.stab.Tabs = inttab
        If frm_Main.stab.Caption <> "none" Then
            frm_Main.stab.Tab = i
            frm_Main.stab.Caption = strarr_a(i)
            frm_Main.stab.Tab = 0
        Else
            frm_Main.stab.Caption = strarr_a(i)
        End If
        
        frm_Main.stab.Tab = i
        maintop = 630
        mainleft = 1350
        '----------构造子类窗体开始-------------
        arrno = UBound(strarr_b)
        If i < arrno Then
            strarr_c = Split(strarr_b(i), "/")
            
            For n = 0 To UBound(strarr_c) - 1 Step 1
                If mainint = 0 Then mainint = 1
                strarr_d = Split(strarr_c(n), ",")
                If mainleft = 0 Then mainleft = 630
                With frm_Main
                    .stab.OLEDrag
                    .stab.OLEDropMode = ssOLEDropManual
                Load frm_Main.Lab(mainint)
                    With frm_Main.Lab(mainint)
                        .Caption = strarr_d(0) + ""
                        .Top = maintop
                        .Left = 275
                        .Visible = True
                    End With
                Load frm_Main.Com(mainint)
                End With
                mainint = mainint + 1
                mainleft = 1350
        
                '---------构造明细窗体开始---------
                For v = 1 To UBound(strarr_d) - 1 Step 1
                    If mainleft = 0 Then mainleft = 1350
                    If maintop = 0 Then maintop = 630
                    Load frm_Main.Lab(mainint)
                    With frm_Main.Lab(mainint)
                        .Caption = strarr_d(v)
                        .Visible = True
                    End With
                    Load frm_Main.Com(mainint)
                    If mainleft > (12000 - frm_Main.Lab(mainint).Width - frm_Main.Com(mainint).Width) Then
                        mainleft = 1350
                        maintop = maintop + frm_Main.Com(mainint).Height + 40
                    End If
                    With frm_Main.Lab(mainint)
                        .Top = maintop
                        .Left = mainleft
                        .Visible = True
                    End With
                    With frm_Main.Com(mainint)
                        .Top = maintop
                        .Left = mainleft + frm_Main.Lab(mainint).Width + 5
                        .Visible = True
                    End With
                        mainleft = frm_Main.Com(mainint).Left + frm_Main.Com(mainint).Width + 30
                        mainint = mainint + 1
                Next v
                maintop = frm_Main.Com(mainint - 1).Top + frm_Main.Com(mainint - 1).Height + 150
                '---------构造明细窗体结束---------
            Next n
           frm_Main.Lab(0).Top = 630
        '----------构造子类窗体结束-------------
        End If
    Next i