Foxtable(狐表)用户栏目专家坐堂 → 发布前后,Button顺序不一样


  共有1808人关注过本帖树形打印复制链接

主题:发布前后,Button顺序不一样

帅哥哟,离线,有人找我吗?
cd_tdh
  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐精 帖子:3205 积分:21311 威望:0 精华:0 注册:2016/3/28 16:57:00
发布前后,Button顺序不一样  发帖心情 Post By:2018/1/2 13:40:00 [只看该作者]

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编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/1/2 14:31:00 [只看该作者]

外面的导航应该没问题的吧?是你里面的panel的控件排序有问题?

 

你试试给panel里面的控件控制顺序,如 AfterLoad事件

 

e.form.Controls("Button1").basecontrol.BringToFront '置前
e.form.Controls("Button2").basecontrol.BringToFront '置前


 回到顶部
帅哥哟,离线,有人找我吗?
鲁吉
  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:711 积分:5356 威望:0 精华:0 注册:2013/5/27 9:48:00
  发帖心情 Post By:2018/1/3 21:54:00 [只看该作者]

是房地产业的同行啊??

 回到顶部
帅哥哟,离线,有人找我吗?
cd_tdh
  4楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐精 帖子:3205 积分:21311 威望:0 精华:0 注册:2016/3/28 16:57:00
  发帖心情 Post By:2018/1/3 21:56:00 [只看该作者]

我们主要做施工的

 回到顶部
帅哥哟,离线,有人找我吗?
鲁吉
  5楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:711 积分:5356 威望:0 精华:0 注册:2013/5/27 9:48:00
  发帖心情 Post By:2018/1/3 22:06:00 [只看该作者]

对你的项目有点兴趣,我是行业管理部门的

 回到顶部