以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助] c1outbar  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=90521)

--  作者:zcgmxf
--  发布时间:2016/9/14 22:54:00
--  [求助] c1outbar

老师,论坛里的例子,我是门外汉,如何逐个定义p1.text="新建" & i 的名称  新建1 = 数据录入 新建2 = 数据查询

 

Dim o As new C1.Win.C1Command.C1OutBar
o.name="o"
o.dock=5 \'锚定
o.VisualStyle=9 \'主题
o.pagetitleheight=25 \'页面高度
For i As Integer=1 To 5
    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)

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:c1outbar导航控件.zip


--  作者:有点蓝
--  发布时间:2016/9/14 23:18:00
--  
Dim p1 As new C1.Win.C1Command.C1OutPage \'新建页面
p1.name="p1"
p1.text="数据录入"
o.Pages.add(p1)

p1 = C1.Win.C1Command.C1OutPage \'新建页面
p1.name="p2"
p1.text="数据查询"
o.Pages.add(p1)

--  作者:zcgmxf
--  发布时间:2016/9/16 18:40:00
--  

谢谢!