[求助]如何用AddUserStyle设置字体样式 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]如何用AddUserStyle设置字体样式

共有2257人关注过本帖树形打印复制链接主题：[求助]如何用AddUserStyle设置字体样式

5159518

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

等级：小狐帖子：384 积分：2706 威望：0 精华：0 注册：2015/11/27 19:09:00

[求助]如何用AddUserStyle设置字体样式 发帖心情

Post By：2018/9/4 0:23:00 [显示全部帖子]

请教老师，如何用“AddUserStyle”来添加自定义样式的字体样式呢，看帮助和论坛里面只找到添加样式的背景颜色和字体颜色，如果要自定义字体的样式应该如何编写代码呢，或者说我要定义这样的一个行样式：

样式名称：锁定，背景颜色：默认，字体颜色：红色，字体加粗，字体带下划线

这样的样式我应该如何用代码来添加？

[此贴子已经被作者于2018/9/4 0:25:02编辑过]

5159518

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

等级：小狐帖子：384 积分：2706 威望：0 精华：0 注册：2015/11/27 19:09:00

Post By：2018/9/4 12:26:00 [显示全部帖子]

以下是引用有点甜在2018/9/4 8:53:00的发言：

比如

DataTables("表A").Styles("锁定").FontBold = True

样式包括以下属性：

BackColor：背景颜色
ForeColor：字体颜色
FontBold：逻辑型，设为True，字体加粗
FontItalic：逻辑型，设为True，字体倾斜
FontStrikeout：逻辑型，设为True，字体带删除线
FontUnderline：逻辑型，设为True，字体带下划线

For Each dt As DataTable In DataTables

dt.AddUserStyle("锁定")

dt.Styles("锁定").FontBold = True

dt.Styles("锁定").ForeColor = Color.Blue

老师，上述的代码报错啊，AddUserStyle添加样式，必须要制定背景色和字体颜色吗？如何设置颜色为默认的？

5159518

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

等级：小狐帖子：384 积分：2706 威望：0 精华：0 注册：2015/11/27 19:09:00

Post By：2018/9/4 12:52:00 [显示全部帖子]

以下是引用有点甜在2018/9/4 12:39:00的发言：

老师，上述的代码报错啊，AddUserStyle添加样式，必须要制定背景色和字体颜色吗？如何设置颜色为默认的？

AddUserStyle 必须定义背景颜色、字体颜色，才行。

那么采用代码添加自定义样式，还有其它的方法吗？

主题：[求助]如何用AddUserStyle设置字体样式