请问如何控制SSTab中不符合条件时用户不能点击其中的Tabs?
比喻,SSTab1中有TABS=2
现在需要控制SSTab1第二个Tab,用户不符合某条件时,只显示第一个Tab,不让用户切换到第二个Tab?

解决方案 »

  1.   

    Private Sub SSTab1_Click(PreviousTab As Integer)
        If 条件不符合 Then
            SSTab1.Tab = 0
        End If
    End Sub
      

  2.   

    按 faysky2 的方法做了 ,但运行时出现
    “未找到方法或数据成员”代码是这样:
    Private Sub SSTab1_Click(Index As Integer, PreviousTab As Integer)
        If icb6.Text = 未婚 Or icb6.Text = 离婚 Then
            SSTab1.Tab = 0
        Else
        End If
    End Sub郁闷ling……
      

  3.   

    "未婚" 和 "离婚" 应该得用双引号引起来吧
    Private Sub SSTab1_Click(Index As Integer, PreviousTab As Integer)
        If icb6.Text = "未婚" Or icb6.Text = "离婚" Then
            SSTab1.Tab = 0
        Else
        End If
    End Sub
      

  4.   

    你的SSTab1是不是做成了控件数组了?如果是,那应该这样:
    Private Sub SSTab1_Click(Index As Integer, PreviousTab As Integer)
        If icb6.Text = "未婚" Or icb6.Text = "离婚" Then
            SSTab1(Index).Tab = 0
        Else
        End If
    End Sub
      

  5.   

    ok了!
    thanks  faysky2