如何使TabControl中的某个TabPage呈现不可用状态

[sunmaoyou]

再vb.net中，如何使TabControl中的某个TabPage呈现不可用状态。
具体为：button按钮设置为button.enabled=false时，那种灰色的状态。
Tabpage也可以呈现灰色，但是现在对方的要求是直接不能单击Tabpage.
比如说，我又一个tabControl，还有三个tabpage,分别为tabpage1，tabpage2，tabpage3。我首先显示tabpage1，这时候tabpage2和tabpage3根本就不能单击。
各位，如何实现？

[AntingZ]

好象没有属性可以直接控制

[AntingZ]

try:

Dim m_isel As Int32 = 0 '可以选择哪个

Private Sub sel(ByVal iSel As Int32)
If iSel >= 0 AndAlso iSel < Me.TabControl1.TabCount Then
m_isel = iSel
Me.TabControl1.SelectedIndex = iSel
End If
End Sub

Private Sub TabControl1_SelectedIndexChanged(...)
Me.TabControl1.SelectedIndex = m_isel
End Sub

Private Sub Button1_Click()
sel(0)
End Sub

Private Sub Button2_Click()
sel(1)
End Sub

Private Sub Button3_Click()
sel(2)
End Sub

[AntingZ]

我把参数漏了，全写就是这样：
Private Sub TabControl1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TabControl1.SelectedIndexChanged
Me.TabControl1.SelectedIndex = m_isel
End Sub

Button的click事件应该知道，不全写了！

[sunmaoyou]

谢谢AntingZ(夕惕若) 。
但是我的意思不是如何显示，而是如何不显示。
如果他不单击button,而是直接单击tabpage怎么办！
难道真的没有办法吗？

[AntingZ]

如果他不单击button,而是直接单击tabpage怎么办？
---------------------------------
哈哈，看来你是没有测试，我上面的代码就可以防止他单击tabpage

[AntingZ]

新建一个窗体，上面放3个按扭，一个TabControl1，TabControl1加3个tabPage
然后+以下代码：

　　Dim m_isel As Int32 = 0 '可以选择哪个

Private Sub sel(ByVal iSel As Int32)
If iSel >= 0 AndAlso iSel < Me.TabControl1.TabCount Then
m_isel = iSel
Me.TabControl1.SelectedIndex = iSel
End If
End Sub

Private Sub TabControl1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TabControl1.SelectedIndexChanged
Me.TabControl1.SelectedIndex = m_isel
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
sel(0)
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
sel(1)
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
sel(2)
End Sub