主题：现在的页面合集的标签可以改标签背景色了吗？

现在的页面合集的标签可以改标签背景色了吗？

Dim tab As WinForm.TabControl = e.Form.Controls("TabControl2")
Dim Name As String = "部门信息"

tab.TabPages.Add(name,name)
Dim pb = tab.BaseControl
Forms(Name).OPEN(-1000,-1500)
Forms(Name).BaseForm.TopLevel = False
Forms(Name).BaseForm.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
Forms(Name).BaseForm.Dock = System.Windows.Forms.DockStyle.Fill
PB.TabPages(name).Controls.Clear
PB.TabPages(name).Controls.add(Forms(Name).BaseForm)
tab.SelectedPage = tab.TabPages(name)

 

 

 

 

 

这个是增加的代码，关闭增加的这个页面的代码怎么写呢？求个代码

他那个是用控件上面的那个X图形关闭页面，但是那种关闭方法只是关闭页面合集的页面不会对页面内空间是否发生变化进行代码判断，一律关掉，不试用我的功能，想知道那个关闭X图形的具体代码，我放到页面合集里面的内置窗口中的关闭按钮上，如果只是窗口关闭的话，那那个页面合集的标题还在里面的窗口没了，想关闭窗口的同时关闭那个页面合集标题，求那个关闭X号的关闭代码。

我不忘全局代码里面写，

我写在当前打开的页面里面的窗口中的关闭按钮上，同时关闭这个当前页面和这个窗口，代码怎么写啊，不往全局代码里面写

OK 谢谢   这个只能用delete是吧？不能用visiable是吗？

Dim tab As WinForm.TabControl = e.Form.Controls("TabControl2")
Dim Name As String = "部门信息"

tab.TabPages.Add(name,name)
Dim pb = tab.BaseControl
Forms(Name).OPEN(-1000,-1500)
Forms(Name).BaseForm.TopLevel = False
Forms(Name).BaseForm.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
Forms(Name).BaseForm.Dock = System.Windows.Forms.DockStyle.Fill
PB.TabPages(name).Controls.Clear
PB.TabPages(name).Controls.add(Forms(Name).BaseForm)
tab.SelectedPage = tab.TabPages(name)

 

 

 

 

这个代码帮忙完善一下吧，当已经有了部门信息这个页面后就不允许再增加了。与这个代码整合到一起，该怎么写

这些代码是放在按钮中的，点击的时候会增加一个页面出来，页面里面有引用的窗口，再点击一下又会出现一个一样名字的页面，里面就是空的了，再点击，还会出现同名的空页面，不想让他出现重复名字的空页面，也就是说完善一下这个代码，让他页面名字有了的话就不能再增加页面了。

谢谢，这个放在每个按钮上估计会写很多，做成内部函数好，还是全局代码好呢？

我试一下看看能不能写出来