- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 控件label的居中显示问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=142944)
-- 发布时间：2019/11/9 15:22:00
-- 控件label的居中显示问题
老师，你好，窗口控件“label1”位置是窗口的上方居中标题，但是由于从数据库获取的值的文本长度是不固定的，所以执行后显示的文本整体不能够居中，用什么办法解决。谢谢！
afterload代码：
e.Form.Controls("Label1").text =" " & kbgxmc & "生产任务明细"
-- 发布时间：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
-- 发布时间：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 \'选定列的列标题的背景颜色
-- 发布时间：2019/11/9 17:29:00
--
把这些代码放到加载的代码之后
-- 发布时间：2019/11/9 17:47:00
--
还是一样！我把afterload代码全部发到附件，老师给看看!
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:代码.txt |
-- 发布时间：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) \'字体大小
……
-- 发布时间：2019/11/11 10:29:00
--
谢谢！还有个问题，就是在定义背景颜色时报错，提示如图片：
此主题相关图片如下：搜狗截图20191111102656.png
afterload代码：
Tables(e.form.name & "_Table1").DataTable.SysStyles("SelectedColumnHeader").backColor = Color.GradientInactiveCaption
-- 发布时间：2019/11/11 10:31:00
--
Color.GradientInactiveCaption
-- 发布时间：2019/11/11 10:43:00
--
这个颜色对照表里试了很多个颜色，都找不到与这个背景色（GradientInactiveCaption）一样的，看起就没有那么美观了。
-- 发布时间：2019/11/11 10:46:00
--
.backColor = SystemColors.GradientInactiveCaption