FrontPage VBA教程:ReadOnly属性

返回 Boolean 类型的值,该值确定当前域是否具有只读权限。如果为 True,则用户不能修改此域。只读。

expression.ReadOnly

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

VBA示例

下列示例存储活动站点第一个列表中所有具有只读权限的域的名称和默认值。如果活动站点不包含列表,则向用户显示一条消息。


Sub FieldPermissions()
'Displays read/write permissions of all
'fields in the list.
    Dim objApp As FrontPage.Application
    Dim objField As ListField
    Dim objFields As listFields
    Dim strPerms As String
    Set objApp = FrontPage.Application
    Set objFields = objApp.ActiveWeb.Lists.Item(0).Fields
    If Not ActiveWeb.Lists Is Nothing Then
        For Each objField In objFields
             'If field is read-only, add to list
             If objField.ReadOnly = True Then
                If strPerms = "" Then
                    'if first value in string
                    strPerms = objField.Name & "  -  " & _
                    objField.DefaultValue & vbCr
                Else
                    'add value to string
                    strType = strPerms & objField.Name & "  -  " & _
                    objField.DefaultValue & vbCr
                End If
             End If
        Next objField
    Else
        'display message to user
        MsgBox "The active web contains no lists."
    End If
End Sub

上页:FrontPage VBA教程:protocol属性 下页:FrontPage VBA教程:ReadSecurity属性

FrontPage VBA教程:ReadOnly属性

FrontPage VBA教程:ReadSecurity属性 FrontPage VBA教程:ReadyState属性
FrontPage VBA教程:RecentFile属性 FrontPage VBA教程:Required属性
FrontPage VBA教程:RevisionControlProject属性 FrontPage VBA教程:RootFolder属性
FrontPage VBA教程:RootNavigationNode属性 FrontPage VBA教程:scripts属性
FrontPage VBA教程:SelectedFiles属性 FrontPage VBA教程:SelectedFolders属性
FrontPage VBA教程:selection属性 FrontPage VBA教程:selectorText属性
FrontPage VBA教程:SharedBorders属性 FrontPage VBA教程:ShowAsPercentage属性
FrontPage VBA教程:ShowStartupDialog属性 FrontPage VBA教程:ShowUserNamesInResults属性
FrontPage VBA教程:SlowPage属性 FrontPage VBA教程:styleSheets属性
FrontPage VBA教程:SubTree属性 FrontPage VBA教程:SubViewMode属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号