With wb.AddTabBar("", "tb1", 0)
.AddPage("page1", "我", "./images/我的.png")
.AddPage("page2", "业务", "./images/业务.png")
.AddPage("page3", "商机", "./images/商机.png")
End With
With ExWeUI.WebUI.AddListGroup("page1", "lst01", 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
wb.InsertHTML(.BuildHtml)
End With
使用这个扩展控件时,如果放在TabBar中 这个ParentID page1参数不起作用
加好友 
发短信
Post By：2022/8/17 20:06:00 [只看该作者]
