做一个计划管理,输入如下代码
Dim frm = Windows.Forms.Form.ActiveForm
If frm IsNot Nothing Then
If frm.Name = "Class197" OrElse frm.name = "Class260" Then
Dim tab
If frm.name = "Class197" Then
tab = frm.Controls("SplitContainer1").Panel1.Controls("MyCodeEditor21").Controls("SplitContainer1").Panel2.Controls("C1DockingTab1")
Else
tab = frm.Controls("MyCodeEditor1").Controls("SplitContainer1").Panel2.Controls("C1DockingTab1")
End If
If tab.tabpages(0).Name <> "FieldsPage" Then tab.TabPages.Insert(0,tab.controls("FieldsPage"))
If tab.tabpages(1).Name <> "WordPage" Then tab.TabPages.Insert(1,tab.controls("WordPage"))
If tab.tabpages(2).Name <> "HelpPage" Then tab.TabPages.Insert(2,tab.controls("HelpPage"))
'EventPage
'FieldsPage
'HelpPage
'CodePage
'IndexPage
'VarsPage
'WordPage
'FormPage
'MenuPage
'IntelligencePage
'SourcePage
'FunctionPage
'ConfigPage
End If
End If