用代码设置样式

首先需要注意的是，样式名称是区分大小写的。

和样式相关的系统变量

• RibbonTheme
  字符串型，用于指定菜单样式，例如：
  
  RibbonTheme = "Office2013Red"
  　
• GridTheme
  字符串型，用于指定表格样式，例如：
  
  GridTheme = "Office2013Red"
  　
• ControlTheme
  字符串型，用于指定控件样式，系统内置窗口和用户自定义窗口，都会受影响，例如：
  
  ControlTheme = "VS2013Red"
  　

• Themes
  字符串集合，包括所有可用的样式，你可以在命令窗口执行下面的代码，列出所有样式名：
  
  For Each theme As String In Themes
      Output.Show(theme)
  Next

设置指定表的样式

Table有Theme属性，用于指定此Table的样式。
DataTable有Theme属性，用于指定基于此DataTabe的所有Table的样式。

例如：

DataTables("出库明细").Theme = "Office2013Red"
Tables("出库").Theme = "Office2013Red"

可以用代码对样式进行细节调整，例如"MacBlue"表样式会自动设置交替行背景，如果你希望使用这个表样式，但不显示交替行背景，代码如下：

DataTables("表A").Theme = "MacBlue"
DataTables("表A").SysStyles("Alternate").BackColor = Color.White

如果要针对所有表：

GridTheme = "MacBlue"
For Each dt As DataTable In DataTables
    dt.SysStyles("Alternate").BackColor = Color.White
Next

指定指定窗口或控件的样式

所有的控件都有一个Theme属性，用于设置其样式。
窗口有个SetTheme方法，用于统一修改窗口中所有控件的样式。

例如下面的代码将窗口1中所有控件的样式设置为"VS2013Red"，但将TableControl1的样式设置为"Office2010Red"：

Forms("窗口设计").SetTheme("VS2013Red")
Forms("窗口设计").Controls("TabControl1").Theme = "Office2010Red"

提示：如果设计窗口的时候，将某个控件的样式设置成"无"，那么SetTheme将对此控件无效，如果要设置此控件的样式，必须通过其Theme属性设置，之后可以使用SetTheme方法统一设置。

两个特殊样式名

除了Themes集合返回的可用样式名，还有两个特殊样式名，分别是:

(none)：   无样式，也就是清除样式设置。
(default): 默认样式，也就是采用项目属性中指定的默认样式。

例如：

Tables("表A").Theme = "(none)"
Tables("表B").Theme = "(default)"