Dim MainTab As C1.Win.C1Command.C1DockingTab = ctype(BaseMainForm.Controls("MainPages"),C1.Win.C1Command.C1DockingTab)
MainTab.CanCloseTabs = True
MainTab.ShowTabs = True
MainTab.ShowTabList = True
MainTab.TabPages(0).tabvisible = False
MainTab.TabPages(1).tabvisible = False
MainTab.TabPages(2).tabvisible = False
MainTab.TabPages(3).tabvisible = False
Dim x As C1.Win.C1Command.C1DockIngTabPage = new C1.Win.C1Command.C1DockIngTabPage
'x = new C1.Win.C1Command.C1DockIngTabPage
x.Capti
x.name = "newpage"
x.text="NewPage"
x.backgroundimage = getimage("A.jpg")
x.BackgroundImageLayout = windows.Forms.imagelayout.stretch
If maintab.tabpages.contains(x) = False Then
maintab.close(x)
maintab.tabpages.add(x)
End If
其实是因为加了以上的代码造成的。唉
[此贴子已经被作者于2011-12-19 16:00:40编辑过]
加好友 
发短信
Post By：2011/12/19 15:41:00 [只看该作者]
此主题相关图片如下：pic25.jpg