主题：[求助]Tabcontrol控件如何使第一页无法被关闭

根据帮助，在tabcontrol控件的doubleclick，设置e.Sender.SelectedPage.Visible = False

可以实现关闭页面的作用，但是如何禁止关闭第一页呢？

请大家帮助

if e.Sender.SelectedIndex > 0 then

    e.Sender.SelectedPage.Visible = False

end if

谢谢您的回复，可是又有一个问题，我关闭了页签，怎么在用按钮打开呢？

我在page1中一个按钮设置了

Forms("窗口1").Controls("TabControl1").Selectedpage = Forms("窗口1").Controls("TabControl1").TabPages("page2")

 

但是怎么都切换不了这个页面了

 

Forms("窗口1").Controls("TabControl1").TabPages("page2").Visible = True

Forms("窗口1").Controls("TabControl1").Selectedpage = Forms("窗口1").Controls("TabControl1").TabPages("page2")

谢谢，我就是按照这样弄出来的，因为第一次关闭了之后，其他的不可见，现在需要写代码可见，已经搞定

'e.Form.Controls("TabControl1").SelectedIndex = 1
'e.form.Controls("TabControl1").TabPages(1).visible = True
我这样弄的

真是不好意思，问题总是没完没了。。。。。

我想进入窗口的时候，除了第一个页面不隐藏之外，其他的都隐藏。需要的时候再打开，不需要的时候关闭。

我这样设置了（窗口的AFTERLOAD）

For Each pg As WinForm.TabPage In Forms("窗口1").Controls("TabControl1").TabPages
   pg.Visible = False
Next

Forms("窗口1").Controls("TabControl1").TabPages("page1").Visible = True

Forms("窗口1").Controls("TabControl1").Selectedpage = Forms("窗口1").Controls("TabControl1").TabPages("page1")

 

结果总是报错，麻烦狐爸再帮我一把，谢谢

已经搞定了

但为什么不能向上面的那样呢

Dim p1 As WinForm.TabPage
p1 = Forms("窗口1").Controls("TabControl1").TabPages(1)
p1.Visible = False

 

 不知道报什么错，不好解释，代码看着没什么错吧。