SSTAB控件问题

Question

我希望做成的效果是：几个分项页连在一起，用“上一步”和“下一步“按钮
实现不同分项页之间的切换，不希望用户自己点击选择页面请教如何屏蔽或者禁用除当前分项页外 别的分项页

Answer 1

我自己写了几句测试Private Sub SSTab1_Click(PreviousTab As Integer)    If Not blnCMD Then
        blnCMD = True
        SSTab1.Tab = PreviousTab
    Else
        blnCMD = False
    End If
    
End SubblnCMD为布尔变量，指明sstab的触发是按钮的还是直接点击SSTAB造成的可以实现我想要的效果，不过感觉怪怪的，请教有更好的方法么

Answer 2

Private Sub cmdNext_Click()
    If SSTab1.Tab < SSTab1.Tabs - 1 Then
        SSTab1.TabEnabled(SSTab1.Tab) = False
        SSTab1.Tab = SSTab1.Tab + 1
        SSTab1.TabEnabled(SSTab1.Tab) = True
    End If
End SubPrivate Sub cmdPre_Click()
    If SSTab1.Tab > 0 Then
        SSTab1.TabEnabled(SSTab1.Tab) = False
        SSTab1.Tab = SSTab1.Tab - 1
        SSTab1.TabEnabled(SSTab1.Tab) = True
    End If
End SubPrivate Sub Form_Load()
    SSTab1.TabEnabled(0) = True
    SSTab1.TabEnabled(1) = False
    SSTab1.TabEnabled(2) = False
End Sub