请教一个sstab的问题：如何把sstab的二个不同的选项卡交换顺序？

Question

我的sstab上目前有几个这样的选项卡，
多选题/判断题/填空题/问答题/系统设置/查询成绩等，现在领导说要增加一个单选题到最前面（就是把它放到多选题的前面），请问，该如何搞？

Answer 1

给你一个方法：
Private Sub InsertTab(objTable As SSTab, ByVal strCaption As String, ByVal Index As Long)
    Dim I As Long, K As Long
    
    With objTable
        K = .Tabs + 1
        If K > .TabsPerRow Then
            .TabsPerRow = K + 1
        End If
        .Tabs = K
        For I = K - 1 To Index + 1 Step -1
            .TabCaption(I) = .TabCaption(I - 1)
        Next
        .TabCaption(Index) = strCaption
    End With
End Sub

Answer 2

使用方法：
'在第二个Tab后面插入一个Tab，标题为"Test1"
Call InsertTab(Me.SSTab1, "Test1", 2)
'在第三个Tab后面插入一个Tab，标题为"Test2"
Call InsertTab(Me.SSTab1, "Test2", 3)