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)