Select Case e.Path
Case "test2.htm"
Dim wb As New WeUI
Dim txt As String = "由各种物质组成的巨道."
wb.InsertHTML("<div style='height: 335px;width:300px;overflow:scroll; overflow-y :yes'>")
With wb.AddPanelGroup("","pg1","图文组合列表")
.Attribute= "style='width:100px;height:auto'"
.Add("pn1","标题一",txt,"./images/button.png").Attribute=""
.Add("pn2","标题二",txt,"./images/button.png").Attribute=""
.Add("pn3","标题三",txt,"./images/button.png").Attribute=""
.Add("pn3","标题三",txt,"./images/button.png").Attribute=""
.Add("pn3","标题三",txt,"./images/button.png").Attribute=""
.Add("pn3","标题三",txt,"./images/button.png").Attribute=""
.Add("pn3","标题三",txt,"./images/button.png").Attribute=""
.Add("pn3","标题三",txt,"./images/button.png").Attribute=""
.Add("pn3","标题三",txt,"./images/button.png").Attribute=""
.Add("pn3","标题三",txt,"./images/button.png").Attribute=""
.Add("pn3","标题三",txt,"./images/button.png").Attribute=""
.Add("pn3","标题三",txt,"./images/button.png").Attribute=""
End With
wb.InsertHTML("</div>")
wb.AddForm("","form1","test2.htm")
With wb.AddInputGroup("form1","ipg2","备注")
.AddTextArea("bz",5).Placeholder = "请输入200字以内的备注"
End With
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1", "确定", "submit")
End With
e.WriteString(wb.Build) '生成网页
End Select
加好友 
发短信
Post By：2018/7/22 20:05:00 [显示全部帖子]
