---------------------------
错误
---------------------------
编译错误:“AddListGroup”不是“ExWeUI.WebUI”的成员。错误代码:With ExWeUI.WebUI.AddListGroup("","lst01",1)
---------------------------
确定
Dim wb As New WeUI '定义一个基于weui框架的网页生成器
wb.AppendHTML("<link rel='stylesheet' href='./weui/exweui.css'/>",True)
wb.AppendHTML("<script src='./weui/exweui.js' ></script>",True)
With ExWeUI.WebUI.AddListGroup("","lst01",1)
For i As Integer = 1 To 4
With .AddList("数据管理","http://www.itcasa.cn/pic/zxsgpic/ZY-B木作展厅\ZY-B木作展厅\MZ2A-02.jpg")
With .LeftFooter
.AddFoot("¥49.00").Attribute = "style='color:red;font-size:15px'"
.AddFoot("¥99.00").Attribute = "style='font-size:12px;text-decoration: line-through;'"
End With
.RightFooter.AddFoot("加入购物车").Attribute = " style='color:blue;'"
End With
Next
wb.InsertHTML(.BuildHtml)
End With
wb.AppendHTML("<script src='./weui/exweui.js' ></script>")
e.WriteString(wb.Build)
其他用 exweui 是OK的