返回 List 对象。
expression.Item(Index)
expression 必选。返回上述对象之一的表达式。
Index 必选,Variant类型。集合中对象的名称或序号值。
返回一个 ListField 对象。
expression.Item(Index)
expression 必选。返回上述对象之一的表达式。
Index 必选,Variant 类型。集合中的对象的名称或序号值。
返回一个代表属性关键字/值对的 Variant 类型的值。
expression.Item(PropertyKey)
expression 必选。返回上述对象之一的表达式。
PropertyKey 必选,String 类型。包含集合索引号的字符串。索引从零开始。
应用于 NavigationNodes 对象的 Item 属性。
返回 NavigationNode 对象。
expression.Item(Index)
expression 必选。返回上述对象之一的表达式。
Index 必选,Variant类型。集合中对象的名称或序号值。
返回 PageWindowEx 对象。
expression.Item(Index)
expression 必选。返回上述对象之一的表达式。
Index 必选,Variant类型。集合中对象的名称或序号值。
返回 Theme 对象。
expression.Item(Index)
expression 必选。返回上述对象之一的表达式。
Index 必选,Variant类型。集合中对象的名称或序号值。
返回或设置一个 Variant 表示属性。可读写。
expression.Item(PropertyKey)
expression 必选。返回上述对象之一的表达式。
PropertyKey 必选,String 类型。包含集合索引号的字符串。索引从零开始。
返回 WebEx 对象。
expression.Item(Index)
expression 必选。返回上述对象之一的表达式。
Index 必选,Variant类型。集合中对象的名称或序号值。
返回 WebFile 对象。
expression.Item(Index)
expression 必选。返回上述对象之一的表达式。
Index 必选,Variant类型。集合中对象的名称或序号值。
返回 WebFolder 对象。
expression.Item(Index)
expression 必选。返回上述对象之一的表达式。
Index 必选,Variant类型。集合中对象的名称或序号值。
返回 WebWindowEx 对象。
expression.Item(Index)
expression 必选。返回上述对象之一的表达式。
Index 必选,Variant类型。集合中对象的名称或序号值。
以下示例展示如何通过对集合中项目进行索引来返回值。本示例返回活动站点导航结构中的第一个导航节点的标签。
注意 您可通过活动站点的 RootNavigationNode 属性的 Children 属性来访问 NavigationNodes集合。
Private Sub GetNavigationNode()
Dim myWeb As WebEx
Dim myNavNodes As NavigationNodes
Dim myNavNodeLabel As String
Set myWeb = ActiveWeb
myNavNodeLabel _
= myWeb.RootNavigationNode.Children.Item(0).Label
End Sub
以下语句返回活动站点中 Web 页上的 META 标记的内容,并展示 PropertyKey 参数。
myMetaTagContents _
= ActiveWeb.RootFolder.Files.Item(0).MetaTags.Item("generator")
返回集合中的值时,不一定要指定 Item 属性的索引或属性名称。以下示例返回当前站点中包含等于“generator”的 META 标记的各 Web 页的文件名列表,而没有指定 Item 属性。FindGeneratorTags
检索包含有“generator”的META 标记的文件列表,并将 Item 属性的值添加到变量 myMetaTag
中,因为在这种情况下,Item 属性的值与文件名相同。这点与上一个示例不同,上一个示例返回 META 标记的内容。
Function FindGeneratorTags() As String
Dim myWeb As WebEx
Dim myMetaTags As MetaTags
Dim myMetaTag As Variant
Dim myFiles As WebFiles
Dim myFile As WebFile
Dim myMetaTagName As String
Dim myReturnFileName As String
Set myWeb = ActiveWeb
Set myFiles = myWeb.RootFolder.Files
With myWeb
For Each myFile In myFiles
Set myMetaTags = myFile.MetaTags
For Each myMetaTag In myMetaTags
myMetaTagName = myMetaTag
If myMetaTagName = "generator" Then
myReturnFileName = myReturnFileName & myFile.Name
End If
Next
Next
End With
FindGeneratorTags = myReturnFileName
End Function