使用List
List(列表)用于列表内容,列表项可以附带说明、超链接和图标。
一个例子
HttpRequest事件代码
Select
Case e.Path
Case
"test.htm"
Dim wb As New
WeUI
With wb.AddListGroup("",
"lsg1","简单列表")
.Add("ls1",
"新浪主页")
.Add("ls2", "网易主页")
End
With
With wb.AddListGroup("",
"lsg2", "增加说明的列表")
.Add("ls3","新浪主页", "sina.com")
.Add("ls4","网易主页", "163.com")
End
With
With wb.AddListGroup("",
"lsg3", "增加跳转的列表")
.Add("ls5","新浪主页", "sina.com", "http://www.sina.com.cn")
.Add("ls6","网易主页", "163.com", "http://www.163.com")
End
With
With wb.AddListGroup("",
"lsg4","增加图标的列表")
.Add("ls7","新浪主页", "sina.com", "http://www.sina.com.cn", "./images/sina.png")
.Add("ls8","网易主页",
"163.com", "http://www.163.com", "./images/163.png")
End
With
e.WriteString(wb.Build)
End
Select
问题:list是不是无法实现点击运行某个函数?比如说这种:
.RightFooter.AddFoot("加入购物车").Attribute = "on click='alert(""已加入"")' style='color:blue;'"
如果想实现是不是只能用exweui中的组件?