完全是照着范例做的，之前可以的，现在报错 Case "echarts.htm"
Dim wb As New WeUI
wb.AppendHTML("<script src='http://cdn.static.runoob.com/libs/jquery/1.10.2/jquery.min.js'></script>",True)
wb.AppendHTML("<script src='http://echarts.baidu.com/gallery/vendors/echarts-stat/ecStat.min.js'></script>",True)
wb.AppendHTML("<script src='http://echarts.baidu.com/gallery/vendors/echarts/echarts-all-3.js'></script>",True)
wb.AppendHTML("<script src='http://echarts.baidu.com/gallery/vendors/echarts/map/js/china.js'></script>",True)
With wb.AddArticle("","ar1")
.AddTitle("h1","ECharts测试")
.AddTitle("h2","1. 条形图")
.AddContent("<div id=""main1"" style=""width: 600px;height:400px;""></div>")
.AddTitle("h2","2. 地图")
.AddContent("<div id=""main2"" style=""width: 600px;height:400px;""></div>")
End With
wb.AppendHTML("<script src='./lib/map.js'></script>")
e.WriteString(wb.Build)
Return
加好友 
发短信
Post By：2018/10/10 8:33:00 [只看该作者]
此主题相关图片如下：qq截图20181010083017.png