Select Case Me.SSTab1.Caption case ... ..... case ... ..... End Select
Dim I As Integer Select Case Me.SSTab1.Caption Case "Tab 0" For I = 1 To 10 Text(I).Visible = True Next Case "Tab 1" For I = 1 To 10 Text(I).Visible = False Next
End Select 类似这样吧。
Private Sub SSTab1_Click(PreviousTab As Integer) Select Case PreviousTab Case 1 For I = 1 To 10 Text(I).Visible = True Next Case 2 For I = 1 To 10 Text(I).Visible =false Next Case 0 For I = 1 To 10 Text(I).Visible =false Next End Select End Sub 这样,也许可以吧
case ...
.....
case ...
.....
End Select
Select Case Me.SSTab1.Caption
Case "Tab 0"
For I = 1 To 10
Text(I).Visible = True
Next
Case "Tab 1"
For I = 1 To 10
Text(I).Visible = False
Next
End Select
类似这样吧。
Select Case PreviousTab
Case 1
For I = 1 To 10
Text(I).Visible = True
Next
Case 2
For I = 1 To 10
Text(I).Visible =false
Next
Case 0
For I = 1 To 10
Text(I).Visible =false
Next
End Select
End Sub
这样,也许可以吧