我认为这就是你所需要的。
Dim iTotalTabs = Me.TabControl1.TabCount()
Dim X As Integer
For X = 0 To iTotalTabs - 1
With Me.TabControl1.TabPages(X)
.Enabled = False
If .Name = "TabPage2" Or .Name = "TabPage4" Then
.Enabled = True
End If
End With
Next
如果这对您不起作用,请随时询问更多。
问候。