ListField 对象

多个对象 ListField

包含关于组成 List 对象的域的信息。列表的域定义了出现在列表中的列，并且显示列表中项目的有关信息。ListField 对象是一个基类，定义了 Microsoft FrontPage 中不同类型域所用的公用成员。

使用 ListField 对象

使用 ListFields.Item(index) 可以返回单个 Basic List 对象，其中 index 是域的名称或其在集合中的位置。下列示例显示当前列表所有域的名称。如果站点不包含列表，则向用户显示一条信息。

Sub ListAllFields()
'Displays the name of fields in the current list

    Dim objApp As FrontPage.Application
    Dim objField As ListField
    Dim strType As String

    Set objApp = FrontPage.Application

    If Not ActiveWeb.Lists Is Nothing Then
        For Each objField In objApp.ActiveWeb.Lists.Item(0).Fields
            If strType = "" Then
                'Create new string
                strType = objField.Name & vbCr
            Else
                'Add next field name to string
                strType = strType & objField.Name & vbCr
            End If
        Next objField
        MsgBox "The names of the fields in this list are: " & _
                vbCr & strType
    Else
        'Otherwise display message to user
        MsgBox "The current web contains no lists."
    End If
End Sub