FrontPage VBA教程:clear方法

从当前域中清除所有选择。

expression.clear

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

VBA示例

以下示例将清除当前活点的第一个列表中类型为 fpFieldChoice 的域中的所有选择。


Sub ClearAllFields()
'Clears all fields from the current list
    Dim objApp As FrontPage.Application
    Dim objList As List
    Dim objListField As Object
    Set objApp = FrontPage.Application
    Set objList = objApp.ActiveWeb.Lists.Item(0)
    'Cycle through fields
    For Each objListField In objList.Fields
        'If field is a choice field then
        If objListField.Type = fpFieldChoice Then
            'Clear all fields
            objListField.Clear
        End If
    Next objListField
    objApp.ActiveWeb.Lists.Item(0).ApplyChanges
End Sub

上页:FrontPage VBA教程:Checkout方法 下页:FrontPage VBA教程:Close方法

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方法 FrontPage VBA教程:getBotAttribute方法
FrontPage VBA教程:LocateFile方法 FrontPage VBA教程:LocateFolder方法
FrontPage VBA教程:LocatePage方法 FrontPage VBA教程:MakeAbs方法
FrontPage VBA教程:MakeRel方法 FrontPage VBA教程:MakeWeb方法
FrontPage VBA教程:Move方法 FrontPage VBA教程:OnTime方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号