FrontPage VBA教程:getBotAttribute方法

返回 IHTMLFrontPageBotElement对象的指定 strAttributeName属性。

expression.getBotAttribute(strAttributeName)

expression  返回 IHTMLFrontPageBotElement对象的表达式。

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

返回类型

Variant

VBA示例

本示例使用 getBotAttribute方法在初始时获得属性,并检查搜索组件是否设置正确,稍后再检查搜索组件是否已删除。


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 myMyFPBot.getBotAttribute("s-submit")
Call myMyFPBot.removeBotAttribute("s-submit")
Debug.Print myMyFPBot.getBotAttribute("s-submit")
End Sub

上页:FrontPage VBA教程:execCommand方法 下页:FrontPage VBA教程:LocateFile方法

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方法
FrontPage VBA教程:Open方法 FrontPage VBA教程:ParseURL方法
FrontPage VBA教程:Publish方法 FrontPage VBA教程:queryCommandEnabled方法
FrontPage VBA教程:queryCommandIndeterm方法 FrontPage VBA教程:queryCommandState方法
FrontPage VBA教程:queryCommandSupported方法 FrontPage VBA教程:queryCommandText方法
FrontPage VBA教程:queryCommandValue方法 FrontPage VBA教程:Quit方法
FrontPage VBA教程:RecalcHyperlinks方法 FrontPage VBA教程:Refresh方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号