新建一个文件,写入下面的代码:
创新互联公司专业为企业提供文山州网站建设、文山州做网站、文山州网站设计、文山州网站制作等企业网站建设、网页设计与制作、文山州企业网站模板建站服务,10年文山州做网站经验,不只是建网站,更提供有价值的思路和整体网络服务。
!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:经纬度可以到百度地图官网去获取
或者到: 去生成代码
可以用split函数将文件路径进行分割,如我只想要文件名可以这样做:
dim path as string =me.opendialog1.filename
dim s() as string=path.split("\")
dim filename as string=s(s.length-1)
这个说简单也简单,百度google都有自己的地图接口,去找一下接口调用说明,里面都有案例。在程序里面调用即可。至于调用后具体的功能则需要查询接口函数。我以前做过google的,百度的实际上也是一样
本文标题:vb点虐
地图 vb调用百度地图
转载来源:/article8/ddgchip.html
成都网站建设公司_创新互联,为您提供网站收录、ChatGPT、定制网站、关键词优化、软件开发、营销型网站建设
声明:本网站发布的内容(图片、视频和文字)以用户投稿、用户转载内容为主,如果涉及侵权请尽快告知,我们将会在第一时间删除。文章观点不代表本网站立场,如需处理请联系客服。电话:028-86922220;邮箱:631063699@qq.com。内容未经允许不得转载,或转载时需注明来源: 创新互联