[求助]WebBrowser传值给ECharts - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]WebBrowser传值给ECharts

共有4417人关注过本帖树形打印复制链接主题：[求助]WebBrowser传值给ECharts

YYDS

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：婴狐帖子：33 积分：304 威望：0 精华：0 注册：2022/1/28 9:26:00

[求助]WebBrowser传值给ECharts 发帖心情

Post By：2022/2/15 9:25:00 [只看该作者]

大佬救救孩子吧

，InvokeScript函数需要拼接太难了，传值后老是出现data未定义，请问如何把本地json字符串传入js中

本地table.json文件：

{
"value": [
    44117,
    22011,
],
"name": [
    "北京",
    "上海",
]
}

WebBrowser事件中：

Dim json As String '定义json

Dim web = e.Form.Controls("WebBrowser1").BaseControl

json = FileSys.ReadAllText("d:\data\table.json") '读取本地json

web.Document.InvokeScript("eval", new String() {"date.push(" & json & ")"})

js文件中：

var data = [];//数据传入

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：110649 积分：563159 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2022/2/15 9:40:00 [只看该作者]

web.Document.InvokeScript("eval", new String() {"data.push(" & json.replace("""","'") & ")"})

YYDS

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：婴狐帖子：33 积分：304 威望：0 精华：0 注册：2022/1/28 9:26:00

Post By：2022/2/15 19:41:00 [只看该作者]

替换后遇到bug。。。需要前面加上MessageBox.Show(json)后面代码才会生效。。好奇怪图片点击可在新窗口打开查看

主题：[求助]WebBrowser传值给ECharts