刚注册的新手请各位帮忙

Question

我设计了一个SSTAB有4个tab,默认启动时是TAB0，其它的隐藏.还有3个check1(0),check1(1),check1(2),选择check1(0)则TAB1被选中，选择check1(1)则TAB2被选中，选择check1(2)则TAB3被选中。现在选择后能达到这个目的，但是选择后在取消就不能把相应的TAB取消，并调至TAB0.我的代码如下，请大家看看问题在那？Private Sub Form_Load()
Dim i As Integer
For i = 1 To 3 Step 1
 SSTab1.TabVisible(i) = 0
Next i
If i > 3 Then
SSTab1.Tab = 0
Else
End If
End SubPrivate Sub Check1_Click(Index As Integer)
Select Case Index
Case 0
SSTab1.TabVisible(1) = 1
SSTab1.Tab = 1
Case 1
SSTab1.TabVisible(2) = 1
SSTab1.Tab = 2
Case 2
SSTab1.TabVisible(3) = 1
SSTab1.Tab = 3
End Select
End Sub

Answer 1

if 
SSTab1.TabVisible(1) = 0
SSTab1.Tab = 0 
else
SSTab1.TabVisible(1) = 1 
SSTab1.Tab = 1 
end if

Answer 2

楼上的朋友，没太理解您的意思。是这样修改吗？Private Sub Form_Load()
Dim i As Integer
For i = 1 To 3 Step 1
 SSTab1.TabVisible(i) = 0
Next i
If i > 3 Then
SSTab1.Tab = 0
Else
End IfEnd Sub
Private Sub Check1_Click(Index As Integer)
Select Case Index
Case 0
If SSTab1.TabVisible(1) = 0 Then SSTab1.Tab = 0
ElseIf SSTab1.TabVisible(1) = 1 Then SSTab1.Tab = 1
End If
Case 1
If SSTab1.TabVisible(2) = 0 Then SSTab1.Tab = 0
ElseIf SSTab1.TabVisible(2) = 1 Then SSTab1.Tab = 2
End If
Case 2
If SSTab1.TabVisible(3) = 0 Then SSTab1.Tab = 0
ElseIf SSTab1.TabVisible(3) = 1 Then SSTab1.Tab = 3
End If
End SelectEnd Sub

Answer 3

Else后面不用if你这样很麻烦不要用组新建check好也方便编写程序

Answer 4

我怎么弄也不行啊！不论有无if.我是设置了一个SSTAB，它有9个TAB,每个tab又有很多command,text,check等控件，所以我要不用组的话我自己都记不住，没有办法啊，请问您有更好的方法吗？
Private Sub Check1_Click(Index As Integer)
Select Case Index
Case 0
If SSTab1.TabVisible(1) = 0 Then SSTab1.Tab = 0
Else SSTab1.Tab = 1
End If
Case 1
If SSTab1.TabVisible(2) = 0 Then SSTab1.Tab = 0
Else SSTab1.Tab = 2
End If
Case 2
If SSTab1.TabVisible(3) = 0 Then SSTab1.Tab = 0
Else SSTab1.Tab = 3
End If
End Select
End Sub

Answer 5

你按照功能定义这些tab比如第一个tab是做控制的你就设置成controltab这样就好记了用1 2 3这样的来记录当然不行了