Themes 集合对象

多个对象 Themes Theme

Theme 对象的集合。每个 Theme 对象都代表一个与 Microsoft FrontPage 中的 HTML 页或站点相关联的主题。Theme 对象是 Themes 集合的成员。

使用 Themes 集合

使用 Themes 属性可以返回 Themes 集合。Themes 属性可用于 Application 或 WebEx 对象。Application 对象的 Themes 属性是 FrontPage 中可用主题的集合。WebEx 对象的 Themes 属性是应用于站点内文件的主题的集合，或是应用于站点的主题的集合。下列语句说明 Themes 和 Count 属性，并返回 FrontPage 内可用 Themes 集合中的项目数。

myTotalThemeCount = Application.Themes.Count

下列语句返回站点中主题的数目。

myWebThemeCount = Application.Webs(0).Themes.Count

使用 Themes(index) 可以返回单个 Theme 对象，其中 index 是主题项目的索引号。下列语句返回 Themes 集合中的第一个主题。

myThemeOne = Web.Themes(0)

使用 Application 属性可以返回 Application 对象。下列示例从 Themes 集合返回 FrontPage 的版本和 build 号。

注意  若要运行本过程，必须至少打开一个站点。

Private Sub GetBuildNumber()
    Dim myThemes As Themes
    Dim myBuild As String

    Set myThemes = ActiveWeb.Themes

    myBuild = myThemes.Application.Build
End Sub

若要返回 Themes 集合的容器，请使用 Parent 属性。例如，下列语句返回与 Themes 集合的父容器相关联的 URL。

myParentUrl = Web.Themes.Parent.Url