[分享]百度地图简单应用，作为引子，之后大家自由发挥。(更新，例子在26楼，总结在1楼) - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

哦。如有时间的话，帮看看如何在狐表中获取数据。

<html>

<head>

body, html,#allmap {width: 100%;height: 100%;overflow: hidden;margin:0;}

#l-map{height:100%;width:78%;float:left;border-right:2px solid #bcbcbc;}

#r-result{height:100%;width:20%;float:left;overflow-y:scroll}

</style>

<title>根据起终点经纬度驾车导航</title>

</head>

<body>

</body>

</html>

var jcsj_value = document.getElementById("jcsj_value");

var jcgl_value = document.getElementById("jcgl_value");

var map = new BMap.Map("l-map");

map.centerAndZoom(new BMap.Point(/*经度*/, /*纬度*/), /*等级*/);

var p1 = new BMap.Point(/*px1*/,/*py1*/);

var p2 = new BMap.Point(/*px2*/,/*py2*/);

var driving = new BMap.DrivingRoute(map, {renderOptions: {map: map, panel: "r-result", autoViewport: true}});

driving.search(p1, p2);

var map1 = new BMap.Map("allmap");

map1.centerAndZoom(new BMap.Point(/*经度*/, /*纬度*/), /*等级*/);

var output = "从上地到西单驾车需要";

var searchComplete = function (results){

if (transit.getStatus() != BMAP_STATUS_SUCCESS){

return ;

}

var plan = results.getPlan(0);

output += plan.getDuration(true) + "\n";

jcsj_value.value = plan.getDuration(true);

//获取时间

output += "总路程为：" ;

jcgl_value.value = plan.getDistance(true);

output += plan.getDistance(true) + "\n"; //获取距离

}

var transit = new BMap.DrivingRoute(map, {renderOptions: {map: map},

onSearchComplete: searchComplete,

onPolylinesSet: function(){

setTimeout(function(){alert(output)},"1000");

}});

transit.search(p1, p2);

</script>

jcgl_value及jcgl_value这两变量是我加上去，但不成功不知错在哪，水平有限！参考失败！！

我想狐表这样调用：

e.Form.Controls("WebBrowser1").Address = ProjectPath & "map1.htm"

Dim tdom As System.Windows.Forms.HtmlDocument = e.Form.Controls("WebBrowser1").BaseControl.Document

Dim g1 As String = tdom.GetElementById("jcsj_value").GetAttribute("value")

Dim g2 As String = tdom.GetElementById("jcgl_value").GetAttribute("value")

请指点！！先谢了！！

主题：[分享]百度地图简单应用，作为引子，之后大家自由发挥。(更新，例子在26楼，总结在1楼)