以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]导航  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=89574)
--  作者：江南小城
--  发布时间：2016/8/24 19:02:00
--  [求助]导航
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)



老师好，上面代码是论坛上的，用红色标出的"新建"标题能属个设置名称吗和字体的大小。
--  作者：大红袍
--  发布时间：2016/8/24 19:21:00
--  

 设置字体，要总体设置。

 

o.font = new font("宋体", 12)
--  作者：江南小城
--  发布时间：2016/8/24 19:37:00
--  
老师，每个标题重新命名怎么设置
--  作者：大红袍
--  发布时间：2016/8/24 19:40:00
--  

Dim o = e.Form.Controls("Panel1").basecontrol.controls("o")
o.Pages("p1").Text = "123456"
--  作者：江南小城
--  发布时间：2016/8/24 20:17:00
--  
老师，有点搞不懂。
--  作者：大红袍
--  发布时间：2016/8/24 21:12:00
--  

Dim o As new C1.Win.C1Command.C1OutBar
o.name="o"
o.dock=5 \'锚定
o.VisualStyle=9 \'主题
o.pagetitleheight=22 \'页面高度

Dim p1 As new C1.Win.C1Command.C1OutPage \'新建页面
p1.name="aaa"
p1.text="bbb"
o.Pages.add(p1)

p1 = new C1.Win.C1Command.C1OutPage \'新建页面
p1.name="ccc"
p1.text="ddd"
o.Pages.add(p1)

e.Form.Controls("Panel1").basecontrol.controls.add(o)
--  作者：江南小城
--  发布时间：2016/8/24 22:01:00
--  
谢谢老师
--  作者：江南小城
--  发布时间：2016/8/25 11:24:00
--  
老师，怎样设置标题图标。
--  作者：Hyphen
--  发布时间：2016/8/25 11:32:00
--  
C1帮助