我把Echarts集成进去系统里。思路是用版主的,先把Echart的数据代码整理好,然后替换html里的某段内容,最后把生成的缓存html,拿入WebBrowser里。
有些Echart图表,开发时和发布后,都能用。有些确不能,例如下面的日历图
此主题相关图片如下:1.png
此主题相关图片如下:2.png
此主题相关图片如下:3.png
非常奇怪。这是一个比较典型的问题,我特意挑出来问问
我把项目拿出来了,版主可以自己发布看看。
顺便放出代码:
'思路:
'1把模板html文件内容读取
'2用TextBox的内容替换模板里的关键代码
'3生成一个名字随机不重复的临时html报表结果缓存
'4把html报表结果拿到WebBrowser展示
'准备好缓存目录---
If FileSys.DirectoryExists(ProjectPath & "temp") Then
FileSys.DeleteDirectory(ProjectPath & "temp",2,2)'清空缓存文件夹
End If
FileSys.CreateDirectory(ProjectPath & "temp") '生成缓存要用的文件夹
'准备好缓存目录---
Dim str As String = FileSys.ReadAllText(ProjectPath & "Attachments/web/echarts/Model.html", encoding.utf8)'获取模板的代码
str = str.Replace("//##狐表要替换的js代码##//", e.Form.controls("TextBox1").Text)'替换模板里的代码
Dim file As String = ProjectPath & "temp/" & Guid.NewGuid().ToString() & ".html" '随机生成一个名字,为了缓存一个不重复的临时文件
FileSys.WriteAllText(file, str, False, Encoding.utf8) '把替换好html内容写回去
Dim webBrowser As Object = e.Form.Controls("WebBrowser1").basecontrol
webBrowser.navigate(file)'把生存的缓存html加载懂啊WebBrowser显示
Echart原始数据来自(完全一样拷贝的):https://echarts.baidu.com/examples/editor.html?c=calendar-graph
[此贴子已经被作者于2019/3/6 9:43:33编辑过]