FrontPage VBA教程:Choices属性

返回或设置 String 类型的值,该值代表当前选项域中所有选项的数组。可读写。

expression.Choices

expression  必选。返回ListFieldChoice对象的表达式。

VBA示例

下列示例显示“NewChoiceField”域中所有选项的文本。如果此域不包含选项,则向用户显示一条消息。域 NewChoiceField 是 ListFieldChoice 类型的对象。


Sub ViewChoices()
'Displays the choices in the current field
    Dim objApp As FrontPage.Application
    Dim objLstFlds As ListFields
    Dim objFldChoice As ListFieldChoice
    Dim VarChoices As Variant
    Dim strChoice As String
    Dim blnFound As Boolean
    Set objApp = FrontPage.Application
    Set objLstFlds = objApp.ActiveWeb.Lists.Item(0).Fields
    'Reference choice field
    Set objFldChoice = objLstFlds.Item("NewChoiceField")
    blnFound = False
    For Each VarChoice In objFldChoice.Choices
        If strChoice = "" Then
            'if first value in string
            strChoice = VarChoice & vbCr
            'The list contains at least one choice
            blnFound = True
        Else
            'add value to string
            strChoice = strChoice & VarChoice & vbCr
        End If
    Next VarChoice
    If blnFound = True Then
        'Display choices
        MsgBox "The current list contains the following choices: " & _
        vbCr & strChoice
    Else
        'Display message to user
        MsgBox "The current field contains no choices."
    End If
End Sub

上页:FrontPage VBA教程:Children属性 下页:FrontPage VBA教程:COMAddIns属性

FrontPage VBA教程:Choices属性

FrontPage VBA教程:COMAddIns属性 FrontPage VBA教程:CommandBars属性
FrontPage VBA教程:ConnectionSpeed属性 FrontPage VBA教程:Count属性
FrontPage VBA教程:Creator属性 FrontPage VBA教程:Currency属性
FrontPage VBA教程:currentStyleState属性 FrontPage VBA教程:defaultCharset属性
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属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号