vb点虐地图 vba 地图

怎么在VB.NET中将要加载的地图文档设置为相对路径？

可以用split函数将文件路径进行分割，如我只想要文件名可以这样做：

成都创新互联公司专注于企业全网营销推广、网站重做改版、汕头网站定制设计、自适应品牌网站建设、H5响应式网站、成都商城网站开发、集团公司官网建设、成都外贸网站建设公司、高端网站制作、响应式网页设计等建站业务，价格优惠性价比高，为汕头等各大城市提供网站开发制作服务。

dim path as string =me.opendialog1.filename

dim s() as string=path.split("\")

dim filename as string=s(s.length-1)

新建一个文件,写入下面的代码:

!doctype html

html

head

meta name="viewport" content="initial-scale=1.0, user-scalable=no" /

meta http-equiv="Content-Type" content="text/html; charset=gbk" /

titleBaidu Map V1.2/title

script type="text/javascript" src=";services=true"

!-- add baidu map api --

/script

/head

body

div id="container" style="width: 600px; height: 400px;"

/div

/body

/html

script type="text/javascript"

var map = new BMap.Map("container"); // new Map

var point = new BMap.Point(116.397128, 39.916527); // Location, （经度, 纬度）

map.centerAndZoom(point, 15); // show Map

// 添加缩放功能

map.enableScrollWheelZoom();

map.enableKeyboard();

/script

保存到程序exe同一目录下,文件名:map.html

然后BUTTON点击事件:

WebBrowser1.Navigate(Application.StartupPath "\map.html")

这样就可以了

ps:经纬度可以到百度地图官网去获取

或者到: 去生成代码

这个说简单也简单，百度google都有自己的地图接口，去找一下接口调用说明，里面都有案例。在程序里面调用即可。至于调用后具体的功能则需要查询接口函数。我以前做过google的，百度的实际上也是一样

文章名称：vb点虐地图 vba 地图
文章分享：http://cdiso.cn/article/ddcjpjp.html