FrontPage VBA教程:setBotAttribute方法

设置 FPHTMLFrontPageBotElement对象的属性。

expression.setBotAttribute(strAttributeName, AttributeValue)2)

expression  返回 FPHTMLFrontPageBotElement对象的表达式。

strAttributeName  必选,String 类型。

AttributeValue)2  必选,Variant 类型。

返回类型

Void

VBA示例

本示例使用 setBotAttribute方法来设置搜索组件。


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教程:SaveReport方法 下页:FrontPage VBA教程:toString方法

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对象 FrontPage VBA教程:ListFieldCounter对象
FrontPage VBA教程:ListFieldCurrency对象 FrontPage VBA教程:ListFieldDateTime对象
FrontPage VBA教程:ListFieldFile对象 FrontPage VBA教程:ListFieldInteger对象
FrontPage VBA教程:ListFieldLookup对象 FrontPage VBA教程:ListFieldMultiLine对象
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号