FrontPage VBA教程:DefaultValue属性

返回或设置 Variant 类型的值,该值定义域的默认值。可读写。


expression  必选。返回“应用于”列表中的对象之一的表达式。





Sub FieldDefaultValue()
'Display the default value of the field
    Dim objApp As FrontPage.Application
    Dim objField As ListField
    Dim strType As String
    Set objApp = FrontPage.Application
    If Not ActiveWeb.Lists Is Nothing Then
        'Display fields in first list of collection
        For Each objField In objApp.ActiveWeb.Lists.Item(0).Fields
            If strType = "" Then
                'if first value in string
                strType = objField.Name & "  -  " & _
                objField.DefaultValue & vbCr
                'add value to string
                strType = strType & objField.Name & "  -  " & _
                objField.DefaultValue & vbCr
            End If
        Next objField
        MsgBox "The names of the fields in this list and their default" & _
                     " values are: " & vbCr & strType
        'Otherwise display message to user
        MsgBox "The current web contains no lists."
    End If
End Sub

上页:FrontPage VBA教程:defaultCharset属性 下页:FrontPage VBA教程:DefaultViewPage属性

FrontPage VBA教程:DefaultValue属性

FrontPage VBA教程:DefaultViewPage属性 FrontPage VBA教程:Description属性
FrontPage VBA教程:DesignSecurity属性 FrontPage VBA教程:DisplayForm属性
FrontPage VBA教程:DisplayFormat属性 FrontPage VBA教程:Document属性
FrontPage VBA教程:DocumentHTML属性 FrontPage VBA教程:domain属性
FrontPage VBA教程:DownloadTime属性 FrontPage VBA教程:EditForm属性
FrontPage VBA教程:EditSecurity属性 FrontPage VBA教程:embeds属性
FrontPage VBA教程:Extension属性 FrontPage VBA教程:external属性
FrontPage VBA教程:fgColor属性 FrontPage VBA教程:Fields属性
FrontPage VBA教程:File属性 FrontPage VBA教程:fileCreatedDate属性
FrontPage VBA教程:FileDialog属性 FrontPage VBA教程:FileDialogViewPage属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号