请问有用户自定义样式的例子吗？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 请问有用户自定义样式的例子吗？

共有3848人关注过本帖树形打印复制链接主题：请问有用户自定义样式的例子吗？

瞩望星空

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

加好友

发短信

等级：二尾狐帖子：531 积分：4727 威望：0 精华：0 注册：2013/4/20 20:08:00

Post By：2015/3/17 15:32:00 [只看该作者]

按楼上老师的指点，做了一个用户自定义样式，供有同样需要的学员参考（简单例子）

下载信息 [文件大小：下载次数： ]
点击浏览该文件:自定义设置样式.table

[此贴子已经被作者于2015/3/17 15:35:28编辑过]

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2015/3/17 15:47:00 [只看该作者]

呃，不是可以自动刷新的么？

Dim flg As new windows.forms.ColorDialog()
Dim clr As Color
If flg.showdialog = DialogResult.OK Then
    clr = flg.Color
    Tables("样式值").Rows(1)("alpha分量") = clr.A
    Tables("样式值").Rows(1)("蓝色分量") = clr.B
    Tables("样式值").Rows(1)("绿色分量") = clr.G
    Tables("样式值").Rows(1)("红色分量") = clr.R
    Tables("样式值").Rows(1).Save


    DataTables("表A").Styles("a").ForeColor = clr
    Tables("窗口1_Table1").Refresh
End If