removeBotAttribute 方法

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

expression  返回 IHTMLFrontPageBotElement 对象的表达式。

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

返回类型

Bool

示例

本示例使用 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