FrontPage VBA教程:ListFieldCounter对象




这个域由 Microsoft FrontPage 自动创建,用户不能修改。

使用 ListFieldCounter对象


Sub ListCounterFields()
'Displays the name of counter fields in the current list
    Dim objApp As FrontPage.Application
    Dim objField As ListField
    Dim strType As String
    Dim blnFound As Boolean
    blnFound = False
    Set objApp = FrontPage.Application
    If Not ActiveWeb.Lists Is Nothing Then
        For Each objField In objApp.ActiveWeb.Lists.Item(0).Fields
            'Check if it is a computed field of type fpFieldFile
            If objField.Type = fpFieldCounter Then
                blnFound = True
                If strType = "" Then
                    'Create new string
                    strType = objField.Name & vbCr
                    'Add next field name to string
                    strType = strType & objField.Name & vbCr
                End If
            End If
        Next objField
        If blnFound = True Then
            MsgBox "The names of the fields in this list are: " & _
                    vbCr & strType
            MsgBox "There are no counter fields in the list."
        End If
        'Otherwise display message to user
        MsgBox "The current web contains no lists."
    End If
End Sub

上页:FrontPage VBA教程:ListFieldComputed对象 下页:FrontPage VBA教程:ListFieldCurrency对象

FrontPage VBA教程:ListFieldCounter对象

FrontPage VBA教程:ListFieldCurrency对象 FrontPage VBA教程:ListFieldDateTime对象
FrontPage VBA教程:ListFieldFile对象 FrontPage VBA教程:ListFieldInteger对象
FrontPage VBA教程:ListFieldLookup对象 FrontPage VBA教程:ListFieldMultiLine对象
FrontPage VBA教程:ListFieldNumber对象 FrontPage VBA教程:ListFields集合
FrontPage VBA教程:ListFieldSingleLine对象 FrontPage VBA教程:ListFieldTrueFalse对象
FrontPage VBA教程:ListFieldURL对象 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对象
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号