InsertHTML

之前介绍的AppendHTML,用于在Head区或Body区的结束位置追加代HTML代码。

如果需要在当前位置插入HTML代码,请使用InsertHTML,语法:

InsertHTML(Content)
InsertHTML(ParentId,Content)

Content:  要插入的内容。
ParentId: 父容器ID,如果是顶层对象,可以不设置。

一个例子

HttpRequest事件代码:

Select Case e.Path
    Case "test.htm"
        Dim wb As New WeUI
        wb.InsertHTML(
"<h3 align='center' style='margin-top:5px'>
用户登录</h3>")
        wb.AddForm("","form1","test.htm")
        With wb.AddInputGroup("form1","ipg1")
            .Attribute = "style='margin-top:5px'"
            .AddInput("xm",
"
户名","text")
            .AddInput("pw",
"
密码","password")
        End With
        With wb.AddButtonGroup("form1","btg1",True)
            .Add("btn1",
"
确定", "submit")
        End With
        e.WriteString(wb.Build)

End
Select

下图是通过手机访问的效果,标题“用户登录”四个字是通过InsertHTML方法插入的:

 


本页地址:http://www.foxtable.com/mobilehelp/topics/0097.htm