- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [分享]百度ECharts使用示例 (http://www.foxtable.com/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
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:lib.zip |
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
此主题相关图片如下：1.png
[此贴子已经被作者于2017/7/10 17:29:02编辑过]
-- 发布时间：2017/7/10 17:38:00
--
-- 发布时间：2017/7/10 18:29:00
--
mark
-- 发布时间：2017/7/10 20:09:00
--
很美~
-- 发布时间：2017/7/11 7:54:00
--
多谢
-- 发布时间：2017/7/11 12:35:00
--
赞
-- 发布时间：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 )
......
-- 发布时间：2017/7/11 19:53:00
--
mark
-- 发布时间：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")
此主题相关图片如下：123.jpg
[此贴子已经被作者于2017/7/12 10:27:30编辑过]