[分享]百度地图简单应用，作为引子，之后大家自由发挥。(更新，例子在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;}

</style>

<title>根据起终点名称查询公交换乘</title>

</head>

<body>

</body>

</html>

var map = new BMap.Map("allmap"); // 创建Map实例

map.centerAndZoom(new BMap.Point(116.404, 39.915), 14);

var transit = new BMap.TransitRoute(map, {

renderOptions: {map: map}

});

transit.search("王府井", "西单");

</script>

以上是根据起终点名称公交换乘代码，请教如何转换成狐表的代码？麻烦楼主针对此做个事例，我再摸索。现在一脑雾水哦。先谢了！

如果驾车线路呢？有什么技巧吗？这个简单的代码就搞定了。我还是不能找到规律哦。晕死了！

谢了！还是不会弄，再研究吧！估计难哦。这个比较深奥哦。

请问下楼主，

此主题相关图片如下：未命名.jpg

弹出的线路图不完整，没有拉动条。这个有办法处理吗？

OK!多谢了！！终于有点眉目了！！！多谢指点！！！顺便请教下，地图的大小可以设定吗？现在感觉小了，但浏览窗口控件增大，地图不会增大范围。

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

<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")

请指点！！先谢了！！

我已上传了，我这会报错。请帮忙查下何原因？

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目1.zip

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