Type 属性

下列示例显示活动站点中所有列表的名称以及与其相关联的类型名称。如果活动站点不包含列表，则向用户显示一条消息。

Sub ViewListTypes()
'Displays the name of the list and
'its associated type

    Dim lstWebList As List
    Dim strType As String

    If Not ActiveWeb.Lists Is Nothing Then
    'Cycle through lists
        For Each lstWebList In ActiveWeb.Lists
            'add types to string
            If strType = "" Then
                strType = lstWebList.Name & " - " & _
                lstWebList.Type & vbCr
            Else
                strType = strType & lstWebList.Name & " - " & _
                lstWebList.Type & vbCr
            End If
        Next
            'Display types of all lists in the web
            MsgBox "The list types in the current web are:" _
            & vbCr & strType
       Else
           'Otherwise display message to user
           MsgBox "The current web contains no lists."
     End If

End Sub

下列示例显示 Lists 集合第一个列表中所有域的名称以及与其相关联的类型名称。如果活动站点不包含列表，则向用户显示一条消息。

Sub Fieldtype()
'Displays the field types of 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
                strType = objField.Name & " - " & _
                objField.Type & vbCr
            Else
                strType = strType & objField.Name & " - " & _
                objField.Type & vbCr
            End If
        Next objField
            MsgBox "The names of the fields in this list and their types are: " & _
            vbCr & strType
    Else
         'Otherwise display message to user
         MsgBox "The current web contains no lists."
         End If
End Sub