导航分类 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 导航分类

共有2510人关注过本帖树形打印复制链接主题：导航分类

yifan3429

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2482 积分：22932 威望：0 精华：0 注册：2011/3/29 17:14:00

导航分类

Post By：2018/2/28 1:37:00 [只看该作者]

Dim o As new C1.Win.C1Command.C1OutBar

o.name="o"

o.dock=5 '锚定

o.VisualStyle=5 '主题

o.pagetitleheight=25 '页面高度

For i As Integer=1 To 4

Dim p1 As new C1.Win.C1Command.C1OutPage '新建页面

p1.name="p" & i

p1.text="新建" & i 这里需要建立不同的页面：财务系统订单制造 4个页面

o.Pages.add(p1)

e.Form.Controls("Panel1").basecontrol.controls.add(o)

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/2/28 9:02:00 [只看该作者]

Dim o As new C1.Win.C1Command.C1OutBar
o.name="o"
o.dock=5 '锚定
o.VisualStyle=5 '主题
o.pagetitleheight=25 '页面高度
Dim ary() As String = {"财务","系统","订单","制造"}
For i As Integer=1 To 4
    Dim p1 As new C1.Win.C1Command.C1OutPage '新建页面
    p1.name="p" & i
    p1.text=ary(i-1)
    o.Pages.add(p1)
Next

e.Form.Controls("Panel1").basecontrol.controls.add(o)