老师,用以下代码测试,表标题没有变透明?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编辑过]
合适了,谢谢!用以下代码也可以实现一样的效果。
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 '空白区透明
t.SysStyles("Fixed").BorderColor = Color.Transparent '标题区网格线透明以上代码无法保存提示如下错误,麻烦老师看一下。
此主题相关图片如下:微信截图_20250507103125.png

用datatable合适了。不麻烦老师了。
[此贴子已经被作者于2025/5/7 10:34:24编辑过]