FrontPage VBA教程:Lists集合

   
WebEx
Lists
List

代表当前站点中所有List对象的集合。Lists 允许在不同用户和不同站点之间共享和交换信息。

使用 Lists集合

使用WebEx对象的Lists属性可以返回站点中的所有列表的集合。使用 Lists.item(index) 可以返回单个 List对象,其中 index 是列表的名称或其在集合中的位置(用数字显示)。

下列示例显示活动站点中所有列表的名称。如果活动站点不包含任何列表,则向用户显示一条消息。


Sub ListAllLists()
'Displays the names of all lists in the collection
    Dim lstWebList As List
    Dim strName As String
    'Check if any lists exist
    If Not ActiveWeb.Lists Is Nothing Then
        'Cycle through lists
        For Each lstWebList In ActiveWeb.Lists
            'add list names to string
            If strName = "" Then
                strName = lstWebList.Name & vbCr
            Else
                strName = strName & lstWebList.Name & vbCr
            End If
        Next
        'Display names of all lists
        MsgBox "The names of all lists in the current web are:" _
               & vbCr & strName
    Else
        'Other wise display message to user
        MsgBox "The current web contains no lists."
    End If
End Sub

使用 Lists.Add方法可以将新列表添加到 Lists集合。下列示例将名为 NewShare 的 fpBasicList 类型的新列表添加到活动站点。


Sub NewList()
'Adds a new list to the current web
    Dim objApp As FrontPage.Application
    Dim objLists As Lists
    Set objApp = FrontPage.Application
    Set objLists = objApp.ActiveWeb.Lists
    'Add new list
    objLists.Add Name:="NewShare", _
                 ListType:=fpListTypeBasicList, _
                 Description:="List of Shared files"
    'Display message to user
    MsgBox "A new list was added to the Lists collection."
End Sub

上页:FrontPage VBA教程:ListFieldURL对象 下页:FrontPage VBA教程:MetaTags集合对象

FrontPage VBA教程:Lists集合

FrontPage VBA教程:MetaTags集合对象 FrontPage VBA教程:NavigationNode对象
FrontPage VBA教程:NavigationNodes集合对象 FrontPage VBA教程:PageWindowEx对象
FrontPage VBA教程:PageWindows集合对象 FrontPage VBA教程:Properties集合对象
FrontPage VBA教程:Survey对象 FrontPage VBA教程:System对象
FrontPage VBA教程:Theme对象 FrontPage VBA教程:Themes集合对象
FrontPage VBA教程:UndoTransaction对象 FrontPage VBA教程:WebEx对象
FrontPage VBA教程:WebFile对象 FrontPage VBA教程:WebFiles集合对象
FrontPage VBA教程:WebFolder对象 FrontPage VBA教程:WebFolders对象集合
FrontPage VBA教程:Webs集合对象 FrontPage VBA教程:WebWindowEx对象
FrontPage VBA教程:WebWindows集合对象 FrontPage VBA教程:ActiveDocument属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号