AddForm(ParentID, ID, Action)
Action是接收表单数据的网页。
下面是Preview文档页面:
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, "")
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, "")
End With
e.WriteString(wb.Build)
'生成网页
End Select