使用Preview

Preview通常用于表单内容预览。

一个例子

HttpRequest事件代码：

Select Case e.Path
    Case "test.htm"
        Dim wb As New weui
        With wb.AddPreview("","pv1","付款金额","￥2400")
            .AddItem("项目1","内容1")
            .AddItem("项目2","内容2")
            .AddItem("项目3", "电动打蛋机")
            .Addbutton("操作", "", 1, "onclick='alert(""你单击了我"")'")
       End With
        wb.AppendHTML("<br/>")
        With wb.AddPreview("","pv2","付款金额","￥3400")
            .AddItem("项目1","内容1")
            .AddItem("项目2","内容2")
            .AddItem("项目3", "电动打蛋机")
            .Addbutton("辅助操作", "http://www.foxtable.com", 0)
            .Addbutton("操作", "", 1, "onclick='alert(""你单击了我"")'")
       End With
        e.WriteString(wb.Build) '生成网页
End Select

下面是通过手机访问的显示效果：

AddPreview

AddPreview用于增加Preview，语法：

AddPreview(ParentID, ID, HeadText, HeadValue)

AddItem

AddItem用于在Preview中增加项目，语法：

AddItem(Text, Value)
AddItem(Text, Value, Attribute)

Addbutton

Addbutton用于在Preview底部增加操作按钮，语法：

Addbutton(Text, Href)
Addbutton(Text, Href, Type)
Addbutton(Text, Href, Type, Attribute)