确定

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的