FrontPage VBA教程:removeBotAttribute方法

删除由 strAttributeName属性指定的属性。

expression.removeBotAttribute(strAttributeName)

expression  返回 IHTMLFrontPageBotElement对象的表达式。

strAttributeName  必选,String 类型。表示属性名称的字符串。

返回类型

Bool

VBA示例

本示例使用 removeBotAttribute方法来删除搜索组件。


Private Sub AccessBots()
Dim myMyFPBot As FPHTMLFrontPageBotElement
Dim myBodyObject As FPHTMLBody
Dim myHTMLString As String
Dim myPage As PageWindow
myHTMLString = ""
myHTMLString = myHTMLString & _
    "<!—webbot bot=""Search"" s-index=""All"""
myHTMLString = myHTMLString & _
    " s-fields s-text=""Search for:"" ""
myHTMLString = myHTMLString & _
    "i-size=""20"" s-submit=""Start Search"""
myHTMLString = myHTMLString & _
    " s-clear=""Reset"" s-timestampformat=""%m/%d/%y"""
myHTMLString = myHTMLString & " tag=""BODY"" -->"
Set myBodyObject = ActivePageWindow.Document.body
Set myPage = ActivePageWindow
Call myBodyObject.insertAdjacentHTML("BeforeEnd", _
    myHTMLString)
Set myMyFPBot = _
    myPage.Document.all.tags("webbot").Item(0)
Debug.Print myMyFPBot.getBotAttribute("s-submit")
Call myMyFPBot.setBotAttribute("s-submit", "new item")
Debug.Print myFPBot.getBotAttribute("s-submit")
Call myFPBot.removeBotAttribute("s-submit")
Debug.Print myFPBot.getBotAttribute("s-submit")
End Sub

上页:FrontPage VBA教程:Refresh方法 下页:FrontPage VBA教程:RemoveChoice方法

FrontPage VBA教程:removeBotAttribute方法

FrontPage VBA教程:RemoveChoice方法 FrontPage VBA教程:RemoveWeb方法
FrontPage VBA教程:Run方法 FrontPage VBA教程:Save方法
FrontPage VBA教程:SaveAs方法 FrontPage VBA教程:SaveReport方法
FrontPage VBA教程:setBotAttribute方法 FrontPage VBA教程:toString方法
FrontPage VBA教程:UndoCheckout方法 FrontPage VBA教程:VerifyAllLinks方法
FrontPage VBA教程:Application对象 FrontPage VBA教程:BasicList对象
FrontPage VBA教程:DispFPHTMLDocument对象 FrontPage VBA教程:DocumentLibrary对象
FrontPage VBA教程:IFPDocument对象 FrontPage VBA教程:IHTMLFrontPageBotElement对象
FrontPage VBA教程:List对象 FrontPage VBA教程:ListField对象
FrontPage VBA教程:ListFieldChoice对象 FrontPage VBA教程:ListFieldComputed对象
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号