Private Sub SSTab1_Click(PreviousTab As Integer) If 条件不符合 Then SSTab1.Tab = 0 End If End Sub
按 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……
"未婚" 和 "离婚" 应该得用双引号引起来吧 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
你的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
If 条件不符合 Then
SSTab1.Tab = 0
End If
End Sub
“未找到方法或数据成员”代码是这样:
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……
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
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
thanks faysky2