ApplyTheme 函数

简介

切换主题风格。

语法

ApplyTheme(TheForm)

输入参数

参数名称	必需/可选	数据类型	说明
TheForm	必需	Access.Form	要设置风格样式的窗体。

返回值

无

说明

目前仅用于根据“主题风格设置”中的设置自动应用主题颜色的功能。

主要应用的范围包括：

·主体

·窗体页眉

·窗体页脚

·背景样式为“常规”，且原来背景色和主体颜色相同的标签控件

·背景样式为“常规”，且原来背景色和主体颜色相同的文本框和组合框

·背景样式为“常规”，且“锁定”属性和“可用”属性均为“是”的文本框和组合框

对于需要例外处理的，可以在“标签”属性（Tag）中设置“<NoTheme>”标志。

示例

Private Sub Form_Load()
    '这几个初始化处理最好放在开头执行。
    ApplyTheme Me          '主题风格处理。
    InitToolbarButtons Me  '功能菜单图标及文字默认加载处理。
    LoadLocalLanguage Me   '多语言指定语言资源加载处理。
    LoadIcon Me.btnResetPassword_Image, "key.ico"  '如果有额外自定义的功能菜单，InitToolbarButtons 无法处理时，则另外单独加载图标。

    '其它代码
End Sub

修订记录