主题：ExWeUI扩展控件，完全兼容WeUI，用法一样（20220315更新，修正了一些bug）

1.         Dim wb As New weui  
2.         wb.AppendHTML("<link rel='stylesheet' href='./weui/exweui.css'/>",True)  
3.         wb.AppendHTML("<script src='./weui/exweui.js' ></script>",True)  
4.         For i As Integer = 1 To 10
5.             With wb.AddPreview("","pv2" & i,"付款金额","￥3400")  
6.                 .AddItem("项目1","内容1")  
7.                 .AddItem("项目2","内容2")  
8.                 .AddItem("项目3", "电动打蛋机")  
9.                 .Addbutton("辅助操作", "http://www.foxtable.com", 0)  
10.                 .Addbutton("操作", "", 1, "")  
11.             End With  
12.         Next  
13.           
14.         wb.InsertHTML(ExWeUI.WebUI.AddBackTop("bt01").BuildHtml)  
15.         wb.AppendHTML("<script>initExWeUI();</script>")  
16.         e.WriteString(wb.Build)  

学习学习