控件label的居中显示问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 控件label的居中显示问题

共有3602人关注过本帖树形打印复制链接主题：控件label的居中显示问题

狐表（小白）

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

加好友

发短信

等级：小狐帖子：371 积分：4017 威望：0 精华：0 注册：2019/9/17 10:06:00

控件label的居中显示问题 发帖心情

Post By：2019/11/9 15:22:00 [只看该作者]

老师，你好，窗口控件“label1”位置是窗口的上方居中标题，但是由于从数据库获取的值的文本长度是不固定的，所以执行后显示的文本整体不能够居中，用什么办法解决。谢谢！

afterload代码：

e.Form.Controls("Label1").text =" " & kbgxmc & "生产任务明细"

有点蓝

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

加好友

发短信

等级：超级版主帖子：110790 积分：563882 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2019/11/9 15:39:00 [只看该作者]

afterload代码：

Dim L1 As WinForm.Label = e.Form.Controls("Label1")

L1.text =" " & kbgxmc & "生产任务明细"

L1.left = (e.form.width - L1.width) / 2

狐表（小白）

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

加好友

发短信

等级：小狐帖子：371 积分：4017 威望：0 精华：0 注册：2019/9/17 10:06:00

Post By：2019/11/9 17:15:00 [只看该作者]

谢谢老师！还有个问题：如附件图片红色箭头指示的，查询表table1的“单线”列背景色怎么设置，才能在加载后成和其它列一样颜色，关于查询表的窗口加载颜色设置代码如下：

此主题相关图片如下：搜狗截图20191109170843.png

afterload：

'调整数据表格式颜色

Tables(e.form.name & "_Table1").DataTable.SysStyles("SelectedColumnHeader").backColor = Color.white '选定列标题区的背景颜色

Tables(e.form.name & "_Table1").DataTable.SysStyles("Focus").backColor = Color.white '焦点单元格的背景颜色

Tables(e.form.name & "_Table1").DataTable.SysStyles("Normal").BackColor = Color.white '数据区背景颜色

Tables(e.form.name & "_Table1").DataTable.SysStyles("EmptyArea").BackColor = Color.white '空白区背景颜色

Tables(e.form.name & "_Table1").DataTable.SysStyles("Fixed").backColor = Color.white '标题行的背景颜色

Tables(e.form.name & "_Table1").DataTable.SysStyles("Highlight").BackColor = Color.White '选定区域背景颜色

Tables(e.form.name & "_Table1").DataTable.SysStyles("SelectedRowHeader").BackColor = Color.White '选定列的列标题的背景颜色

有点蓝

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

加好友

发短信

等级：超级版主帖子：110790 积分：563882 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2019/11/9 17:29:00 [只看该作者]

把这些代码放到加载的代码之后

狐表（小白）

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

加好友

发短信

等级：小狐帖子：371 积分：4017 威望：0 精华：0 注册：2019/9/17 10:06:00

Post By：2019/11/9 17:47:00 [只看该作者]

还是一样！我把afterload代码全部发到附件，老师给看看!

下载信息 [文件大小：下载次数： ]
点击浏览该文件:代码.txt

有点蓝

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

加好友

发短信

等级：超级版主帖子：110790 积分：563882 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2019/11/10 20:27:00 [只看该作者]

有些样式要关闭界面风格才有效

Tables(e.form.name & "_Table1").UseVisualStyle = false

'调整数据表格式颜色

Tables(e.form.name & "_Table1").SetColVisibleWidth("单线别|60|订单编号|200|产品型号|450|数量|60") '列宽

Tables(e.form.name & "_Table1").Font = new font ("微软雅黑",16,fontstyle.bold) '字体大小

……

狐表（小白）

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

加好友

发短信

等级：小狐帖子：371 积分：4017 威望：0 精华：0 注册：2019/9/17 10:06:00

Post By：2019/11/11 10:29:00 [只看该作者]

谢谢！还有个问题，就是在定义背景颜色时报错，提示如图片：
图片点击可在新窗口打开查看

此主题相关图片如下：搜狗截图20191111102656.png

afterload代码：

Tables(e.form.name & "_Table1").DataTable.SysStyles("SelectedColumnHeader").backColor = Color.GradientInactiveCaption

有点蓝

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

加好友

发短信

等级：超级版主帖子：110790 积分：563882 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2019/11/11 10:31:00 [只看该作者]

Color.GradientInactiveCaption

没有这种名称的颜色值：http://www.foxtable.com/webhelp/topics/0495.htm

狐表（小白）

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

加好友

发短信

等级：小狐帖子：371 积分：4017 威望：0 精华：0 注册：2019/9/17 10:06:00

Post By：2019/11/11 10:43:00 [只看该作者]

这个颜色对照表里试了很多个颜色，都找不到与这个背景色（GradientInactiveCaption）一样的，看起就没有那么美观了。

有点蓝

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

加好友

发短信

等级：超级版主帖子：110790 积分：563882 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2019/11/11 10:46:00 [只看该作者]

.backColor = SystemColors.GradientInactiveCaption

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

总数 11 1 2 下一页

主题：控件label的居中显示问题