- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]WeUI中的List问题，可扩展性较小 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=115461)
-- 发布时间：2018/3/7 15:38:00
-- [求助]WeUI中的List问题，可扩展性较小
WeUI中的List问题，可扩展性小，问题见红字体！
例子：
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:test_201803071531.zip |
Select Case e.Path
Case "","logon.htm"
Dim wb As New WeUI
With wb.AddListGroup("", "lsg2", "增加图标的列表") \'如何设置标题"增加图标的列表"的样式??
\' .Attribute = "style=\'color:blue;"
With .Add("ls3","新浪主页", "163.com","http://www.foxtable.com/","/images/bit06.gif") \'如何设置这个图标的大小（与字体大小相适应）？
.Attribute = "style=\'color:blue;font-size:10px;" \'加上这个样式,跳转连接就失效!!!
End With
With .Add("ls4","网易主页", "sina.com","http://www.foxtable.com/","/images/bit06.gif")
\' .Attribute = "style=\'color:blue;font-size:10px;"
End With
End With
e.WriteString(wb.Build)
End Select
-- 发布时间：2018/3/7 16:10:00
--
Dim wb As New weui
With wb.AddListGroup("", "lsg2", "<label style=\'color:red\'>增加图标的列表</label>") \'如何设置标题"增加图标的列表"的样式??
With .Add("ls3","新浪主页", "163.com","http://www.foxtable.com/","/images/bit06.gif") \'如何设置这个图标的大小(与字体大小相适应)?
.Attribute = "style=\'color:blue;font-size:10px;\'" \'加上这个样式,跳转连接就失效!!!
End With
With .Add("ls4","网易主页", "sina.com","http://www.foxtable.com/","/images/bit06.gif")
End With
End With
wb.InsertHTML("<script>var img = document.querySelectorAll(\'#ls3 img\')[0];img.setAttribute(\'width\', \'10px\');img.setAttribute(\'height\', \'10px\')</script>")
e.WriteString(wb.Build)
-- 发布时间：2018/3/7 17:19:00
--
谢谢！
要是在weui.me.js中修改，增加weui_cell_hd、 weui_cell_bd、weui_cell_fd的Attribute，Foxtable的代码就简洁了！