---------------------------
错误
---------------------------
编译错误:未声明“ExWeUI”。它可能因其保护级别而不可访问。
错误代码：With ExWeUI.WebUI.AddListGroup("", "lst01", 1)
---------------------------
确定
---------------------------
Select Case e.Path
Case "Ipicbpgodmx"
Dim wb As New 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("Foxtable数据库应用开发宝典 数据管理", "images/007.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>initExWeUI();</script>")
e.WriteString(wb.Build)
End Select
加好友 
发短信
Post By：2024/1/13 20:41:00 [只看该作者]
