- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 一个小问题大大失色 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=193822)
-- 发布时间：2024/10/18 8:57:00
-- 一个小问题大大失色
此主题相关图片如下：大屏问题.png
-- 发布时间：2024/10/18 9:03:00
--
一个例子而已，根据自己需要改咯。例子只是为了证明仪表里可以添加任意控件。
可以自行设置不同的表样式：http://www.foxtable.com/webhelp/topics/0013.htm
此主题相关图片如下：1.png
此主题相关图片如下：2.png
-- 发布时间：2024/10/18 9:11:00
--
还是很生硬，主要是表格的样式，无法与整体匹配，无法与整体容合。
主要问题是表格的样式的限制问题，
-- 发布时间：2024/10/18 9:15:00
--
表格每一个区域都可以单独设置颜色的，你可以自己设置：
-- 发布时间：2024/10/18 10:26:00
--
表格每一个区域都可以单独设置颜色的，你可以自己设置： 之前，试过，窗口的表样式与非窗口上的表不一样，非窗口上的表的样式移到窗口上是失效。现在改？ |
[此贴子已经被作者于2024/10/18 10:27:07编辑过]
-- 发布时间：2024/10/18 10:42:00
--
我测试都一样的，请上传实例说明
-- 发布时间：2024/10/18 16:18:00
--
把表格背景设置为与大屏背景一样，隐藏前面行号，类似我这样，也是表格控件做的
此主题相关图片如下：qq20241018-161633.png
或是把示例发出来，我帮你调表格控件
[此贴子已经被作者于2024/10/18 16:19:03编辑过]
-- 发布时间：2024/10/18 16:56:00
--
此主题相关图片如下：qq20241018-165450.png
单独设置表格样式及配色代码如下，其余的自行研究：
With Tables("例二效果_Table1")
.grid.ScrollBars = 0 \'禁止滚动条,0 无 1 横向 2 纵向 3 横向纵向
.S elect( - 1, - 1) \'移除焦点行
.Theme = "(none)" \'清除表样式
\' .grid.rows(0).height = 0 \'隐藏表头
.ForeColor = Color.LightGray \'表格区字体颜色
.SetHeaderCellBackColor("日期", Color.MidnightBlue)\'标题区背景颜色
.SetHeaderCellBackColor("数量", Color.MidnightBlue)\'标题区背景颜色
.SetHeaderCellForeColor("日期", Color.LightGray)\'标题区背景颜色
.SetHeaderCellForeColor("数量", Color.LightGray)\'标题区背景颜色
.grid.styles.Normal.Border.Color = Color.SkyBlue \'表格线颜色
.grid.styles.Normal.Border.Style = 1 \'1为单线,2为双线
.grid.styles.Normal.Border.width = 0.6 \'表格线宽
.grid.styles.Normal.Border.Direction = 1 \'0为横竖线,1为横,2为竖
.grid.Styles("EmptyArea").Border.Color = Color.FromARGB(255,255,255) \'Transparent \'表格边框颜色
.DataTable.SysStyles("Focus").ForeColor = Color.Red \'焦点单元格字体颜色
.DataTable.SysStyles("EmptyArea").BackColor = Color.MidnightBlue \'空白区背景色
.DataTable.SysStyles("Normal").BackColor = Color.MidnightBlue \'数据区背景色
.DataTable.SysStyles("Focus").BackColor = Color.FromARGB(255, 255, 255) \'焦点单元格背景颜色
.DataTable.SysStyles("CurrentRow").BackColor = Color.FromARGB(255, 255, 255) \'当前行背景颜色
.ExtendLastCol = True \'自动列宽
End With
[此贴子已经被作者于2024/10/18 17:13:25编辑过]
-- 发布时间：2024/10/18 17:15:00
--
谢谢分享
-- 发布时间：2024/10/21 14:24:00
--
标题列的边框怎么设置颜色或是宽度？