你可以任意的添加图片的如
Select Case e.Path
Case "test.htm",""
Dim wb As New WeUI
wb.AddForm("","form1","addnew.htm")
With wb.AddInputGroup("form1","ipg1","新增订单")
.AddSelect("cp","产品","PD01|PD02|PD03|PD04|PD05")
.AddInput("gy","雇员","text")
.AddInput("kh","客户","text")
.AddInput("dj","单价","number")
.AddInput("zk","折扣","number")
.AddInput("sl","数量","number")
.AddInput("rq","日期","date")
End With
wb.InsertHTML("form1","<center><img src='./images/001.jpg' width='50px' height='50px' onclick='form1.submit()'></img></center>")
e.WriteString(wb.Build)
End Select