ListFieldChoice 对象

包含关于选项域的信息。选项域在列表中提供一个下拉列表或多个单选按钮，从而允许用户从指定数目的选项中进行选择。

使用 ListFieldChoice 对象

使用 ListFields.Item(index) 可以返回单个 ListFieldChoice 对象，其中 index 是 fpFieldChoice 类型的域的名称或位置序号。

使用 ListFields.Add 方法可以将 fpFieldChoice 类型的域添加到 ListFields 集合中。下列示例将名为 NewChoiceField 的 fpFieldChoice 类型的新域添加到 ListFields 集合中。使用 AddChoice 方法可以在列表中添加选项。使用 Clear 方法可以从列表中清除选项。

Sub DisplayChoice()
'Display choice

    Dim objApp As FrontPage.Application
    Dim objLstFlds As listFields
    Dim objFldChoice As ListFieldChoice
    Dim strName As String

    Set objApp = FrontPage.Application
    Set objLstFlds = objApp.ActiveWeb.Lists.Item(0).Fields
    strName = "NewChoiceField"
    'Add new field of type fpFieldChoice to list
    objLstFlds.Add Name:=strName, Description:="New Choice value Field", _
                   Fieldtype:=fpFieldChoice, Required:=True

    MsgBox "A new Field named " & strName & " was added to the list " & _
           objApp.ActiveWeb.Lists.Item(0).Name & "."

End Sub