[求助]自动排列控件间距 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]自动排列控件间距

共有2585人关注过本帖树形打印复制链接主题：[求助]自动排列控件间距

blsu33

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

加好友

发短信

等级：九尾狐帖子：2927 积分：20161 威望：0 精华：0 注册：2012/2/3 17:45:00

[求助]自动排列控件间距 发帖心情

Post By：2018/5/22 9:50:00 [显示全部帖子]

老师，

动态添加的控件，如何能自动根据PANL 的宽高排列控件的间距呢？

下载信息 [文件大小：下载次数： ]
点击浏览该文件:控件间距.table

blsu33

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

加好友

发短信

等级：九尾狐帖子：2927 积分：20161 威望：0 精华：0 注册：2012/2/3 17:45:00

Post By：2018/5/22 9:52:00 [显示全部帖子]

希望每行 2或3组多余的另起一行

此主题相关图片如下：qq图片20180522095106.png

blsu33

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

加好友

发短信

等级：九尾狐帖子：2927 积分：20161 威望：0 精华：0 注册：2012/2/3 17:45:00

Post By：2018/5/23 6:35:00 [显示全部帖子]

老师，

后续排版是手工弄（增加列填写left top）还是代码调整呢？

例如 Lable 有4个字符如经济类型有两个字符的如性别两个都是左对齐

可是对应的位置 TEXTBOX 就不对齐了，怎么写代码能让界面控件再好看些

blsu33

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

加好友

发短信

等级：九尾狐帖子：2927 积分：20161 威望：0 精华：0 注册：2012/2/3 17:45:00

Post By：2018/5/23 20:54:00 [显示全部帖子]

Dim lablen As Integer=DataTables("控件类型").Compute(Max(length([pouttabcolcap])),co ntrolgzid='jd0101'")

这样写不行？

[此贴子已经被作者于2018/5/23 20:55:55编辑过]

blsu33

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

加好友

发短信

等级：九尾狐帖子：2927 积分：20161 威望：0 精华：0 注册：2012/2/3 17:45:00

Post By：2018/5/23 22:38:00 [显示全部帖子]

老师，

您再给看看没对齐另外三行控件行距能在小点怎么改改成两行怎么写？

下载信息 [文件大小：下载次数： ]
点击浏览该文件:控件间距 (1).table

[此贴子已经被作者于2018/5/23 22:38:24编辑过]

blsu33

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

加好友

发短信

等级：九尾狐帖子：2927 积分：20161 威望：0 精华：0 注册：2012/2/3 17:45:00

Post By：2018/6/9 21:37:00 [显示全部帖子]

老师，

想要4列两行怎么写下面的格式不对

For Each dr3 As DataRow In drs2

Dim lb = dic("lb_" & dr3("pouttabcolcap"))

Dim kj = dic("kj_" & dr3("pouttabcolcap"))

lb.top = iif(i Mod 4 = 0, 5, 8+(i\4)*h)

lb.left = iif(i Mod 4 = 0, 5, i*w+lablen)

lb.backcolor=color.red

lb.text = dr3("pouttabcolcap").padleft(len-dr3("pouttabcolcap").length) & ":"

kj.top = iif(i Mod 4 = 0, 5, 8+(i\4)*h)

kj.left = iif(i Mod 4 = 0, 5, i*w+lablen) + lablen

kj.width=180

i += 1

下一主题 >> << 上一主题

主题：[求助]自动排列控件间距