FrontPage VBA教程:AllowMultipleResponses属性

返回或设置一个 Boolean,用来确定用户是否能多次响应所给的调查。如果是 False,则用户只能响应一次调查。可读写。

expression.AllowMultipleResponses

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

VBA示例

下列示例将当前站点中所有Survey对象的AllowMultipleResponses属性设置为 False。用户对于所给的调查只能响应一次。


Sub ChangeResponses()
'Sets number of responses to one per user
    Dim objApp As FrontPage.Application
    Dim objList As Object
    Dim objLists As Lists
    Set objApp = FrontPage.Application
    Set objLists = objApp.ActiveWeb.Lists
    'Cycle through each list and check for list type
    For Each objList In objLists
        'If it's a Survey then change responses to single
        If objList.Type = fpListTypeSurvey Then
            objList.AllowMultipleResponses = False
        End If
    Next
End Sub

上页:FrontPage VBA教程:AllNavigationNodes属性 下页:FrontPage VBA教程:AllowsLongFilenames属性

FrontPage VBA教程:AllowMultipleResponses属性

FrontPage VBA教程:AllowsLongFilenames属性 FrontPage VBA教程:anchors属性
FrontPage VBA教程:AnswerWizard属性 FrontPage VBA教程:applets属性
FrontPage VBA教程:Application属性 FrontPage VBA教程:Assistant属性
FrontPage VBA教程:bgColor属性 FrontPage VBA教程:body属性
FrontPage VBA教程:Build属性 FrontPage VBA教程:Caption属性
FrontPage VBA教程:CheckoutBy属性 FrontPage VBA教程:Children属性
FrontPage VBA教程:Choices属性 FrontPage VBA教程:COMAddIns属性
FrontPage VBA教程:CommandBars属性 FrontPage VBA教程:ConnectionSpeed属性
FrontPage VBA教程:Count属性 FrontPage VBA教程:Creator属性
FrontPage VBA教程:Currency属性 FrontPage VBA教程:currentStyleState属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号