以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [分享]百度ECharts使用示例 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=103519) |
||||
-- 作者:有点蓝 -- 发布时间:2017/7/10 17:22:00 -- [分享]百度ECharts使用示例 最近有好几个人咨询能否使用百度ECharts,这里做了个例子,使用上其实不复杂,就是要搞懂官方给的用法。 之前有个miniui的例子:http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=103145&skin=0,用法其实都一样,结合狐表的weui,可以很快速的使用一些第三方的框架组件。 同样,lib.zip解压后放到路径(d:\\web\\lib\\),路径示例 D:\\web\\lib\\map.js D:\\web\\lib\\data1.txt D:\\web\\lib\\data2.txt
HttpRequest事件代码 Dim fl As String = "d:\\web\\" & e.path If filesys.FileExists(fl) Dim idx As Integer = fl.LastIndexOf(".") Dim ext As String = fl.SubString(idx) Select Case ext Case ".jpg",".gif",".png",".bmp",".wmf",".js",".css" ,".html",".htm",".zip",".rar",".txt" e.WriteFile(fl) Return \'这里必须返回 End Select End If Dim wb As New WeUI Select Case e.Path Case "test.htm" 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) Case "getdata.htm" \'获取数据,这里通过文件返回json数据,实际应用可以结合数据库查询和JObject返回json数据 Dim json As String If e.GetValues("type") = "1" Then json = FileSys.ReadAllText("d:\\web\\lib\\data1.txt") Else json = FileSys.ReadAllText("d:\\web\\lib\\data2.txt") End If e.WriteString(json) End Select [此贴子已经被作者于2017/7/10 17:29:02编辑过]
|
||||
-- 作者:狐狸爸爸 -- 发布时间:2017/7/10 17:38:00 -- |
||||
-- 作者:有点甜 -- 发布时间:2017/7/10 18:29:00 -- mark
|
||||
-- 作者:qwz405 -- 发布时间:2017/7/10 20:09:00 -- 很美~ |
||||
-- 作者:pyh6918 -- 发布时间:2017/7/11 7:54:00 -- 多谢 |
||||
-- 作者:浙江仔 -- 发布时间:2017/7/11 12:35:00 -- 赞 |
||||
-- 作者:ruan -- 发布时间:2017/7/11 13:58:00 -- 好像获取不到 data1.txt 和data2.txt 里的 json数据 |
||||
-- 作者:有点蓝 -- 发布时间:2017/7/11 14:43:00 -- 测试没有问题哦,或者换个方法返回数据测试也可以的 ...... Case "getdata.htm" Dim json As String If e.GetValues("type") = "1" Then json = FileSys.ReadAllText("d:\\web\\lib\\data1.txt") Else Dim jo As New JObject Dim ja As New Jarray \'定义数组 Dim arr() As String = {"北京","天津","上海","重庆","河北","河南","云南"} For Each csh As String In arr Dim j2 As new JObject j2("name") = csh j2("value") = Rand.Next(3,20) ja.Add(j2) Next jo("foxtable") = ja \'将Roles设置为前面定义的数组 json = jo.ToString End If e.WriteString(json ) ......
|
||||
-- 作者:zhy400137 -- 发布时间:2017/7/11 19:53:00 -- mark |
||||
-- 作者:qwz405 -- 发布时间:2017/7/12 10:26:00 -- 老师,用系统的统计表,生成图表,能否做个例子? Echarts和您给的例子,研究了很久,不知道怎么搞…… Dim g As New GroupTableBuilder("统计表1", DataTables("员工名册")) g.Groups.AddDef("籍贯") g.Totals.AddDef("工号", AggregateEnum.Count, "数量") g.FromServer = True g.Build() \'MainTable = Tables("统计表1") [此贴子已经被作者于2017/7/12 10:27:30编辑过]
|