Dim o As new C1.Win.C1Command.C1OutBar
o.name="o"
o.dock=5 '锚定
o.VisualStyle=9 '主题
o.pagetitleheight=22 '页面高度
For i As Integer=1 To 9
Dim p1 As new C1.Win.C1Command.C1OutPage '新建页面
p1.name="p" & i
p1.text="新建" & i
o.Pages.add(p1)
Next
e.Form.Controls("Panel1").basecontrol.controls.add(o)
'加入到导航控件
e.Form.Controls("panel2").left=0
e.Form.Controls("panel2").top=0
e.Form.Controls("panel2").dock=5 '锚定
o.Pages("p1").controls.add(e.Form.Controls("panel2").basecontrol)
e.Form.Controls("panel3").left=0
e.Form.Controls("panel3").top=0
e.Form.Controls("panel3").dock=5 '锚定
o.Pages("p2").controls.add(e.Form.Controls("panel3").basecontrol)
e.Form.Controls("panel4").left=0
e.Form.Controls("panel4").top=0
e.Form.Controls("panel4").dock=5 '锚定
o.Pages("p3").controls.add(e.Form.Controls("panel4").basecontrol)
老师好，上面代码是论坛上的，用红色标出的"新建"标题能属个设置名称吗和字体的大小。
加好友 
发短信
Post By：2016/8/24 19:02:00 [只看该作者]
