button放在Panel内,锚定采用的:Top, Left,停靠为:Top,发布正常如前下图
此主题相关图片如下:1.png
发布后就不正常,如下午图:
此主题相关图片如下:2.png
导航的afterload代码如下
Dim o As new C1.Win.C1Command.C1OutBar
o.name="o"
o.dock=5 '锚定
o.VisualStyle=9 '主题
o.pagetitleheight=30 '页面高度
'For i As Integer=1 To 5
Dim p1 As new C1.Win.C1Command.C1OutPage '新建页面
p1.name="p" & 1
p1.text="文件管理" '& 1
o.Pages.add(p1)
Dim p2 As new C1.Win.C1Command.C1OutPage '新建页面
p2.name="p" & 2
p2.text="人员业绩管理" '& 2
o.Pages.add(p2)
Dim p3 As new C1.Win.C1Command.C1OutPage '新建页面
p3.name="p" & 3
p3.text="招投标管理" '& 2
o.Pages.add(p3)
Dim p4 As new C1.Win.C1Command.C1OutPage '新建页面
p4.name="p" & 4
p4.text="保证金管理" '& 3
o.Pages.add(p4)
Dim p5 As new C1.Win.C1Command.C1OutPage '新建页面
p5.name="p" & 5
p5.text="工程款管理" '& 4
o.Pages.add(p5)
Dim p6 As new C1.Win.C1Command.C1OutPage '新建页面
p6.name="p" & 6
p6.text="piao据管理" '& 5
o.Pages.add(p6)
Dim p7 As new C1.Win.C1Command.C1OutPage '新建页面
p7.name="p" & 7
p7.text="财务管理" '& 6
o.Pages.add(p7)
Dim p8 As new C1.Win.C1Command.C1OutPage '新建页面
p8.name="p" & 8
p8.text="其他管理" '& 7
o.Pages.add(p8)
'Next
e.Form.Controls("Panel1").basecontrol.controls.add(o)
'加入到导航控件
e.Form.Controls("panel2").left=15
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=15
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=15
e.Form.Controls("panel4").top=0
e.Form.Controls("panel4").dock=5 '锚定
o.Pages("p3").controls.add(e.Form.Controls("panel4").basecontrol)
e.Form.Controls("panel5").left=15
e.Form.Controls("panel5").top=0
e.Form.Controls("panel5").dock=5 '锚定
o.Pages("p4").controls.add(e.Form.Controls("panel5").basecontrol)
e.Form.Controls("panel6").left=15
e.Form.Controls("panel6").top=0
e.Form.Controls("panel6").dock=5 '锚定
o.Pages("p5").controls.add(e.Form.Controls("panel6").basecontrol)
e.Form.Controls("panel7").left=15
e.Form.Controls("panel7").top=0
e.Form.Controls("panel7").dock=5 '锚定
o.Pages("p6").controls.add(e.Form.Controls("panel7").basecontrol)
e.Form.Controls("panel8").left=15
e.Form.Controls("panel8").top=0
e.Form.Controls("panel8").dock=5 '锚定
o.Pages("p7").controls.add(e.Form.Controls("panel8").basecontrol)
e.Form.Controls("panel9").left=15
e.Form.Controls("panel9").top=0
e.Form.Controls("panel9").dock=5 '锚定
o.Pages("p8").controls.add(e.Form.Controls("panel9").basecontrol)
[此贴子已经被作者于2018/1/2 13:43:05编辑过]