vb点虐 自制局域地图 vba 地图

vb点虐 如何嵌入地图

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

创新互联建站-专业网站定制、快速模板网站建设、高性价比文昌网站开发、企业建站全套包干低至880元,成熟完善的模板库,直接使用。一站式文昌网站制作公司更省心,省钱,快速模板网站建设找我们,业务覆盖文昌地区。费用合理售后完善,十年实体公司更值得信赖。

!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:经纬度可以到百度地图官网去获取

或者到:  去生成代码

如何用VB制作一个地图编辑器?能举一个简单的实例吗?

简单点就是:

私人子label1_click()“的总罢工标签,如”上海“

Label2.Visible的= TRUE'的标签,以表明上海地形,特色,位置,等等。

结束小组

有点复杂,如果涉及到数据库

子command1_click()'点击在文本框中,输入地名

Data1.RecordSource =“SELECT *从Sheet1地方的名称,如“&”“&”*“Text16&”*“&”'“

Data1.Refresh

(查找功能,这是一个有点复杂的。要三思而后你,告诉你)

vb点虐 程序(VS2010开发)中如何嵌入百度地图?求编程大神指导

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


当前文章:vb点虐 自制局域地图 vba 地图
网页URL:http://myzitong.com/article/ddedcoc.html