FrontPage VBA教程:Type属性

应用于 BasicList、DocumentLibrary、List 和 Survey对象的 Type属性。

返回FpListType 常数,该常数代表当前列表的类型。只读。

FpListType 可以是下列这些 FpListType 常数之一。
fpListTypeBasicList
fpListTypeDocumentLibrary
fpListTypeSurvey

expression.Type

expression  必选。返回上述对象之一的表达式。

应用于“应用于”列表中所有其他对象的 Type属性。

返回FpFieldType 常数,该常数代表当前域的类型。只读。

FpFieldType 可以是下列这些 FpFieldType 常数之一。
fpFieldChoice
fpFieldComputed
fpFieldCounter
fpFieldCurrency
fpFieldDateTime
fpFieldFile
fpFieldInteger
fpFieldLookup
fpFieldMultiLine
fpFieldNumber
fpFieldSingleLine
fpFieldTrueFalse
fpFieldURL
fpFieldUser

expression.Type

expression  必选。返回上述对象之一的表达式。

VBA示例

将该属性应用于 BasicList、DocumentLibrary、List 和 Survey对象。

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


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

上页:FrontPage VBA教程:Title属性 下页:FrontPage VBA教程:URL属性

FrontPage VBA教程:Type属性

FrontPage VBA教程:URL属性 FrontPage VBA教程:UserName属性
FrontPage VBA教程:VBE属性 FrontPage VBA教程:Version属性
FrontPage VBA教程:VerticalResolution属性 FrontPage VBA教程:ViewMode属性
FrontPage VBA教程:ViewModeEx属性 FrontPage VBA教程:Visible属性
FrontPage VBA教程:vlinkColor属性 FrontPage VBA教程:Web属性
FrontPage VBA教程:webbots属性 FrontPage VBA教程:Webs属性
FrontPage VBA教程:WebWindows属性 FrontPage VBA教程:WhiteSpace属性
FrontPage VBA教程:Microsoft FrontPage对象 FrontPage VBA教程:不支持的语言元素
FrontPage VBA教程:隐藏的语言元素 FrontPage VBA教程:OnActivate事件
FrontPage VBA教程:OnAfterPageSave事件 FrontPage VBA教程:OnAfterPageWindowViewChange事件
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号