FrontPage VBA教程:AddChoice方法

将新选项添加到当前域的可用选择列表中。域必须为ListFieldChoice 类型。

expression.AddChoice(text, Index)

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

text  必选。String 类型。代表将要出现在下拉列表中或单选按钮旁的文本。

Index  可选。Long 类型。代表选项在选项列表中的位置。

VBA示例

下列示例在活动站点第一个列表中的 NewChoiceField 选项域中添加两个选项。新选项为 SaleOption(将出现在列表的第一项)和 SaleOption2(将出现在列表的第二项)。选项的相对位置由可选的 Index参数决定。


Sub AddChoice()
'Adds choices to the choice field
    Dim objApp As FrontPage.Application
    Dim objLstFlds As listFields
    Dim objFldChoice As ListFieldChoice
    Set objApp = FrontPage.Application
    Set objLstFlds = objApp.ActiveWeb.Lists.Item(0).Fields
    'Reference new field and add to new choices to the list
    Set objFldChoice = objLstFlds.Item("NewChoiceField")
    objFldChoice.AddChoice text:="SaleOption1", Index:=1
    objFldChoice.AddChoice text:="SaleOption2", Index:=2
End Sub

上页:FrontPage VBA教程:Add方法 下页:FrontPage VBA教程:AddLinkBar方法

FrontPage VBA教程:AddChoice方法

FrontPage VBA教程:AddLinkBar方法 FrontPage VBA教程:ApplyChanges方法
FrontPage VBA教程:ApplyNavigationStructure方法 FrontPage VBA教程:ApplyTemplate方法
FrontPage VBA教程:ApplyTheme方法 FrontPage VBA教程:CancelRequests方法
FrontPage VBA教程:Checkin方法 FrontPage VBA教程:Checkout方法
FrontPage VBA教程:clear方法 FrontPage VBA教程:Close方法
FrontPage VBA教程:commit方法 FrontPage VBA教程:Copy方法
FrontPage VBA教程:createElement方法 FrontPage VBA教程:createStyleSheet方法
FrontPage VBA教程:createStyleState方法 FrontPage VBA教程:createUndoTransaction方法
FrontPage VBA教程:Delete方法 FrontPage VBA教程:Edit方法
FrontPage VBA教程:elementFromPoint方法 FrontPage VBA教程:execCommand方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号