- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]Table如何设置背景为图片？或者设置背景为透明。 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=196505)
-- 发布时间：2025/5/7 9:17:00
-- [求助]Table如何设置背景为图片？或者设置背景为透明。
如题，麻烦老师解答一下，谢谢！
-- 发布时间：2025/5/7 9:34:00
--
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=82073
-- 发布时间：2025/5/7 9:58:00
--
老师，用以下代码测试，表标题没有变透明？
Dim t As Table = Tables("日历")
Dim grid = t.Grid
grid.styles("Fixed").backcolor = Color.Transparent \'透明
grid.styles("Normal").backcolor = Color.Transparent \'数据区透明
grid.styles("emptyarea").backcolor = Color.Transparent \'空白区透明
此主题相关图片如下：微信截图_20250507095923.png
[此贴子已经被作者于2025/5/7 10:12:49编辑过]
-- 发布时间：2025/5/7 10:12:00
--
把表格的样式去掉试试：http://www.foxtable.com/webhelp/topics/3305.htm
-- 发布时间：2025/5/7 10:17:00
--
合适了，谢谢！用以下代码也可以实现一样的效果。
Dim t As Table = Tables("日历")
t.Theme = "(none)" \'清除表样式
t.SysStyles("Fixed").backcolor = Color.Transparent \'标题区透明
t.SysStyles("Normal").backcolor = Color.Transparent \'数据区透明
t.SysStyles("emptyarea").backcolor = Color.Transparent \'空白区透明
-- 发布时间：2025/5/7 10:32:00
--
t.SysStyles("Fixed").BorderColor = Color.Transparent \'标题区网格线透明
以上代码无法保存提示如下错误，麻烦老师看一下。
此主题相关图片如下：微信截图_20250507103125.png
用datatable合适了。不麻烦老师了。
[此贴子已经被作者于2025/5/7 10:34:24编辑过]